export d'un tableau au format PDF

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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
 
Dernière édition:
Vote positif 0 Vote négatif
Re : export d'un tableau au format PDF

Bonjour à tous,

letroubadour à dit:
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
Cliquez pour agrandir...

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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : export d'un tableau au format PDF

Re


En un peu plus court et avec tous les Dim ...
Code: 
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
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
324
Phil69970
Phil69970
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
266
StéphaneDeLà
S
C
  • Question Question
Microsoft 365 tableau avec dossier pdf inclus
Réponses
10
Affichages
453
jurassic pork
jurassic pork
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
392
firecarl
F
T
  • Question Question
XL pour MAC Octroyer les droits
Réponses
10
Affichages
174
telemarrk
T
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
kiki29
R
  • Question Question
Microsoft 365 Export 2 onglets en 1 seul PDF suivant critères
Réponses
11
Affichages
480
raf26
R
jeff1494
  • Question Question
XL 2021 Affichage document (Word ou PDF) dans un formulaire depuis un bouton.
2
Réponses
19
Affichages
269
jeff1494
jeff1494
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
301
Florent74
F
pascal21
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
180
pascal21
pascal21
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
475
MarineU
M
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
263
Phil69970
Phil69970
L
  • Question Question
XL 2016 Fusionner PDF
Réponses
1
Affichages
489
kiki29
kiki29
Caninge
  • Question Question
XL 2019 Extraction de Données dans fichier PDF
Réponses
14
Affichages
620
Caninge
Caninge
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
416
AtTheOne
AtTheOne
D
  • Résolu(e)
Microsoft 365 Impression PDF Folder Windows dans l’ordre avec pause
Réponses
7
Affichages
178
DELATTE
D
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
677
job75
job75
M
  • Résolu(e)
Microsoft 365 Automatisme avec une croix
Réponses
9
Affichages
259
fanfan38
fanfan38
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
515
MBEPID
M
Retour