Blog PlanningPME

Suivez l'actualité de votre logiciel de planning

importer vos clients depuis excel

Vous trouverez ici un script qui vous permettra d'importer vos clients à partir d'un fichier Excel vers PlaningPME.

Voici le fichier Excel : Clients.xls (14,00 kb)

Et le script que vous devrez sauvegarder dans un fichier .vbs

'Connection to PlanningPME
'Register PlanningPME.dll before -> c:\windows\system32\regsvr32 PlanningPME.dll
Set ppme = CreateObject("PlanningPME.Application")
ppme.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\Documentation\Intégrations\Excel\client\Import Clients\PPME.pp"
ppme.Connect

'Connection to Excel
Set Connection = CreateObject("ADODB.Connection")
'VB
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=P:\Documentation\Intégrations\Excel\client\Import Clients\Clients.xls;Extended Properties=" & Chr(34) & "Excel 8.0;HDR=Yes;IMEX=1" & Chr(34)

Set rs = CreateObject("ADODB.Recordset")

Set search = CreateObject("ADODB.Recordset")

rs.Open "select * from [defa0006$]", Connection

'Parse Excel file and create custumer if not exist

While rs.EOF = False

    Set c = ppme.CreateItem(4) 'PpDoCustumer
   
    ' CUSTOMER_ID non vide
    If IsNull(rs.Fields("ctcodcom")) = False Then
   
        c.Number = rs.Fields("ctcodcom")
   
        ' search the custumer in planningpme
        search.Open "select IDX_CLIENT from CLIENT where NUMERO_CLIENT='" & c.Number & "'", ppme.Connection
        ' if exist load the object
        If search.EOF = False Then
            c.Key = search.Fields("IDX_CLIENT")
            c.Load2
        End If
   
        'Create Custumer with PlanningPME object
        If IsNull(rs.Fields("Ctragsoc")) = False Then
            c.Company = rs.Fields("Ctragsoc")
        End If
       
        If IsNull(rs.Fields("Ctloccli")) = False Then
            c.City = rs.Fields("Ctloccli")
        End If
       
        If IsNull(rs.Fields("Cttelcli")) = False Then
            c.Phone = rs.Fields("Cttelcli")
        End If

        c.Save
       
        search.Close
       
    End If
   
rs.MoveNext

Wend

 

Ajouter un commentaire

Loading