Discussion :

[Laeny]

Bonjour

à tous voila j'ai un dossier avec 1 fichier maitre et 65 fichiers élèves
le but est de changer les contenus des 65 fichiers avec un copier/coller (RANGE)
j'ai fait plein de test mais ça bug toujours
j'ai fait plein de manip différente, mais quand j'arrive à copier je ne sauvegarde plus
je test avec 2 fichiers car en plus je dois sauvegarder le fichier élèves et le fermer
voici mon fichier si vous avez une idée
cordialement
Merci pour ce qui passerons par là

bizarrement par moment mon dernier fichier eleve change de nom de Sheets
avec 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
16
17
18
19
20
21
For i = 1 To 3
 
Workbooks.Open ("Elève_" & i & ".xlsx")
Dim Wx As Workbook, W1 As Workbook
Dim fx As Worksheet, f1 As Worksheet
Dim rax As Long, ra1 As Long
 
Set Wx = Workbooks("BE_FINAL.xlsm")
Set W1 = Workbooks("Elève_" & i & ".xlsx")
Set fx = Wx.Sheets("EVAL1")
Set f1 = W1.Sheets("EVAL")
 
'rax = fx.Range("A1:I350")
'ra1 = f1.Range("A1")
 
fx.Range("A1:I350").Copy f1.Range("A1")
 
ActiveWorkbook.Save
ActiveWorkbook.Close
 
     Next i

BE_FINALt.xlsmElève_1.xlsxElève_2.xlsx
Laeny

[Laeny]

Voila
J'ai trouvé
j'ai tout mis sous le même format xlsm
et j'ai utilisé

Workbooks(2).Save
ActiveWorkbook.Close
wb1.Activate 'Pour afficher wb1