Ouvrir un classeur en connaissant presque son nom

[Sophie11]

Bonjour,
J'ai un fichier excel qui est automatiquement générer dans un dossier. Je connais donc son emplacement, et je sais que mon fichier se nommera "sophie xxx.xls" où xxx sont des valeurs que je ne connais pas. Je voulais savoir si il était possible d'ouvrir ce classeur par une macro sans connaitre le nom exact de mon classeur excel tout en sachant que c'est le seul fichier qui commence par "sophie". je pensais à l'idée de mettre une * mais je ne sais pas si VBA est capable de le trouver.
Merci beaucoup 😛🙂

 

[tototiti2008]

Re : Ouvrir un classeur en connaissant presque son nom

Bonjour sophie11,

à tester :

Sub Rech()
Dim adrFic As String
    adrFic = Dir("C:\MonDossier\sophie *.xls")
    If adrFic = "" Then
        MsgBox "fichier introuvable"
        Exit Sub
    End If
    Workbooks.Open "C:\MonDossier\" & adrFic
End Sub

 

[pierrejean]

Re : Ouvrir un classeur en connaissant presque son nom

bonjour Sophie

Teste:
(le chemin est a adapter)

Sub test()
chemin = "C:\Repertoire\"
Dossier = "SOPHIE*.xls"
Workbooks.Open Filename:=Dir(chemin & Dossier)
End Sub

Edit: Salut Tototiti 🙂

 

[Sophie11]

Re : Ouvrir un classeur en connaissant presque son nom

yes ca marche 🙂 thanks!!! 😛

 

[mbacle]

Re : Ouvrir un classeur en connaissant presque son nom

Bonjour,
J'ai un peu le même souci que Sophie, sauf que les classeurs à ouvrir dépendent d'un nombre. (par exemple: "123 Dupont.xls"). Je voudrais donc ouvrir le classeur en indiquant seulement "123". Je me suis basé sur l'exemple donné mais ça ne marche pas, je crois certainement à cause de la syntaxe.
Voici mon code:

Sub RechercheFacture()
Dim adrFic As String
Dim NumFacture As Integer
NumFacture = InputBox("Entrez le numéro de Facture")

adrFic = Dir("C:\EDG MB\NumFacture *.xls")
If adrFic = "" Then
MsgBox "fichier introuvable"
Exit Sub
End If
Workbooks.Open "C:\EDG MB\" & adrFic
End Sub

Merci de votre aide

 

[job75]

Re : Ouvrir un classeur en connaissant presque son nom

Bonjour mbacle, bienvenue sur XLD, bonjour le fil, le forum,

On peut écrire :

NumFacture = InputBox("Entrez le numéro de Facture")
adrFic = Dir("C:\EDG MB\[COLOR="Red"]" &[/COLOR] NumFacture [COLOR="red"]& "[/COLOR]*.xls")

ou un peu mieux :

NumFacture = InputBox("Entrez le numéro de Facture")
If NumFacture = "" Then Exit Sub
adrFic = Dir("C:\EDG MB\" & NumFacture & "*.xls")

A+

 

[mbacle]

Re : Ouvrir un classeur en connaissant presque son nom

Merci Beaucoup. Ca marche nickel.
A+