Bonjour,
Voici mon problème :
Je voudrais rajouter une feuille dans plusieurs classeur à la suite. J'ai bien réussi à ouvrir les classeurs, mais les feuilles sont crées dans le fichier du lancement de la macro.
Voici le code :
Si quelqu'un a une solution à me proposer je suis preneur.
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
22
23 Sub Workbook_Open() Dim LstFich, xfile Application.ScreenUpdating = False 'Ouverture des fichiers LstFich = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls", , _ "Sélection des fichiers à convertir", , True) 'true pour une selection multiple If Not IsArray(LstFich) Then Exit Sub For Each xfile In LstFich Workbooks.Open FileName:=xfile On Error Resume Next Workbooks(xfile).Activate Sheets.Add On Error GoTo 0 ActiveWorkbook.Save ActiveWorkbook.Close Next xfile ActiveWorkbook.Close End Sub
Merci.
Partager