Autres sauvegarde sous PDF

[Macpoy]

bonjour le forum,
je suis excel 2003
après quelques recherches, j'ai trouvé ce code pour enregistrer une feuille
sous le format PDF dans un dossier mais cela ne fonctionne pas.
je vous joint le classeur et la capture écran de l'erreur.
merci d'avance pour votre aide.

 

[Eric C]

Bonsoir le forum
Bonsoir Macpoy

Il te faut donner un nom à ton fichier.

Filename:=dossier & "nom" & ".pdf"

Bonne soirée à toutes & à tous
@+ Eric c

 

[Macpoy]

Bonsoir le forum
Bonsoir Macpoy

Il te faut donner un nom à ton fichier.

Filename:=dossier & "nom" & ".pdf"

Bonne soirée à toutes & à tous
@+ Eric c

merci de m'aider
j'ai modifier la macro comme ceci :
Sub savePDF()

nom = Sheets("Facture").Range("B11").Value
Sheets("Facture").PageSetup.PrintArea = "A1:F40"
Dossier = "D:\Entreprise\Cordonnerie\Compta\"
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

mais cela ne fonctionne toujours pas.
est ce que cela pourrait venir de ma "vielle" version d'excel ?

 

[Eric C]

Re,
Tu as oublié les guillemets à nom ==> Dossier & "nom" & ".pdf"
@+ Eric c

 

[Macpoy]

merci de m'aider
j'ai modifier la macro comme ceci :
Sub savePDF()

nom = Sheets("Facture").Range("B11").Value
Sheets("Facture").PageSetup.PrintArea = "A1:F40"
Dossier = "D:\Entreprise\Cordonnerie\Compta\"
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

mais cela ne fonctionne toujours pas.
est ce que cela pourrait venir de ma "vielle" version d'excel ?

Désolé, même avec ta recommandation cela ne fonctionne pas.

Sub savePDF()
nom = Sheets("Facture").Range("B11").Value
Sheets("Facture").PageSetup.PrintArea = "A1:F40"
Dossier = "D:\Entreprise\Cordonnerie\Compta\"
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & "nom" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

 

[Eric C]

re, désolé pour toi. Fonctionne sous XL 2007.
@+ Eric c

 

[job75]

Bonsoir,

Avec "nom" entre guillemets le fichier s'appellera "nom.pdf".

Alors que le nom doit être ce qui est dans la cellule B11.

A+

 

[Staple1600]

Bonsoir le fil

je suis excel 2003
après quelques recherches, j'ai trouvé ce code pour enregistrer une feuille
sous le format PDF

L'export en PDF n'est apparu avec qu'Excel 2007
(en téléchargeant un addin)
Pour les versions antérieures, il fallait passer par PDFCreator (par exemple)

 

[Macpoy]

Bonsoir le fil


L'export en PDF n'est apparu avec qu'Excel 2007
(en téléchargeant un addin)
Pour les versions antérieures, il fallait passer par PDFCreator (par exemple)

Bonjour et merci pour votre recherche.
je vais donc trouver un autre moyen pour, tout de même, enregistrer et transmettre ces factures.
bonne journée.

 

[Eric C]

Bonjour le forum
Bonjour le fil

Le sujet est traité sur un autre forum avec, comme l'a mentionné notre ami Staple (que je salue au passage ), l'utilisation de PdfCréator : ICI
Bonne journée à toutes & à tous
@+ Eric c

 

[Eric C]

Re, Ah oui, pour ceux qui suivent et aussi pour répondre à notre ami job (que je salue également au passage ), il suffit d'enlever les guillemets à nom qui a été déclaré auparavant :
Avant :

Filename:=Dossier & "nom" & ".pdf",

Après :

Filename:=Dossier & nom & ".pdf",

@+