ouvrir un fichier inconnu

[philppe27]

Bonsoir,

Je voudrais ouvrir un fichier dont je ne connais pas la fin du nom du type "budget********".
J'utilise la commande Workbooks.Open Filename:= mais je ne connais pas la syntaxe.
Merci de votre aide.
Cordialement

 

[Staple1600]

Re : ouvrir un fichier inconnu

Bonsoir philippe27

Pourquoi créer deux fois la même discussion ?

Voir du côté de l'opérateur Like

(pour ce faire : ALT+F11 puis F1, ou utilisation du moteur de recherche du forum, et/ou recherches sur le net)

 

[philppe27]

Re : ouvrir un fichier inconnu

une erreur de ma part, j'ai cru ne pas avoir valider la 1ere fois

 

[kiki29]

Re : ouvrir un fichier inconnu

Salut, à adapter à ton contexte

Option Explicit

Sub Lecture()
Dim Fd As FileDialog

    ChDir ThisWorkbook.Path
    Set Fd = Application.FileDialog(msoFileDialogFilePicker)
    With Fd
        .InitialFileName = "budget*"
        .AllowMultiSelect = False
        .ButtonName = "Sélection fichier"
        .Title = "Sélectionner un Fichier"
    End With

    If Fd.Show = True Then
        Application.ScreenUpdating = False

        ' Procédure de Lecture du fichier
        
        Application.ScreenUpdating = True
    End If
    
    Set Fd = Nothing
End Sub

 

[Macpoy]

Re : ouvrir un fichier inconnu

bonsoir le forum, philppe27, kiki29, Staple1600

permettez moi un peu d'humour,

la meilleur réponse que je puisse vous apporter est ici :

https://www.excel-downloads.com/threads/ouvrir-un-fichier-inconnu.139629/

hihihihi désolé je suis d'humeur badine.

 

[Macpoy]

Re : ouvrir un fichier inconnu

Re,
bonsoir carcharodon-carcharias,
certes les coups de marteau cela fait du bien quand cela s'arrête,
mais cet avatar rappel qu'il faut bien vous rentrer ça dans le crâne
Excel peu tout faire sauf le café grâce à tous les foromeurs de cet excellent site.
désolé d'intervenir dans ce fil sans le faire avancer.
@plus