Travailler sur plusieurs fichiers
Résolu/Fermé
A voir également:
- Travailler sur plusieurs fichiers
- Renommer plusieurs fichiers - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
- Fichiers bin - Guide
- Fusionner plusieurs fichiers excel - Guide
1 réponse
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
26 mai 2015 à 17:08
26 mai 2015 à 17:08
Bonjour
Essaie :
Cdlmnt
Via
Essaie :
for i = 1 to 10 nomfich="wb" & i workbooks(nomfich).activate next i
Cdlmnt
Via
Modifié par bla le 26/05/2015 à 17:26
err: l'indice n'appartient pas à la sélection au niveau de workbooks(nomfich).activate
Pourtant nomfich est bien égal à wb3
26 mai 2015 à 17:38
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 ?
26 mai 2015 à 17:43
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
26 mai 2015 à 18:41
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 iCdlmnt
Via
26 mai 2015 à 19:18
Merci beaucoup Via