CREER CLASSEUR, ET LE NOMMER

Salut Yves !

Voici ma façon de procéder :

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
ActiveWorkbook.SaveAs Sheets("Feuil1").Range("B2").Value

Dans ce cas, j'ai mis le nom que je voulais donner à ce nouveau classeur en cellule B2 de la feuille 1

Maintenant, tu peux aussi, éffacer les formules, et ne garder que les valeurs de chaque feuille en faisant :

Sheets("Feuil1").Select
Range("A1:G15") = Range("A1:G15").Value

Tu peux aussi renommer tes onglets :

Sheets(Feuil1").Name = Range ("A3").Value

Ou avec un nom prédéfini : Sheets(Feuil1").Name = "FeuilleBofBis"

Ou même en cumulant les deux :

Sheets(Feuil1").Name = Range ("A3").Value & "Bof"

Puis finir comme ça :

'Fermer sans sauvegarder et sans message d'alerte le classeur original

Windows("TonClasseurOrigine").Activate
Application.DisplayAlerts = False
ActiveWorbook.Close
Application.DisplayAlerts = True


'Sauvegarder et fermer le nouveau classeur

ActiveWorbook.Save
ActiveWorbook.Close

Tu remarqueras, que je fais deux sauvegardes de mon nouveau classeur.

ActiveWorkbook.SaveAs Sheets("Feuil1").Range("B2").Value

Puis tout à la fin : ActiveWorbook.Save

C'est du au fait que je fais des modifs dans les feuilles que j'ai copiées, donc dans un premier temps le classeur est créé et existe, puis je le modifie et l'enregistre de nouveau.

Ah une chose importante !

Je n'ai pas spécifié de répertoire de sauvegarde.

En fait, si tu vas dans le menu Outils / Option / Général / DossierParDéfaut, tu verras qu'il y a un chemin qui mène au répertoire "Mes Documents".

Et si tu ne spécifies pas dans ta macro, le répertoire et son chemin d'accès, Excel, enregistrera ton fichier dans ce répertoire par défaut.

Ceci dit, tu peux, changer le répertoire avec son chemin d'accès, directement dans cet onglet.

Et voilà, fait en premier avec l'enregistreur de macro, puis modifier à ma guise dans le Vbe.

Ceci dit, ma macro est beaucoup plus longue et complexe, car en fait je remanie toutes mes feuilles, mais tu as là, l'essentiel pour ce que tu veux faire.

Bonne nuit

Moa

Merci beaucoup MOA

Cela semble être exactement ce que je cherchais.

De quoi avancer et occuper cet après-midi pluvieux.

Je t'informe du résultat

Bonne journée à toi.

Yves

Bonjour MOA

Cela marche à merveille!

(Sauf que je n'arrive tjrs pas à spécifier un autre répertoire de destination
dans ma macro)

Je cherche. Je vais bien finir par trouver.

Merci encore.

Yves

Salut Yves !

Regarde, fait à l'instant avec l'enregistreur de macro et testé 3 fois.

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Robin\Bureau\ExcelActu\Classeur1test.xls"

@ +

Moa

Merci pour l'aide.

J'avais mis une caisse de guillemets et de paranthèses en trop.

Pour les types pas trop doués comme moi, ce forum est super.

Bonne fin de W.E. à toi

Yves