Enregistrement Excel en pdf avec un bouton
E
J'ai créer un bouton pour faire un enregistrement PDF en prennent en compte une cellule pour nommer mon PDF, et ca marche bien. Mon problème c'est que je voudrais introduire plusieurs cellule pour nommer mon fichier PDF (nom du client, numéro du rapport, nom de la machine), et la ca marche pas Quelqu'un a une solution
Sub ENREGISTREMENT()
'
' ENREGISTREMENT Macro
'
'
Dim Chemin As String
Chemin = ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & Range("C4").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Sub ENREGISTREMENT()
'
' ENREGISTREMENT Macro
'
'
Dim Chemin As String
Chemin = ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & Range("C4").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Bonjour Enzo6874, le forum,
A tester...
Sub EnregistrerenPDF()
Dim nompdf As String
Dim nom$, rapport$, machine$
nom = Range("A2"): rapport = Range("B2"): machine = Range("C2") 'cellules à adapter
nompdf = nom & "-" & rapport & "-" & machine
Chemin = ActiveWorkbook.Path & "/" & nompdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End SubCordialement,
E
Merci
je ne suis pas arrivé avec votre code, j'ai du mélangé les virgules. Mais j'ai contourné la chose en créent une cellule texte qui regroupe toutes les cellules donc j'ai besoin et je l'ai intégré dans la macro de mon bouton.
En tout cas merci quand même
cordialement
Re,
Merci pour le retour
Mais j'ai contourné la chose en créent une cellule texte qui regroupe toutes les cellules donc j'ai besoin
C'est le principe que j'ai utilisé:
J'ai défini nom en fonction d'une cellule (A2 pour l'exemple) , de même pour rapport (cellule B2 pour l'exemple) et machine (cellule C2 pour l'exemple).
Ensuite j'ai regroupé les 3(séparés par un trait d'union) dans nompdf .
Bonne continuation,