Nom de fichier avec InputBox

[blanchet]

Bonjour,
Je voudrais changer le non du fichier " BD_1.mdb" par un message InputBox
Je ne trouve pas la procedure, merci de m'éclairer.

Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=H:\USISAB\EXPED\Philippe\ADHOC\palettes\BD_1.mdb;DefaultDir=H:\USISAB\EXPED\Philippe\ADHOC\palettes;" _
), Array("DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A1"))
.CommandText = Array( _
"SELECT PD_COLIS.Date, PD_COLIS.Heure, PD_COLIS.NumFormat, PD_COLIS.Quantième, PD_COLIS.Pds1F, PD_COLIS.Pds2F, PD_C" _
, _
"OLIS.PdsT, PD_COLIS.Freinte, PD_COLIS.TrisColis" & Chr(13) & "" & Chr(10) & "FROM `H:\USISAB\EXPED\Philippe\ADHOC\palettes\BD_1`.PD_C" _
, "OLIS PD_COLIS")

 

[THE CAT 2007]

Re : Nom de fichier avec InputBox

Bj,

sub sdsfdgfd()

MonNom = InputBox(Message, Title, Default)

Chemin="H:\USISAB\EXPED\Philippe\ADHOC\palett es\"+MonNom

With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y( _
"ODBC;DSN=MS Access Database;DBQ=Chemin;DefaultDir=H:\USISAB\EXPED\Philippe\AD HOC\palettes;" _
), Array("DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A1"))