XL 2019 Impression PDF

[Didier Quilghini]

Bonjour à tout le monde,
Besoin d'aide svp sur le sujet ci-dessous : merci d'avance.

1/ Procédure qui fonctionne

Sub Pdfbasedevis()

Dim Chemin As String

With Worksheets("BASE DEVIS")

Chemin = "C:\Users\Didier\Documents\MicEnt_Maya\Bases de Données\Base_Donnée_Devis.pdf"

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End With

End Sub



2/ Procédure qui ne fonctionne pas

Où : Range("D2").Select est l’adresse dans la feuille ("BASE DEVIS") où se trouve écrit : "C:\Users\Didier\Documents\MicEnt_Maya\Bases de Données\Base_Donnée_Devis.pdf"



Sub Pdfbasedevis()

Dim Chemin As String

With Worksheets("BASE DEVIS")

Chemin = Range("D2").Select

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End With

End Sub

 

[Bernard_XLD]

Bonjour Didier, le forum

arrêtes de mettre des select partout, c'est une valeur qu'il te faut avec .value et mets un point devant le range pour qu'il se réfère à ton with, vérifies aussi que tu n'as pas mis de caractère interdit dans ton nom de fichier

Cordialement, @+

Chemin = .Range("D2").Value

 

[Bernard_XLD]

Didier, pour tes codes, mets les dans la fenêtre dédiée par le bouton </>, ce sera plus cool pour tout le monde

 

[Didier Quilghini]

Bonjour Yeahou
Ok j'ai bien noté ... Pour info je ne connaissais pas du tout le langage VBA il y a trois semaines,mais par contre je connais bien excel.
Je suis assez fier de mon petit programme de gestion de micro entreprise qui fonctionne bien mais sa construction m'a servi de " didacticiel" pour l'apprentissage des macros ...
et j'ai encore beaucoup à apprendre.
D'où mes erreurs évidentes.
Si cela t’intéresse je peux te l'envoyer par email pour le fun pour te montrer mon travail.... 3 semaines et beaucoup d'heures ..
Je vais appliquer tes conseils.
Et ok j'ai vu le </> pour placer les code, désormais je les placerai là !
Merci beaucoup et bonne journée.
Didier

 

[Didier Quilghini]

Yeahou... ça ne fonctionne pas. Dans D1 j'ai ça exactement :

C:\Users\Didier\Documents\MicEnt_Maya\Bases de Données\Base_Donnée_Devis.pdf

Et le code rectifié c'est :

 Sub Pdfbasedevis()

Dim Chemin As String
    With Worksheets("BASE DEVIS")
    Chemin = .Range("D1").Value
    
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With

End Sub

 

[Bernard_XLD]

ton fichier, c'est celui sur lequel a travaillé soan ?

 

[Bernard_XLD]

ton Range("D1") est sur quelle feuille, la du coup, avec le point il cible sur BASE DEVIS
sans le fichier c'est dur de voir

 

[Didier Quilghini]

Hello Yeahou
J'étais occupé ...
Je ne connais pas Soan.
Mon range(D1) est sur la même feuille que BASE DEVIS..
En fait si je remplace le chemin ("C:\Users\Didier\Documents\MicEnt_Maya\Bases de Données\Base_Donnée_Devis.pdf") ça marche mais si je mets à la place la variable, il m'envoie bouler.
Voilà et voili ....
Cdt
Didier