Discussion :

[catetesse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[catetesse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Quelle est la valeur de la variable Texte?

[catetesse]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

[catetesse]

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.

[jfontaine]

Que retourne (je ne peux pas etre plus clair)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Chemin & Texte & ".pdf"

[catetesse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[catetesse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wissam1975]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

P.-S. : Balise ton code