Discussion :

[jackfred]

Bonjour

J'ai fais ce code :

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

L'objectif est de récupérer des données issues de diférents classeurs fermés.
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

[jackfred]

Re

alors là je ne comprend pas...
un expert SVP

Je viens de reprendre tous les fichiers.
alors
A la base les fichiers sont issus d'une récupération de requetes sur intranet.
Là je viens de rouvrir tous les fichiers, de faire "F2" sur la cellule rechercher puis "enter", suivit d'un enregistrement.
Et là surprise ca marche.

Je me vois mal faire cette manip pour chaqu'un des 250 futurs fichiers que je vais devoir récupérer.

Est-ce que qq'un pourrait m'expliquer d'ou vient le pb et si possible comment y remédier..

Merci d'avance

Fred