Probleme ouverture base de donnees vba

Résolu/Fermé
SIGI_forever Messages postés 25 Date d'inscription jeudi 24 juillet 2008 Statut Membre Dernière intervention 16 décembre 2008 - 4 sept. 2008 à 11:16
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 4 sept. 2008 à 14:21
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

4 réponses

Dim strDB As String
Dim objDB As Database

strDB = filename ?

Pourquoi ne pas mettre directement :
Set objDB = OpenDatabase(filename)
0
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?
0
SIGI_forever Messages postés 25 Date d'inscription jeudi 24 juillet 2008 Statut Membre Dernière intervention 16 décembre 2008 1
4 sept. 2008 à 13:15
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
-1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 sept. 2008 à 14:21
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)
-1