Adressage relatf

[pilou76]

Bonsoir à tous,
Après une macro faite par l'enregistreur Excel VBA, je souhaite remplacer le nom du fichier "F:\saisie.mdb" par ficouvert obtenu par application.getopenfilename
Application.GetOpenFilename
fileoopen = Application.GetOpenFilename("Fichier Saisie (*.mdb), *.mdb")
ficouvert = activeworkpath & fileoopen

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=MS Access Database;DBQ=F:\Saisie.mdb;DefaultDir=F:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;", Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT S0.ID, S0.GlobalID, S0.REGCOD, S0.MOIS, S0.REGION, S0.Niv0Conf, S0.DatStart, S0.DatStop, S1.ID, S1.ParentID, S1.NumExportMaitre, S1.GlobalID, S1.Dept, S1.Strate, S1.Soj, S1.RecupBur, S1.RecupOb" _
, _
" S2.Ech, S2.RAOCase, S2.AdrCase, S2.StrateCase, S2.Niv2Conf, S3.micro" & Chr(13) & "" & Chr(10) & "FROM `F:\SaisieS09151.mdb`.S0 S0, `F:\SaisieS09151.mdb`.S1 S1, `F:\SaisieS09151.mdb`.S2 S2, `F:\SaisieS09151.mdb`.S3 S3" & Chr(13) & "" & Chr(10) & "WHERE S2" _
, ".ID = S3.ParentID AND S1.ID = S2.ParentID AND S0.ID = S1.ParentID")
End With
Merci d'avance

 

[Dranreb]

Re : Adressage relatf

Bonsoir.

À priori :

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=MS Access Database;DBQ=" _
   & fileoopen & ";DefaultDir=F:;DriverId= 25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;", _
   Destination:=Range("$A$1")).QueryTable

ficouvert = activeworkpath & fileoopen ne devrait rien donner de bon. Mais faites des MsgBox pour vérifier.

 

[pilou76]

Re : Adressage relatf

Merci ça marche.
Effectivement fileoopen renvoie le chemin & le nom du fichier, donc pas besoin de rajouter activeworkpath.
Merci encore