VBA. Boucle pour ouvrir des liens contenus dans une colonne

Résolu/Fermé
Laurent A - 5 févr. 2016 à 10:45
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 5 févr. 2016 à 13:24
Bonjour,

Je débute en VBA, et je me perds dans les forums pour trouver une solution. Je voudrais:
- Ouvrir un document Excel dont le lien est contenu dans une cellule A1
- Agir sur ce dossier
- Ouvrir un deuxième dossier dont le nom est contenu en A2
Et ainsi de suite pour 50 dossiers (tous contenus dans la colonne A).

J'utilise la fonction Workbooks.Open Filename pour ouvrir mon fichier, mais je n'ai pas trouvé comment créer une boucle me permettant d'ouvrir tous les fichiers.

Auriez vous la solution ?


Merci par avance!
Bien à vous
Laurent

A voir également:

1 réponse

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
5 févr. 2016 à 11:06
Bonjour,

Utilisez une boucle simple du type "For i = 1 to DernLigne" où DernLigne correspond la dernière cellule non vide en colonne A.

Du coup ça donnerait quelque chose comme :
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 to DernLigne
Workbooks.Open Filename:=Range("A" & i).Value
Next i
1
ça marche! Merci Théo R.!
0
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31 > Laurent A
5 févr. 2016 à 13:24
Pas de souci :-)

Merci de passer le sujet en Résolu si c'est OK pour vous ;)
0