code erreur 9

Bonjour a tous
je suis débutant en vba
j'ai une macro pour enregistrer un fichier dans un autre quant il est ouvert mais lorsque je fais la même opération avec le fichier destination fermé il y a une erreur 9.je souhaits si le fichier est fermé de pouvoir le sélectionné pour l'enregistrer .

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton8_Click() Sheets("Feuil1").Copy After:=Workbooks("ClasseurB.xlsx").Sheets(1)   ActiveSheet.Name = Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm-ss") ActiveWorkbook.Save ' ActiveWorkbook.Close Windows("Tableau de Production S21.xlsm").Activate End Sub

---

Salut, commence par lire et assimiler : Lire et écrire dans les classeurs Excel fermés

salut,merci pour la réponse mais je souhaits sur le fichier destination ouvert mais si par erreur il est fermé je veux contourné le problème

Bonjour,

il te suffit de tester si le fichier est déjà ouvert ... si c'est pas le cas tu l'ouvres et ensuite tu copies la feuille

fait une recherche rapide sur le forum, y'a des dizaines de méthodes pour tester ça ;)