Probleme ouverture base de donnees vba
Résolu
SIGI_forever
Messages postés
25
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
j'ai cree une base de donnees access, et quelque part dans le code, je dois utiliser le chemin d'acces
j'ai donc une macro qui va le chercher et qui le met dans une variable nommee filename
filename=Application.CurrentProject.Fullname
j'ai teste la valeur de filename et le fichier est le bon
mais au moment d'ouvrir la base de donnees:
runtime error 3024
couldn't find file 'filename'
voici le code correspondant
Dim strDB As String
Dim objDB As Database
strDB = "file"
Set objDB = OpenDatabase(strDB)
.../...
objDB.Close
Set objDB = Nothing
j'ai cree une base de donnees access, et quelque part dans le code, je dois utiliser le chemin d'acces
j'ai donc une macro qui va le chercher et qui le met dans une variable nommee filename
filename=Application.CurrentProject.Fullname
j'ai teste la valeur de filename et le fichier est le bon
mais au moment d'ouvrir la base de donnees:
runtime error 3024
couldn't find file 'filename'
voici le code correspondant
Dim strDB As String
Dim objDB As Database
strDB = "file"
Set objDB = OpenDatabase(strDB)
.../...
objDB.Close
Set objDB = Nothing
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
Dim strDB As String
Dim objDB As Database
strDB = filename ?
Pourquoi ne pas mettre directement :
Set objDB = OpenDatabase(filename) -
Mais si tu exécutes Application.CurrentProject.FullName ce qui te donne le nom du fichier que tu utilises actuellement, à quoi ça sert de le réouvrir?
-
oui, c'est vrai je peux aussi le faire,
donc sa simplifie le code, mais
par contre sa ne change pas la suite, il ne reconnait toujours pas le fichier -
Bonjour,
"filename" n'est-il pas un mot réservé dans VB ? Change le nom de ta variable (ex myFilename)
La remarque de RailBird au post #3 est pertinente.
;o)
