Bonjour à tous,

J'ai créer une macro qui doit avoir pour but:

1) D'exporter seulement 2 feuilles ("Attest Entretien et "Mesures Entretien") dans un nouveau classeur,
2) enregistrer ce nouveau classeur avec le nom contenu dans la cellule (G2) de la feuille "Attest Entretien" dans un endroit précis sur le réseau (identifié dans la case F1
3) fermer ce nouveau classeur une fois enregistrer

Voici le code actuel:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ATTENT_Save()
 
    Range("F1").Value = Workbooks(ActiveWorkbook.Name).Path
 
    Worksheets(Array("Attest Entretien", "Mesures Entretien")).Copy
 
    Dim Chemin As String
    Chemin = Range("G1") & IIf(Right(Range("G1"), 1) = "\", "", "\") & Range("G2") & ".xlsm"
 
    ThisWorkbook.SaveCopyAs Chemin
 
     ActiveWorkBook.Close 
 
End Sub
Alors la macro exporte correctement les 2 feuilles dans un nouveau classeur mais c'est le classeur d'origine qui s'enregistre (au bon endroit) avec le nom (correct aussi) ... Mais le nouveau classeur créer n'as pas été enregistrer et s'appelle toujours "Classeur1"

Merci beaucoup pour votre aide !