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

[PORCHER]

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 ?

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

 

[Jacky67]

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 ?

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

Bonjour,
Essaye comme le code ci-dessous
Dans l'exemple le classeur "C:\Users\jypor\Downloads\Appli\Data.xlsm" doit exister avec le chemin précisé, ainsi que "feuil1" dans les deux classeurs

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]

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

 

[Jacky67]

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

Re...
Je n'éprouve aucune difficulté avec le code proposé et ne me demande pas de sauvegarde.
Il y a d'autres codes ??
Mettre le classeur avec le problème en pièce jointe

 

[PORCHER]

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.

 

[Jacky67]

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.

Re...
C'est ce que fait...
ActiveWorkbook.Close True
Dans le code proposé.
Mais bon, cela fonctionne, alors tout est bien