Travailler sur plusieurs fichiers

Résolu
bla -  
 bla -
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
A voir également:

1 réponse

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

Essaie : 
 for i = 1 to 10
nomfich="wb" & i 
workbooks(nomfich).activate 
next i


Cdlmnt
Via
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
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746 > 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
bla > via55 Messages postés 14512 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
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746 > 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
bla > via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention  
 
Super, ça marche!
Merci beaucoup Via
0

Discussions similaires

Comment trouver les fichier cachés ?
zup68 -
VoiciTaReponse -

124 réponses