Travailler sur plusieurs fichiers

Résolu

bla -
bla - 28 mai 2015 à 15:36

Bonjour,

j'ai 10 fichiers ouverts, appelé wb1, wb2, ... , wb10.
J'ai un code à appliquer a chaque fichier et donc j'aimerai faire une boucle for mais j'ai un problème pour appeler chaque fichier.
J'ai:
for i = 1 to 10
wbi.activate
next i

mais wbi n'est pas reconnu
Comment puis-je faire pour appeler chaque fichier à l'aide d'une variable i?

Merci d'avance pour votre aide

Afficher la suite

1 réponse

Réponse 1 / 1
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759
Bonjour

Essaie :
```
 for i = 1 to 10
nomfich="wb" & i 
workbooks(nomfich).activate 
next i
```
Cdlmnt
Via
1
1. bla
  
  merci mais ça ne marche pas,
  err: l'indice n'appartient pas à la sélection au niveau de workbooks(nomfich).activate
  Pourtant nomfich est bien égal à wb3
  
  0
2. via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759 > bla
  
  Re
  
  Ca devrait ! (ça fonctionne chez moi) es tu sur que le nom wb3 est bien celui du fichier ? que dans le nom du fichier il n'y ait pas un espace quelque part ? et que le fichier est bien ouvert ?
  
  0
3. bla > via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention
  
  Voila mon code:
  Set wb3 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_03.csv")
  Set wb4 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_04.csv")
  Set wb6 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_06.csv")
  Set wb7 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_07.csv")
  Set wb8 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_08.csv")
  Set wb9 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_09.csv")
  Set wb10 = Workbooks.Open("Z:\TOUCAN_ACQ_2015_01_10.csv")
  
  For i = 3 To 10
  nomfich = "wb" & i
  Workbooks(nomfich).Activate
  
  Le fichier est bien ouvert et le nom est bon
  
  0
4. via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759 > bla
  
  Ah donc wb3 n'est pas le nom du fichier c'est TOUCAN_ACQ_2015_01_03.csv !
  
  Essaie alors plutôt
  For i = 3 To 10 if i<10 then nomfich = "TOUCAN_ACQ_2015_01_0" & i & ".csv" else nomfich = "TOUCAN_ACQ_2015_01_" & i & ".csv" Workbooks(nomfich).Activate next i
  
  Cdlmnt
  Via
  
  0
5. bla > via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention
  
  Super, ça marche!
  Merci beaucoup Via
  
  0

Travailler sur plusieurs fichiers

1 réponse

Discussions similaires

Newsletters