Sauvergarde sheet+ajoute nom du sheet+date du jours

[edes]

Bonjour à tous

Voila mon soucis j'ai voulus faire une macro afin de sauvegarde en PDF le sheet dans laquelle je travail sous un lien x avec le nom de la sheet utilisé plus la date du jour

En c3 j'ai le nom de ma sheet


Voici mon code :

Sub Macro7()
Sheets("Oostende").Select
ActiveSheet.Buttons.Add(477, 31.5, 52.5, 15.75).Select
Sheets("Oostende").Copy

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\OSS_Shared\Delhaize Direct\Harchives Visites-Stores\c3 & Format(Date, dd - mm - yyyy).pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWindow.Close

End Sub


Un grand merci déjà d'avance

 

[Compte Supprimé 979]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

Bonjour Edes,

Il faut sortir les variables des guillemets, sinon elles sont considérées comme étant du texte

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\OSS_Shared\Delhaize Direct\Harchives Visites-Stores\" [B][COLOR=blue]& C3 & Format(Date, "dd-mm-yyyy") &[/COLOR][/B] ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

A+

 

[tototiti2008]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

Bonjour edes, Bonjour Bruno,

ou peut-être

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\OSS_Shared\Delhaize Direct\Harchives Visites-Stores\[COLOR=blue][COLOR=black]C3"[/COLOR][B] & Format(Date, "dd-mm-yyyy") &[/B][/COLOR] ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

 

[edes]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

bonjour à vous deux

Merci pour la réponse rapide 🙂

Le code fonctionne déjà bcp mieux par contre il ne me prend pas le nom du fichier en C3

Aussi que dois-je rajouter à la fin du code pour que la sauvegarde soit automatique "Du fichier PDF" ?

 

[Pierrot93]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

Bonjour à tous,

si C3 est une cellule, modifier cette partie comme suit, faire précéder éventuellement le "range" du nom de la feuille où se trouve C3 si ce n'est pas la feuille active :

Harchives Visites-Stores\" & range("C3").value & Format

bon après midi
@+

 

[edes]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

super c est parfait
Il ne me reste plus que la sauvergarde automatique si vous pourriez m'aider ?

 

[edes]

Re : Sauvergarde sheet+ajoute nom du sheet+date du jours

je me suis mal exprimer je voulais dire qu'il ferme le soft pdf automatiquement à la fin du process

Merci encore à vous tous