export d'un tableau au format PDF

[letroubadour]

Bonsoir

je cherche une macro qui me permettrait d'enregistrer une feuille (essai) dans un répertoire quelconque (essai 2) au format PDF

merci

 

[Manu62]

Re : export d'un tableau au format PDF

Bjr,

Il ya des sujets avec génération en pdf creator qui marche très bien. (j'utilise que cela)

Manu

 

[letroubadour]

Re : export d'un tableau au format PDF

C'est bon ça marche correctement avec le dernier code je peux mettre un autre nom de feuille P01 , P09 , etc ... c'est nikel

merci d'avoir passé du temps sur mon problème

mille fois merci

Raphael

 

[Manu62]

Re : export d'un tableau au format PDF

SAlut,

Il ya des fils pour export en pdf via pdf creator qui fonctionne bien

J utilise que cela

Manu

 

[Staple1600]

Re : export d'un tableau au format PDF

Re

manu62
De mémoire, il y a un complément à télécharger pour avoir un export natif en PDF dans Excel 2007
(comme c'est le cas pour Excel 2010)

EDITION: Voici le lien pour le télécharger

 

[JCGL]

Re : export d'un tableau au format PDF

Bonjour à tous,

le code de JCGL fonctionne si je le mets tel quel mais si je change la feuille 9 pour mettre la feuille P01 ça ne fonctionne plus

Sub PDF()
Dim Chemin As String
Chemin = "H:\tableau de travail\"
Feuil9.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "01.pdf"
End Sub

Je répondais à ton # 3, il te suffisait d'adapter ou de joindre un fichier...
Je ressens une certaine lassitude devant de telles demandes...

A + à tous

 

[letroubadour]

Re : export d'un tableau au format PDF

maintenant que ça fonctionne je veux l'adapter a la macro suivante.

j'ai un curseur qui sélectionne un mois et un bouton qui affiche mon tableau de travail du mois selectionné , avec la macro que vous avez fait , je veux avec un autre bouton exporter la feuille en PDF

voici ma macro j'ai rajouté la macro de l'export pdf mais elle est pas a sa place


Sub export_pdf()
Dim moi As Integer
'moi = InputBox("Quel mois ")
moi = Range("d4")
Select Case moi
Case 1
Sheets("P01").Select
Application.DisplayFullScreen = True
Case 2
Sheets("P02").Select
Application.DisplayFullScreen = True
Case 3
Sheets("P03").Select
Application.DisplayFullScreen = True
Case 4
Sheets("P04").Select
Application.DisplayFullScreen = True
Case 5
Sheets("P05").Select
Application.DisplayFullScreen = True
Case 6
Sheets("P06").Select
Application.DisplayFullScreen = True
Case 7
Sheets("P07").Select
Application.DisplayFullScreen = True
Case 8
Sheets("P08").Select
Application.DisplayFullScreen = True
Case 9
Sheets("P09").Select
Application.DisplayFullScreen = True
Case 10
Sheets("P10").Select
Application.DisplayFullScreen = True
Case 11
Sheets("P11").Select
Application.DisplayFullScreen = True
Case 12
Sheets("P12").Select
Application.DisplayFullScreen = True

Dim Chemin As String
Chemin = "H:\ipcsr\"
Sheets("P01").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "01.pdf"
Case Else
Sheets("Menu").Select
Application.DisplayFullScreen = True
'MsgBox "Je ne connais pas ce numéro de mois " & moi

End Select
End Sub

 

[kiki29]

Re : export d'un tableau au format PDF

Salut, remplace Sheets("P01").ExportAsFixedFormat... par ActiveSheet.ExportAsFixedFormat ... et le nom de fichier idoine.

 

[letroubadour]

Re : export d'un tableau au format PDF

nikel tous marche comme je voulais merci a tous , je ne pouvais pas mettre mon fichier il est un peu long et confidenciel, c'est sur que ça aurait été plus simple

encore merci a tous

voici la macro terminée


Sub export_pdf()
Dim moi As Integer
'moi = InputBox("Quel mois ")
moi = Range("d4")
Select Case moi
Case 1
Sheets("P01").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 2
Sheets("P02").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 3
Sheets("P03").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 4
Sheets("P04").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 5
Sheets("P05").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 6
Sheets("P06").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 7
Sheets("P07").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 8
Sheets("P08").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 9
Sheets("P09").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 10
Sheets("P10").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 11
Sheets("P11").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select
Case 12
Sheets("P12").Select
Application.DisplayFullScreen = True
Chemin = "H:\ipcsr\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
Sheets("Menu").Select

Case Else
Sheets("Menu").Select
Application.DisplayFullScreen = True
'MsgBox "Je ne connais pas ce numéro de mois " & moi
End Select
End Sub

 

[Staple1600]

Re : export d'un tableau au format PDF

Re


En un peu plus court et avec tous les Dim ...

Sub export_pdf()
Dim Chemin$, mois As Integer
Chemin = "H:\ipcsr\"
mois = Range("d4")
If Not IsNumeric(mois) Then Exit Sub
If mois > 12 Then Exit Sub
Sheets("P0" & CStr(mois)).Select
Application.DisplayFullScreen = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "tableau de travail.pdf"
End Sub