Bonjour,
J'ai crée une macro avec l aide de quelque personnes de se forum. Une partie de ma macro me permet d'alimenter une base de donnée depuis un fichier excel. Le code VBA a été réalisé sous 2007 et je dois maintenant le fair fonctionner sous 2003 .... Le problème est que cela ne fonctionne pas.
Voici le code :
J ai essayer en remplacant :
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and settings\D6432025\Desktop\cartonette\Base_cartonette.mdb;Persist Security Info=False"
par :
with Cnx
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and settings\D6432025\Desktop\cartonette\Base_cartonette.mdb; extended properties=""excel 8.0;HDR=yes;Imex=1"";"
Mais cela ne fonctionne pas !
Merci pour votre aide !
J'ai crée une macro avec l aide de quelque personnes de se forum. Une partie de ma macro me permet d'alimenter une base de donnée depuis un fichier excel. Le code VBA a été réalisé sous 2007 et je dois maintenant le fair fonctionner sous 2003 .... Le problème est que cela ne fonctionne pas.
Voici le code :
Code:
Sub ConnectionBase()
Set Cnx = New ADODB.Connection
On Error GoTo Err1
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and settings\D6432025\Desktop\cartonette\Base_cartonette.mdb;Persist Security Info=False"
Exit Sub
Err1:
DeconnexionBase
End Sub
Sub DeconnexionBase()
On Error Resume Next
Cnx.Close
End Sub
Sub ajoutdb()
Dim NcmdT As String, NcmdE As String, nbrobjcmdag As String, SQLText As String
Dim Nag As String, nbrobjag As String, Nom As String, NomF As String
m = 9
For m = 9 To 17
If Cells(m, 1) <> "" Then
Nag = Range("w2").Value
nbrobjag = Range("E18").Value
Nom = Range("L5").Value
NomF = Range("C5").Value
NcmdT = Workbooks(nametest).Sheets("Feuil1").Cells(m, 1).Value
NcmdE = Workbooks(nametest).Sheets("Feuil1").Cells(m, 2).Value
nbrobjcmdag = Workbooks(nametest).Sheets("Feuil1").Cells(m, 23).Value
SQLText = "INSERT INTO Donnees ([N° de commande Technifen], [N° de commande easywin], [Nombre d'objet de la commande sur l'agrès], [N° de l'agrès], [Nombre d'objet sur l'agrès], [Nom client Technifen et adresse], [Nom client final]) VALUES ('" & NcmdT & "', '" & NcmdE & "', '" & nbrobjcmdag & "', '" & Nag & "', '" & nbrobjag & "', '" & Nom & "', '" & NomF & "')"
ConnectionBase
Cnx.Execute SQLText
DeconnexionBase
End If
Next m
End Sub
J ai essayer en remplacant :
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and settings\D6432025\Desktop\cartonette\Base_cartonette.mdb;Persist Security Info=False"
par :
with Cnx
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and settings\D6432025\Desktop\cartonette\Base_cartonette.mdb; extended properties=""excel 8.0;HDR=yes;Imex=1"";"
Mais cela ne fonctionne pas !
Merci pour votre aide !