Macro pour un fichier enregistrer sous et +

[BLOT49]

Bonjour,

J'ai créer un fichier excel qui s'appelle "pomme" avec une macro qui copie des éléments dans un autre fichier "poire".

Est-il possible de créer une macro qui fasse un "enregistrer sous" de pomme qu'on nommerai "pomme1" qui en même temps enregistre poire sous "poire1" (la macro lien) ?

J'espère que c'est assez clair?...

MERCI pour vos réponses

 

[macsscam]

Re : Macro pour un fichier enregistrer sous et +

Bonjour Blot49, le forum,

Tu peux utiliser les fonctions suivantes :

• Sauvegarder uniquement la feuille active

Sub enregistrerFeuilleActive()
activeSheet.Copy
activeWorkbook.saveAs Filename:="C:\Sauvegarde\test.xls"
End Sub

• 
  Deux méthodes pour afficher la boite de dialogue Enregistrer Sous

Sub fenetreEnrgistrerSous1()
commandBars.findControl(ID:=748).Execute
End Sub
Sub FenetreEnrgistrerSous2()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Trouvées sur le wiki de MichelXLD qui rappelle de nombreuses commandes très pratiques : https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

Pour enregistrer ton nouveau classeur, il faut que tu l'aies déclaré comme Worbook comme il faut (dans mon exemple sous le nom de variable NouveauClasseurPoire), cela donnerait :

NouveauClasseurPoire.saveAs Filename:="C:\Sauvegarde\ NouveauClasseurPoire.xls"

Et avec un F1 (aide) sur saveAs, tu obtiendras les options si tu en souhaites,

Bon courage,

--
macsscam