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

[nicolase78]

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]

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 :

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]

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

newW.SaveAs Filename:= fname

par

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

 

[nicolase78]

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

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