Erreur d'exécution 9 l'indice n'appartient pas à la selection
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
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)
-
Bonjour, pour les prochains qui liront ce sujet, peux-tu partager ta solution? Aussi, merci de passer le sujet en résolu.
Merci et bonne semaine
