Microsoft 365 Exporter données vers un autre classeur fermé

PORCHER à dit:

Bonjour,
Pourriez m'aider pour résoudre ce problème;
Je copie bien les données du classeurSource vers le classeurDestination sauf que si je place en fin de macro
classeurDestination.Save et classeurDestination.Close il ouvre le classeur et le referme aussitôt sans sauvegarder ?
Si je retire cette formule il ouvre le classeur, colle mes données sans sauvegarde et ne quitte pas le classeur ?

VB:

Dim classeurSource As Workbook, classeurDestination As Workbook

'définir le classeur source
Set classeurSource = ActiveWorkbook

'définir le classeur destination
Set classeurDestination = Application.Workbooks.Open("C:\Users\jypor\Downloads\Appli\Data.xlsm", , True)

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Feuil1").Range("A2:F9999").Copy Destination:=classeurDestination.Sheets("Feuil1").Range("A2")

'quitter le mode de copie (
Application.CutCopyMode = False
classeurDestination.Save
classeurDestination.Close
End Sub

Merci

Cliquez pour agrandir...

Sub copierJJ()
    Application.EnableEvents = False
    Workbooks.Open "C:\Users\jypor\Downloads\Appli\Data.xlsm"
    ThisWorkbook.Sheets("Feuil1").Range("A2:F9999").Copy Sheets("Feuil1").Range("A2")
    ActiveWorkbook.Close True
    Application.EnableEvents = True
End Sub

PORCHER à dit:

Bonjour Jacky et merci
Il copie et colle sauf en final une fenêtre s'ouvre et me demande de sauvegarder en "copie data"

Cliquez pour agrandir...

PORCHER à dit:

Le Bonjour du matin,
Après une nuit de sommeil j'ai trouvé la solution, la voici
Au lieu de
classeurDestination.Save
classeurDestination.Close
il faut faire comme suit:
classeurDestination.Close SaveChanges:=True
et voila et çà marche.

Cliquez pour agrandir...