ouvrir un nouveau excel avec des onglets spécifiques et l'enregistrer

nicolase78 · 29 Septembre 2011

Bonsoir tout le monde,

J'ai un classeur nommé "Un test".

Je voudrais enregistrer dans le même dossier que celui dans lequel est enregistré le classeur "Un test" que l'on crée un nouveau classeur excel qui comporterait deux onglets, les deux onglets présents dans "un test", nommé "resultat a" et résultat b".

J'ai mis le classeur en lien.

Merci par avance pour votre aide.

Papou-net · 29 Septembre 2011

Re : ouvrir un nouveau excel avec des onglets spécifiques et l'enregistrer

Bonsoir nicolase78,

Voici un exemple de macro qui créé un nouveau classeur avec les 2 feuilles, et l'enregistre dans le répertoire du fichier d'origine :

Code:

Sub Copierfeuilles()
Dim NomFichier As String
Sheets(Array("Résultat a", "Résultat b")).Copy
NomFichier = InputBox("Nom du Classeur", "Enregistrer sous") & ".xlsx"
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & NomFichier)
End Sub

J'ai prévu un InputBox pour donner le nom du fichier (sans extension), mais il est possible de définir ce nom directement dans la macro.

On peut aussi ouvrir une boite de dialogue système "Enregistrer sous" mais c'est un peu plus lourd.

Espérant avoir répondu.

Cordialement.

gilbert_RGI · 29 Septembre 2011

Re : ouvrir un nouveau excel avec des onglets spécifiques et l'enregistrer

comme ceci ?

pour avoir le fichier dans le même repertoire que un test.xls
modifier la ligne

Code:

newW.SaveAs Filename:= fname

par

Code:

newW.SaveAs Filename:=ThisWorkbook.Path & "\" & fname

nicolase78 · 29 Septembre 2011

Re : ouvrir un nouveau excel avec des onglets spécifiques et l'enregistrer

Merci beaucoup à vous deux ça marche parfaitement !
Bonne soirée.

ouvrir un nouveau excel avec des onglets spécifiques et l'enregistrer

nicolase78

XLDnaute Junior

Pièces jointes

Papou-net

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

nicolase78

XLDnaute Junior

Discussions similaires