Ouvrir un fichier grâce à une InPutBox

Bonjour à tous,

Je voudrais savoir si c'est possible en VBA de faire une macro qui nous ouvre une InPutbox, on rentre le nom du fichier Excel que l'on veut ouvrir, qui est présent dans un répertoire dédiée et que lorsque l'on clique sur "OK" ça ouvre le fichier voulu.

Si c'est possible, j'aimerais bien une idée du code possible pour faire ça.

Merci par avance.

Léo

Bonjour Léo

si ton fichier est en extension xlsx :

    Dim Fichier
    Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx),*.xlsx", , "Choisir le fichier ...")
    If Fichier = False Then Exit Sub
    Workbooks.Open Filename:=Fichier

Bonjour Léo …. Bonjour Steelson

un petit fichier pour test

Attention le "chemin" des fichier à ouvrir est à modifier pour votre répertoire.

Private Sub CommandButton1_Click()
Dim Chemin As String  'déclaration variable du chemin adresse des fichiers
Dim Nomfichier As String 'déclaration variable du fichier qui sera à ouvrir

Chemin = "C:\Users\Desktop\"
Nomfichier = InputBox("Saisie de NOM de fichier : ")  ' inputbox qui récupère le nom du fichier à ouvrir

Workbooks.Open Filename:=Chemin & Nomfichier & ".xls"  ' Commmande d'ouverture du fichier

End Sub

Merci bcp à vous deux pour vos réponses !

ça marche nickel

Vous êtes cool

A+ sur le forum