enregister fichier en pdf avec titre correspondant à nom d'une cellule à une endroit bien précis

[sebbbbb]

Bonsoir à toutes et tous

je me casse la tête sur ce problème

A partir d'un fichier nommé proforma je souhaiterai enregistrer un onglet en pdf avec le nom correspondant à la cellule D18 + date du jour à l'endroit suivant sur mon ordi

D:\user\Mes documents\Seb WM\Docs Modèle\Nouvelle escale\

pouvez vous me donner un coup de main svp ?

un grand merci à vous
seb

 

[sebbbbb]

je précise le nom de l'onglet est Proforma

 

[kiki29]

Salut, pour cela : Excel et l'enregistreur de macro

 

[Yurperqod]

Bonjour à tous

Le code de la MacroTest, comme indiqué par kiki29 est pratiquement celui que donne l’enregistreur de macros

Sub MacroTest()
Dim Chemin As String
Dim NomFichier As String

Chemin = "D:\user\Mes documents\Seb WM\Docs Modèle\Nouvelle escale\"
NomFichier = Sheets("Proforma").Range("D18").Text & "_" & Format(Date, "ddmmyyyy")

ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=Chemin & NomFichier & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=True
End Sub

La macro ne vérifie pas si la cellule D18 est vide.

 

[sebbbbb]

Bonjour Yperqop
c'est parfait merci
et si j'utilise PDF creator, quel est le code stp ?
merci bcp par avance
seb

 

[cathodique]

Salut tout le monde,

et si j'utilise PDF creator, quel est le code stp ?

Au post#3, au bas du message de Kiki29, il y a un lien fort intéressant que tu devrait exploiter.
Le texte du lien est très explicite.

 

[sebbbbb]

Merci cathodique & merci kiki 29

 

[kiki29]

Salut, depuis 2007 SP2 le format pdf est inclus en natif dans Office, donc plus besoin de PDFCreator sauf pour manipuler des pdf

 

[sebbbbb]

Bonjour
le hic c'est qu'au boulot on utilise PDF creator, et pas moyen de passer par autre chose
merci
seb

 

[Yurperqod]

Bonjour à tous

Quelle est ta version Excel au boulot ?

Bonjour Yperqop
c'est parfait merci
seb

Tu as donc testé avec un Excel 2007 ou supérieur donc comme l'a dit kiki29 pas besoin de passer par pdfcreator puisqu'Excel sait enregistrer en PDF tout seul maintenant.

 

[sebbbbb]

bjr
microsoft office 2010
merci

 

[Yurperqod]

Ok
Donc relire mon message d'avant.

 

[sebbbbb]

en fait j'ai finalisé mon programme et j'aimerai que le code ci-dessous (mer le forum) soit adapté pour enregistrement par PDF Creator (dans le fichier mentionné dans le code ci-dessous)

Sub PDF()
Dim Chemin As String
Dim NomFichier As String

Chemin = "I:\IDEA MARITIME\WORMS MTTM\Consignation\"
NomFichier = Sheets("Proforma").Range("D18").Text & "-" & Range("D15") & "-" & Format(Date, "ddmmyyyy")

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & NomFichier & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

un grand merci par avance
seb

 

[sebbbbb]

ce code marche, mais il n'enregistre pas le fichier PDF dans le fichier que je souhaiterai. Vois tu comment y remedier stp ?
merci

 

[sebbbbb]

Hello
j'ai trouvé le problème
ca marche nickel
quel gain de temps
super