Bonjour
J'ai fais ce code :
L'objectif est de récupérer des données issues de diférents classeurs fermés.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub Worksheet_Activate() Dim Nom As Variant Dim i As Integer Dim Fichier As Variant Dim R As Variant Nom = "'" & ActiveWorkbook.Path & "\EVALUATIONS " & Worksheets("Garde").Range("F15") & "\" For i = 1 To 7 R = i + 4 Fichier = "[Export" & i & ".xls]" 'MsgBox Fichier Range("C" & R).Value = ExecuteExcel4Macro(Nom & Fichier & "Moyennes'!R1C1") Next i End Sub
Ces données se trouvent tjs à la meme place.
Les classeurs ont tous le même nom, exepté le numéro à la fin (1, 2, 3, ....)
Mon pb est que ce code marche sur un seul fichier fermé et pas sur les autres. (même si je change le nom di fichier de X1.xls à X2.xls) et je ne voi pas pourquoi.
Qq'un aurait une idée
Merci d'avance
Fred
Partager