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
Lectures recommandées sur ce thème :