Erreur d'exécution 9 l'indice n'appartient pas à la selection
EMERAUDE
-
tyranausor Messages postés 4198 Statut Membre -
tyranausor Messages postés 4198 Statut Membre -
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
- Iptv erreur de lecture - Forum TV & Vidéo
- Je veux savoir à qui appartient ce numéro ✓ - Forum Mobile
- Erreur upes 1025 - Forum Téléviseurs
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!