Enregistrer ficher actif par macro sous un autre

  • Initiateur de la discussion Initiateur de la discussion wrap food
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

wrap food

XLDnaute Occasionnel
Bonjour

j'aurais besoin d'aide.

je souhaiterais enregistrer le ficher actif sous un autre nom( par macro) tout en laissant le fichier d'original ouvert.
il faudrait aussi que le fichier copier est garde les macro créé dans le fichier d'origine.

J'ai commençais à écrire le début de code, mais cela n'a pas l'aire de fonctionner

Private Sub SAUVEGARDER_Click()
ActiveWorkbook.Copy
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("y1") & ".xls"
End Sub

Pourriez-vous me diriger

par avance merci
 
Re : Enregistrer ficher actif par macro sous un autre

Bonjour wrap food, Jean-Claude,

Il suffit de tester pour voir que ActiveWorkbook.Copy ne va pas du tout...

Ceci va bien sur un fichier .xls :

Code:
Private Sub SAUVEGARDER_Click()
On Error Resume Next 'si le fichier est ouvert
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Range("y1") & ".xls"
Workbooks.Open ThisWorkbook.Path & "\" & Range("y1") & ".xls"
End Sub
Il n'est pas indispensable d'ouvrir le fichier créé, sauf pour vérifier qu'il existe.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
298
Retour