Ouvrir fichier depuis userform

Bonjour tous le monde

J'ai créer un userform qui permet d'ouvrir un fichier xls/xlsm mais maintenant je souhaite, ajouter un chemin qui ne change pas.

Private sub CommandButton1_click()
Dim Entree As Workbook, Sortie As Workbook

Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
    ' On ouvre le classeur
    Set Entree = Workbooks.Open(Nomfichierentree)
End if 

Unload modification
End sub
     

Si vous pouvez m'aider merci

Bonjour,

Tu n'ajoutes pas ! Tu remplaces dans : Nomfichierentree =..... ce qui suit le signe = par ton chemin et nom de fichier.

Et tu supprimes le test conditionnel : If... End If qui n'a plus de raison d'être pour ne garder que la ligne d'ouverture du classeur.

Cordialement

Merci

Rechercher des sujets similaires à "ouvrir fichier userform"