[XL-2007] Macro enregistrement fichier excel en pdf avec nom variable [Résolu]

[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 :

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

[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 :

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 :

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 :

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 :

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 :

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 !!...