Modifier le nom d'enregistrement d'un pdf

[libellule85]

Bonsoir le forum,

Actuellement je peux choisir (grâce à une liste déroulante) en h3 quel tableau le 1 ou le 2 (qui se trouvent sur la même feuille) je veux imprimer.
En faisant une macro (pour imprimer mon choix en pdf) par l'intermédiaire de l'enregistreur j'ai le code suivant que j'ai mis dans un commandbutton :

Private Sub CommandButton1_Click()
Range("H3").Select
    ActiveWindow.SelectedSheets.PrintPreview
    Application.ActivePrinter = "DocuCom PDF Driver sur Ne04:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,FALSE,,,,,,2,""DocuCom PDF Driver sur Ne04:"",,TRUE,,FALSE)"
        
End Sub

Elle enregistre en pdf en mettant le nom du fichier par exemple : Test Choix Zone.xls. J'aimerais si c'est possible qu'elle mette à la place le nom de la zone ou du tableau. Y a t'il un moyen de faire le changement ??
D'avance merci pour vos réponses

 

[Guest]

Re : Modifier le nom d'enregistrement d'un pdf

Bonsoir,

Il me semble que tu as déjà un sujet ouvert sur le problème ICI

A+

 

[gilbert_RGI]

Re : Modifier le nom d'enregistrement d'un pdf

Bonsoir

sous 2007 ceci doit fonctionner

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:=“sales.pdf” Quality:=xlQualityStandard DisplayFileAfterPublish:=True

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Bonsoir Hasco, gilbert_RGI,
merci beaucoup pour vos réponses.
gilbert_RGI quand j'ai coller ta ligne dans le commandbutton elle s'est tout de suite mis en rouge et c'est mis sur FilName.

 

[gilbert_RGI]

Re : Modifier le nom d'enregistrement d'un pdf

,

Bonsoir Hasco, gilbert_RGI,
merci beaucoup pour vos réponses.
gilbert_RGI quand j'ai coller ta ligne dans le commandbutton elle s'est tout de suite mis en rouge et c'est mis sur FilName.

chez moi ça fonctionne
oups dans la recopie il manque des virgules
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=“sales.pdf” ,Quality:=xlQualityStandard, DisplayFileAfterPublish:=True

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Re,
Cette fois ci il me met erreur de syntaxe !!

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Re,
Ci-joint fichier

 

[gilbert_RGI]

Re : Modifier le nom d'enregistrement d'un pdf

voilà le fichier

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Re gilbert_RGI,
Merci pour ton fichier
Une fois le chemin d'enregistrement modifier il me met erreur d'exécution 1004 et c'est la ligne ActiveSheet qui est surlignée

 

[gilbert_RGI]

Re : Modifier le nom d'enregistrement d'un pdf

il faut dans l'exemple que le dossier "c:/mesdocuments" soit présent sinon erreur
donc ajouter ces lignes en dessous du sheets(1).select

On Error GoTo pass
    MkDir "c:/mesdocuments"
pass:

ce qui permet de ne pas occasionner d'erreur si le dossier existe et d'en créer un s'il n'existe pas
ce qui devrait donner

Sub test()
    Sheets(1).Select
    On Error GoTo pass
    MkDir "c:/mesdocuments"
pass:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\mesdocuments\" & Sheets(1).Name & "_" & Sheets(1).[h3].Value & ".pdf"
    MsgBox "le fichier " & Sheets(1).Name & "_" & Sheets(1).[h3].Value & ".pdf est sauvegardé dans C:\mesdocuments\"
End Sub

 

[libellule85]

Bonjour Gilbert_RGI,
Tout d'abord merci infiniment pour ton aide. J'ai essayé et cela fonctionne à merveille
C'est super.
Encore merci
Bonne journée

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Re Gilbert_RGI,
Je reviens vers toi, car quand j'adapte ta macro à mes tableaux (destination d'enregistrement correctement entrée, paramétrages zones impeccables...) la Ligne ActiveSheet est surlignée en jaune

Je ne comprends vraiment pas pourquoi !!

PS : ne tiens pas compte de ce message il est nul et non avenue : j'avais oublié de modifier le h3 en u3 pour mes nouveaux tableaux..... qu'est ce que je suis c.....
A bientôt

 

[gilbert_RGI]

Re : Modifier le nom d'enregistrement d'un pdf

c'est quoi le select case

 

[libellule85]

Re : Modifier le nom d'enregistrement d'un pdf

Re,
le Select Case est pour la msgbox comme cela on peut rajouter un titre style "Important" ainsi qu'une icône information....
mais cela n'empêche pas ta macro de fonctionner !!