ouverture fichier

[al1000]

bonjour,

j'ai une macro qui ouvre un fichier:

'Variable déclarée en entête de module
Dim FichierCible As Workbook
Dim Fichier As Variant


'Demande le numéro du fichier souhaité
Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
Range("b6") = Fichier

'Vérifie que le fichier existe
Fichier = "m:\besoins\Prés " & Fichier & ".xls"
If Dir(Fichier) = "" Then
MsgBox " fichier non trouvé"
Exit Sub


mais mon fichier se nomme pres 01 mais il ne s'ouvre pas avec cette macro

mais quande je le nomme pres 1 la macro ouvre le fichier


comment modifier ma macro?


a+

 

[pierrejean]

Re : ouverture fichier

bonsoir al 100

a mon avis il faut passer de type:=1 a type:=2

c'est a dire du type nombre au type texte (01 est du texte)

teste et dis-nous

 

[al1000]

Re : ouverture fichier

bonjour

super genial cela marche