Discussion :

[Rynn]

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

[PMO2017]

Bonjour,

A tout hasard essayez le code suivant

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
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

[Invité]

Bonsoir,

Essayez :

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

[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

Bonne journée,

Valérie