VBA et Excel
dirtu
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- VBA et Excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
2 réponses
bonjour
"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...
"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...
Bonne journée
Toujours avec le même code je me demande si il est possible d'utiliser res1 = Range("B2") en précisant dans quelle feuille se situe la cellule?
Cordialement