VBA. Boucle pour ouvrir des liens contenus dans une colonne
Résolu
Laurent A
-
Theo.R Messages postés 585 Statut Membre -
Theo.R Messages postés 585 Statut Membre -
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
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:
- VBA. Boucle pour ouvrir des liens contenus dans une colonne
- Déplacer une colonne excel - Guide
- Créer un lien pour partager des photos - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Trier une colonne excel - Guide
1 réponse
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 :
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
Merci de passer le sujet en Résolu si c'est OK pour vous ;)