Erreur d'exécution 9 l'indice n'appartient pas à la selection
EMERAUDE
-
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment la macro ci-dessous pourrait fonctionner s'il vous plait?
J'y connais rien et j'ai besoin de copier les données d'une série de fichiers xls dans un seul autre pour créer une base de donnée.
Dim sText As String
sfile = ActiveWorkbook.Name
For i = 1 To 2
sText = "\\I:\TOOLS_EXCEL\" & i & ".xls"
Workbooks.Open sText
Workbooks(sfile).Worksheets("Data").Cells(i, 1) = i
Workbooks(sfile).Worksheets("Data").Cells(i, 2) = Workbooks(sText).Worksheets("Analyse du 20110512 ").Cells(3, 3)
Workbooks(i & ".xls").Close False
Comment la macro ci-dessous pourrait fonctionner s'il vous plait?
J'y connais rien et j'ai besoin de copier les données d'une série de fichiers xls dans un seul autre pour créer une base de donnée.
Dim sText As String
sfile = ActiveWorkbook.Name
For i = 1 To 2
sText = "\\I:\TOOLS_EXCEL\" & i & ".xls"
Workbooks.Open sText
Workbooks(sfile).Worksheets("Data").Cells(i, 1) = i
Workbooks(sfile).Worksheets("Data").Cells(i, 2) = Workbooks(sText).Worksheets("Analyse du 20110512 ").Cells(3, 3)
Workbooks(i & ".xls").Close False
A voir également:
- Erreur d'exécution 9 l'indice n'appartient pas à la selection
- Indice téléphonique - Guide
- A qui appartient ce numéro - Guide
- A qui appartient ce numéro de gsm belgique ✓ - Forum Opérateurs & Réseaux mobiles
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070643 - Accueil - Windows
2 réponses
Bonjour, dans ton code il manque un "next i" (voir boucle for...next). Concernant ton erreur, elle se situe où? (utilises F8 pour un pas à pas)
Bonne semaine!