sauvegarde d'une seule feuille d'un classeur

gilbert_RGI

XLDnaute Barbatruc

• 5 Novembre 2011

• #2

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour

comme ceci avec une simple boite de dialogue

Code:

ActiveSheet.Copy
    Application.Dialogs(xlDialogSaveAs).Show

ou encore avec un chemin précis

Code:

ActiveSheet.Copy
ChDrive "C"
ChDir "C:\Perso"
Application.Dialogs(xlDialogSaveAs).Show

🙄

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 5 Novembre 2011

• #3

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour

Code:

Sheets("Le Nom de La Feuille").Copy
nomfichier = "Ce Que Tu Veux"

ActiveWorkbook.SaveAs ...

Edit Salut Gilbert ...............Pas rafraichit

 

Vote positif 0 Vote négatif

D

denisbouchard

XLDnaute Junior

• 5 Novembre 2011

• #4

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour gilbert_RGI et tactic6,
Merci pour vos réponses, je vais essayé tout ça et reviens vers vous.
A+ et merci
denis

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 5 Novembre 2011

• #5

Re : sauvegarde d'une seule feuille d'un classeur

denisbouchard à dit:

Bonjour gilbert_RGI et tactic6,
Merci pour vos réponses, je vais essayé tout ça et reviens vers vous.
A+ et merci
denis

Cliquez pour agrandir...

une bidouille si le repertoire n'existe pas le créer

Code:

Sub enr2()
    ActiveSheet.Copy
    ChDrive "C"
    On Error GoTo suite
pass:
    ChDir "C:\Perso"
    Application.Dialogs(xlDialogSaveAs).Show
    Exit Sub
suite:
    MkDir "C:/Perso"
    GoTo pass
End Sub

 

Vote positif 0 Vote négatif

D

denisbouchard

XLDnaute Junior

• 18 Novembre 2011

• #6

Re : sauvegarde d'une seule feuille d'un classeur

Bonjour et merci à tous les 2,
j'ai essayé vos 2 solutions, et ça fonctionne très bien.
merci pour vôtre aide.
A+
denis

 

Vote positif 0 Vote négatif