programmation VBA

Question

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 = "filename" 

Set objDB = OpenDatabase(strDB) 

.../... 

objDB.Close Set objDB Nothing<?xml:namespace prefix o ns = "urn:schemas-microsoft-com:office:office" /??>






 







 






J’ai essaye avec 





Path= Application.CurrentProject.Path





Mais ca ne marche pas non plus






 






Et je fais



strDB="folder\mabasededonnees.mdb"





mais sa ne marche pas, il met cette fois ci l’erreur








Runtime error 3044

"D:\Documents and settings\My documents\folder\mabasededonnees is  not a valid path.
Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides

Evidemment que ce fichier n'existe pas, je comprend pas pourquoi sa rajoute la partie D:\Documents and settings\My documents

Suis je clair?

cs_Exploreur · Answer

Salut,

Essaye comme cela, défois que :
strDB = filename

A+
Exploreur

 Linux a un noyau, Windows un pépin

SIGIForever · Answer

M E R C I

cs_Exploreur · Answer

Merci...quoi...çà fonctionne ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Salut,
>[auteur/SIGIFOREVER/1468498.aspx SIGIForever]; alors ca fonctionne????? on pense à tenir courant les gens. 

@+: Ju£i€n
Pensez: Réponse acceptée

Programmation VBA

4 réponses

Votre réponse

Discussions similaires