Bonjour à tous,

J'ai fait une macro qui ouvre un document et copie/colle certaines données, la difficulté viens du fait que chaque semaine le nom des 2 fichiers change, celui qui est ouvert ainsi que celui qui récupère les données.

Voici mon 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
16
17
18
Dim Eff As String
Dim Chemin As String, Semaine As String, NomFichier As String
 
Eff = ActiveWorkbook.Name
 
Chemin = "J:\...\2010\"
NomFichier = "Fiches Prod"
Semaine = Sheets("Total").Range("L1").Value
NomFichierSem = Chemin & NomFichier & Semaine & ".xls"
 
Windows(Eff).Activate
Sheets("Auto Fiche Prod").Select
    Range("A1").Select
 
    Workbooks.Open (NomFichierSem)
 
    'onglet 1
    Workbooks(NomFichierSem).Activate
et la ça bloque ! Il reconnait bien la variable NomFichierSem pour ouvrir le document mais avec Windows(NomFichierSem).Activate ou Workbooks(NomFichierSem).Activate il met : "l'indice n'appartient pas à la selection" par contre pour la variable "Eff" aucun souci.

Comprends pas....

Merci de votre aide

Valérie