Discussion :

[mosta2010]

s'il vous plait je suis nouveau , et je veux savoir le code pour ouvrir , apartir d'une commande , un classeur dont son nom se trouve dans la cellule A1. s'il veux plais ne penser pas au lien hypertex.

salutations

[Invité]

Bonjour Mosta2010,

Exemple (si le fichier se trouve sur le même répertoire que le fichier déjà ouvert) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
mfich = Range("A1").Value
Workbooks.Open (mfich)

sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
mfich = Range("A1").Value
mpath = "C:\Rep1\rep2"
Workbooks.Open (mpath & mfich)

[mosta2010]

monseur jacques_jean

quand j'éxécute le deuxième code le message suivant s'affiche
erreur d'xecution "1004"
"C:\Rep1\rep2mfch.xls" introuvable. verifier l'ortographe du nom du classeur et la validité de l'emplacement.

ci-joint le fichier d'esseye

merci de me résoudre ce problème

salutations
mosta2010

ci-après le fichier source

merci

[Invité]

Bonjour Mosta2010,

Autant pour moi j'ai oublié un séparateur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
mpath = "C:\Rep1\rep2\"
 
et non
 
mpath = "C:\Rep1\rep2"

Bien évidemment le répertoire et sous-répertoire ne sont qu'un exemple.

Amicalement.

[Invité]

Re,

Je viens de voir que sur le fichier source non seulement la cellule "A1" contient le nom du fichier à ouvrir mais aussi la cellule "C1" contient le nom de la feuille à sélectionner. Donc pour intégrer cela dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
mfich = Range("A1").Value
nfeuil = Range("C1").Value
mpath = "C:\Rep1\rep2\"
Workbooks.Open (mpath & mfich)
Sheets(nfeuil).Select