Erreur d'exécution 9 l'indice n'appartient pas à la selection
EMERAUDE
-
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3501 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
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Erreur 4101 - Forum Lecteurs et supports vidéo
- Erreur player 4001 free - Forum Samsung
- Erreur 0x80070570 ✓ - Forum Windows 10
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!