variable et nom de fichier

Version imprimable

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:

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. :cfou:

Comprends pas....

Merci de votre aide :)

Valérie

Bonjour,

A tout hasard essayez le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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
 
Dim wb As Workbook
set wb=Workbooks.Open (NomFichierSem)
 
'onglet 1
wb.Activate

Cordialement.

PMO
Patrcik Morange

Bonsoir,

Essayez :

Code:

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 = NomFichier & Semaine & ".xls"
 
Windows(Eff).Activate
Sheets("Auto Fiche Prod").Select
    Range("A1").Select
    
    Workbooks.Open (chemin & NomFichierSem)
          
    
    Workbooks(NomFichierSem).Activate

25/10/2010, 15h15
Rynn

Bonjour,

Merci infiniment pour vos réponses, j'ai testé celle de PMO2017 et ça a marché !!
Je note aussi celle de jacques_jean pour une prochaine fois ça ne manquera pas de servir :lol:

Bonne journée,

Valérie