Activer un fichier - boucle

Bonjour,

Je cherche à actualiser plusieurs fichiers via une boucle VBA. Le lien vers mes fichiers est contenu dans un document excel A.

Je cherche à réaliser les étapes suivantes:
- Ouvrir le 1er fichier (nommons le B) dont le nom est contenu en A et le modifier
- Une fois cela fait, ouvrir un autre fichier pour en extraire des informations
- REVENIR sur B pour réaliser d'autres actions

Je rencontre un problème avec la dernière étape. Je voudrais réactiver le fichier B afin d'agir dessus mais:
- Cela ne marche pas avec une méthode directe car mon nom de fichier va varier, étant donné que j'en traiterais plusieurs: Windows("B.xlsm").Activate
- Et je ne trouve pas comment réactiver le fichier déjà ouvert en extrayant son nom en A, présent en cellule A1. J'ai tenté à tout hasard ce procédé mais sans succès.
Windows("A.xlsm").Activate
Workbooks.Activate Filename:=Range("a" & 1).Value

Est ce que quelqu'un aurait une idée?


Par avance merci,
Cordialement,
Laurent

Citation:

---

Envoyé par snaile

- Cela ne marche pas avec une méthode directe car mon nom de fichier va varier, étant donné que j'en traiterais plusieurs: Windows("B.xlsm").Activate

---

Un premier conseil : ne confond pas traiter un fichier (Workbook) et traiter une fenêtre (Window)

Pour ton problème, tu as plusieurs solutions.

Soit tu conserves la référence à ton fichier dans une variable de type Workbook au moment de l'ouverture

Code:

---

1 2 3

Dim WB_Dest as Workbook   Set WB_Dest = Workbooks.Open("MonFichier.xls")

---

Avec ça, tu pourras ensuite utiliser WB_Dest de la même façon que tu utiliserais Workbooks("MonFichier").

Tu peux aussi te servir de son nom placé dans une variable de type String

Code:

---

1 2 3 4

Dim Dest as String   Workbooks.Open("MonFichier.xls") Dest = ActiveWorkbook.Name

---

Ensuite, tu pourras faire référence à ton fichier avec Workbooks(Dest)

Citation:

---

Et je ne trouve pas comment réactiver le fichier déjà ouvert en extrayant son nom en A, présent en cellule A1.

---

Si tu veux l'attraper par son nom, voir la seconde méthode en remplaçant la variable par une référence au contenu de la cellule dans laquelle se trouve le nom.

Super, ça marche! Merci!