Avec une macro ouvrir un fichier

HADORN · 1 Février 2017

À 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 · 1 Février 2017

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

Avec une macro ouvrir un fichier

HADORN

Guest

Lolote83

XLDnaute Barbatruc

Discussions similaires

Avec une macro ouvrir un fichier

HADORN

Guest

Lolote83

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency