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 :

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
Si quelqu'un a une solution à me proposer je suis preneur.

Merci.