VBA et Excel
Bonjour,
Je voudrais insérer la valeur d'une cellule dans une base access. Pour cela j'utilise ce code :
Sub ConnectDB(ByRef cnx As ADODB.Connection, ByVal strPath As String)
Dim res$
res = Range("B1")
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = strPath
cnx.Open
Set rs = cnx.Execute("Insert into Essai (F1)Values (1)")
cnx.Execute strSQL
End Sub
Je voudrais maintenant remplacer le "1" par la valeur de B1.
Quelle est la méthode pour y arriver? (res $, & res, 'res $'...)
Merci d'avance
Je voudrais insérer la valeur d'une cellule dans une base access. Pour cela j'utilise ce code :
Sub ConnectDB(ByRef cnx As ADODB.Connection, ByVal strPath As String)
Dim res$
res = Range("B1")
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = strPath
cnx.Open
Set rs = cnx.Execute("Insert into Essai (F1)Values (1)")
cnx.Execute strSQL
End Sub
Je voudrais maintenant remplacer le "1" par la valeur de B1.
Quelle est la méthode pour y arriver? (res $, & res, 'res $'...)
Merci d'avance
2 réponses
-
ContributeurBonjour
no problems
res= Worsheets("nomdela feuille").range("B2")
OU
res= sheets("nomde ta feuille").range ("B2")
Si tu tu utilises plusieurs cellules de la feuille
with sheets("nomde ta feuille")
res=.range("B2")
machin=.range("B3")
end with
n'oublies pas les points devant range -
Contributeurbonjour
"Insert into Essai (F1)Values '" & res & "';"
'"" écrire apostrophe puis guillemet "à lentrée"
l'inverse à la sortie
le ; n'est pas obligatoire mais on voit mieux...
