Macro enregistrement fichier excel en pdf avec nom variable

Bonjour,

Je souhaite enregistrer une feuille Excel au format pdf avec un nom variable dans un même répertoire.
Le nom du fichier correspond à des cellules nommées.

j'ai déjà une macro qui fonctionne pour enregistrer un fichier excel au format excel sous un autre nom.

Code:

---

1 2 3 4

texte = Range("cli") & " - " & Range("prod") & " " & Range("qual") & " - " & Range("urg") chemin = "\\Elcfr2\sap-créations codes\1-validation resp. compte\" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=chemin & texte

---

Pour le format PDF j'ai cherché, j'obtiens la macro ci-dessous mais ça ne marche pas :

Code:

---

1 2 3 4 5 6

ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte & ".pdf", _ Quality:=x1QualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False

---

Quelqu'un a t-il une solution ?

Merci

Bonjour,

Citation:

---

Pour le format PDF j'ai cherché, j'obtiens la macro ci-dessous mais ça ne marche pas :

---

Quel message d'erreur ?

dans un premier temps, as tu essayé sans toutes les options

Code:

---

1 2	ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte & ".pdf"

---

Il n'y a pas de message d'erreur : la macro plante.
le fichier pdf ne se crée pas.

avec cette macro ça fonctionne mais je souhaite que le nom du fichier pdf soit variable

Code:

---

1 2 3 4

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\CETESSE\Bureau\Ordre d'affrètement.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False

---

Quelle est la valeur de la variable Texte?

le texte reprend plusieurs cellules d'une feuille de calcul que j'ai nommées : d'où

Code:

---

texte = Range("cli") & " - " & Range("prod") & " " & Range("qual") & " - " & Range("urg")

---

mais il est tout à fait possible de concatener ces cellules dans une celle cellule si nécessaire

Citation:

---

le texte reprend plusieurs cellules d'une feuille de calcul que j'ai nommées

---

j'avais bien vu cela, mais quelle est la valeur de Texte après cette ligne

la valeur du texte après la ligne ? Je ne suis pas sûre de bien comprendre la question.
C'est alphanumérique : est-ce que cela répond à la question ?

J'ai le nom du client, le produit, la qualité et le degré d'urgence.

Que retourne (je ne peux pas etre plus clair)

Code:

---

Chemin & Texte & ".pdf"

---

chemin : indique l'endroit où doit être sauvegardé le fichier
texte : indique le nom du fichier

les variables "chemin" et "texte" ont été définies au préalable

j'ai précisé ".pdf" mais c'est peut-être une erreur : j'ai tenté différentes choses !
donc il ne faut pas en tenir compte

je viens de retester ma macro (sans ".pdf") :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macrocat() ' Chemin = "C:\Documents and Settings\CETESSE\Bureau\" Texte = Range("nomtrans") & " - " & Range("num") & " " & Range("date") Application.DisplayAlerts = False   ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte, _ Quality:=x1QualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False   End Sub

---

j'ai le message d'erreur suivant "erreur d'exécution 1004"

je viens également de supprimer dans le nom du fichier le champ "date" il y avait des "/"
et maintenant c'est bon !!

Merci d'avoir insisté car je n'avais pas vu mon erreur !!...

Voici ce qui fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10

Chemin = "\\Elcfr2\logistique\Ordres affrètements\Ordres en PDF\" Texte = Range("nom_transporteur") & " - " & Range("num_ordre") Application.DisplayAlerts = False   ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte, _ Quality:=x1QualityMinimum, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False

---

Bonjour,
je souhaiter développer mon petit prog.
donc enregistrer ma facture excel en pdf avec des nom variables vu que je suia sur MAC c'est un peut difficile
quant meme j'ai ce code quil imprime directe la facture mais sans enregistrer quelqu'un peut m'aides svp ?
merci en avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub PDf() 'Enregistrer Facture en Pdf Chemin = "/Users/Utilisateurs/dynamicauto/Desktop" Texte = Range("Nom_client ") & " - " & Range("Facture_NUM") Application.DisplayAlerts = False   ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _ FileName:=Chemin & Texte, _ Quality:=x1QualityMinimum, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub

---

Salut, voir par ici ?
A priori le séparateur sur fichier Mac est : ?

P.-S. : Balise ton code