Avec une macro ouvrir un fichier

HADORN

XLDnaute Nouveau
À 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

XLDnaute Accro
Salut,
Avec l'enregistreur de macro, cela donnerait ceci.
Code:
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
 

Discussions similaires


Haut Bas