Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel convertir une feuille en format pdf?

convertir une feuille en format pdf?

2 réponses
Avatar
crole
Bonsoir le groupe,

J'ai un classeur client dans lequel j'ai chaque semaine une fiche de
fin de s=E9jour =E0 r=E9aliser sur base d'une feuille type.
Par l'action d'un code VBA la feuille s'archive seul dans un nouveau
classeur.
Ma question:
Est-il possible de rajouter du code =E0 celui-ci pour que cette feuille
soi convertie en fichier pdf.

D'avance merci pour vos r=E9ponses.

Private Sub CommandButton2_Click()
CHEMIN_D_ACCES =3D ActiveWorkbook.Path & "\" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=3DCHEMIN_D_ACCES & _
"Fin de S=E9jour N=B0 " & [f4].Value & ".xls",
FileFormat:=3DxlOpenXMLWorkbookMacroEnabled, CreateBackup:=3DFalse
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton4").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton5").Select
Selection.Delete
ActiveSheet.Shapes("Calendar1").Select
Selection.Delete
ActiveSheet.Columns("A:A").Select
Selection.Delete Shift:=3DxlToLeft
ActiveSheet.Range("A4").Select
End Sub

Cordialement
Crole
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir,
Pour ce faire, il te faut un logiciel tel pdf creator (gratuit), qui
s'installe en tant qu'imprimante.
Il te suffira alors d'enregistrer une macro correspondant à l'impression
dans un fichier au format pdf et à ajouter les lignes de code générées à ta
macro.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"crole" a écrit dans le message de
news:
Bonsoir le groupe,

J'ai un classeur client dans lequel j'ai chaque semaine une fiche de
fin de séjour à réaliser sur base d'une feuille type.
Par l'action d'un code VBA la feuille s'archive seul dans un nouveau
classeur.
Ma question:
Est-il possible de rajouter du code à celui-ci pour que cette feuille
soi convertie en fichier pdf.

D'avance merci pour vos réponses.

Private Sub CommandButton2_Click()
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _
"Fin de Séjour N° " & [f4].Value & ".xls",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:úlse
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton4").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton5").Select
Selection.Delete
ActiveSheet.Shapes("Calendar1").Select
Selection.Delete
ActiveSheet.Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.Range("A4").Select
End Sub

Cordialement
Crole
Avatar
crole
Merci pour la réponse,

j'ai le programme de convertion et je vais créer la macro

Bonne soirée