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
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
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
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" <contactbruno@voo.be> a écrit dans le message de
news:79b29779-3232-40a3-9b61-94d6351e31cf@z28g2000vbl.googlegroups.com...
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
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
crole
Merci pour la réponse,
j'ai le programme de convertion et je vais créer la macro
Bonne soirée
Merci pour la réponse,
j'ai le programme de convertion et je vais créer la macro