Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

P

PMO2

XLDnaute Accro

• 3 Octobre 2015

• #2

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour,

Quelque chose comme

Code:

Sub validecoupe()
Dim WB As Workbook
Dim Nom$

Nom$ = Sheets("CoupeVIM").[g2]
If Nom$ = "" Then Nom$ = "zzzz"
Set WB = Workbooks.Add(xlWBATWorksheet)

ThisWorkbook.Sheets("CoupeVIM").Copy Before:=WB.Sheets(1)
Application.DisplayAlerts = False
WB.Sheets(2).Delete
Application.DisplayAlerts = True

WB.SaveAs Filename:="F:\" & Nom$ & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
WB.Close SaveChanges:=False
End Sub

 

Vote positif 0 Vote négatif

D

dapiloux

XLDnaute Nouveau

• 4 Octobre 2015

• #3

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour PMO2

Oui c'est bien ça merci.
Petit question:
Si je change l'adresse de destination qui est pour l'instant celui-çi:
WB.SaveAs Filename:="F:\" & Nom$ & ".xlsx"

Je doit par exemple noté la nouvelle adresse comme ça?
WB.SaveAs Filename:="C:\MES DOCUMENTS\" & Nom$ & ".xlsx"

 

Vote positif 0 Vote négatif

D

dapiloux

XLDnaute Nouveau

• 4 Octobre 2015

• #4

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour
Donc après plusieurs test ça ne marche pas si je change "F:\" pour "C:\MES DOCUMENTS\"
Comment faire? quel est le code, je ne comprend pas?
Merci pour vos réponse

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 4 Octobre 2015

• #5

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour,

Vous n'indiquez probablement pas le bon chemin, vérifiez le.
Chez moi, j'ai "C:\Documents and Settings\Patrick\Mes documents\"

 

Vote positif 0 Vote négatif

D

dapiloux

XLDnaute Nouveau

• 4 Octobre 2015

• #6

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Effectivement.

Merci pour votre aide, cela fonctionne nickel.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Octobre 2015

• #7

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonsoir à tous


Une autre manière de l'écrire, un chouia plus court

Code:

Sub Wks2Wbk()
Dim NWBK As Workbook
Sheets("Feuil1").Copy: Set NWBK = ActiveWorkbook
NWBK.SaveAs "C:\temp\" & NWBK.Sheets(1).[g2] & ".xlsx", FileFormat:=51: NWBK.Close False
End Sub

NB: penser à adapter le nom de la feuille et du chemin avant de tester
Et il vaut mieux que la cellule G2 ne soit pas vide 😉

 

Vote positif 0 Vote négatif

D

dapiloux

XLDnaute Nouveau

• 5 Octobre 2015

• #8

Re : Enregistrer une feuille dans un nouveau classeur avec un nom spécifique sous VBA

Bonjour a tous et a toutes

Super ça marche nickel, merci.

 

Dernière modification par un modérateur: 5 Octobre 2015

Vote positif 0 Vote négatif