Avec une macro ouvrir un fichier

[HADORN]

À partir de la valeur d'une cellule en exécutant une macro je veux aller ouvrir un fichier dont le nom est la valeur de cette cellule . Comment écrire la macro ?

 

[Lolote83]

Salut,
Avec l'enregistreur de macro, cela donnerait ceci.

Sub Ouvrir()
    xChemin = "Ton chemin"          'Sans \ à la fin
    xFichier = "Ta cellule"         '
    Workbooks.Open Filename:=xChemin & "\" & xFichier           'Si l'extention du fichier est indiqué dans Ta Cellule
    Workbooks.Open Filename:=xChemin & "\" & xFichier & ".xls"  'Si l'extention du fichier N'EST pas indiquée (a adapter)
End Sub

Il te faudra renseigner :
- le chemin complet ou se trouve le fichier (variable xChemin)
- le nom du fichier inscrit dans ta cellule (Attention, deux possibilités)

- Soit l'extention du fichier est inscrite en dur dans ta cellule (Exemple : toto.xlsx)
- Soit l'extention du fichier n'est pas inscrite (Exemple : toto) et dans ce cas il faut la rajouter dans le code. (Voir l'exemple du code)
​

@+ Lolote83