enregistrement fichier excel 2007 en pdf

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : enregistrement fichier excel 2007 en pdf

guillaume660

Bonjour tout le monde,

Malgré le sujet évoqué sur de nombreux forums, je n'arrive pas à solutionner mon problème.

Je souhaite à partir d'un fichier excel 2007 sélectionner quelques onglet, les imprimer en pdf et les enregistrer dans un répertoire (toujours le même) avec comme nom le nom du fichier Excel + la valeur d'une cellule du fichier.

Etant novice sur les macros, j'ai utilisé l'enregistreur de macro mais malheureusement rien ne fait mention dans le code de la partie enregistrement dans le dossier souhaité.

voici mon (très faible) code :

Code :

Sub deplacer()
'
' deplacer Macro
'
'
Sheets(Array("Couts de structures", "CE Struct", "CE Int" )).Select
Sheets("Couts de structures" ).Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Quelqu'un peut-il m'aiguiller ?

Merci

Publicité

kiki29

Salut,voir sur http://www.developpez.net/forums/d [...] distiller/ en bas de page , ce qui devrait aboutir à qqch comme

Option Explicit

Sub Tst_2007()
Dim sNomFichierPDF As String

sNomFichierPDF = ThisWorkbook.Path & "\" & "Essai.pdf"
Application.ScreenUpdating = False

Sheets(Array("Feuil1", "Feuil3", "Feuil5" )).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Sheets("Feuil1" ).Select
Application.ScreenUpdating = True
End Sub

Curieux que l'enregistreur de macros ne te donne rien ?

Message édité par kiki29 le 16-03-2011 à 10:38:51

guillaume660

Bonjour kiki29 et merci,

Je ne comprends pas à quoi correspond la partie

Code :

Sheets("Feuil1" ).Select
Application.ScreenUpdating = True

peux tu m'expliquer ?

guillaume660

Le code ci-dessous fonctionne parfaitement :

Code :

Sub Tst_2007()
Dim sNomFichierPDF As String
sNomFichierPDF = ThisWorkbook.path & "\" & "Couts de structures " & Sheets("DATA" ).range("A2" ).Value & ".pdf "
Application.ScreenUpdating = False
Sheets(Array("Couts de structures", "CE Struct", "CE Int", "CE VIP", "CE Staff" )).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

En revanche, le fichier pdf est enregistré dans le dossier où est le fichier excel, comment faire pour l'enregistrer dans un autre dossier ?

olivthill

Application.ScreenUpdating = False

Cette ligne permet que les actions se fassent sans que la fenêtre active ne soit mise à jour en direct, les traitements se faisant en arrière plan, ce qui permet de gagner un peu de vitesse, quand il y a, par exemple, une boucle sur un ensemble de cellules. Mais ici, dans le cas de la sauvegarde, cela ne sert pas à grand chose.

Pour choisir un autre dossier de destination, il suffit de changer la définition de sNomFichierPDF. Par exemple :

sNomFichierPDF = "C:\Dossier_toto\" & "Couts de structures " & Sheets("DATA" ).range("A2" ).Value & ".pdf "

guillaume660

Parfait, tout fonctionne parfaitement, merci à vous deux !!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

enregistrement fichier excel 2007 en pdf

Sujets relatifs
Création d'un lien HTML vers un fichier local	Help ! AJAX - POST et PHP pour fichier CSV
Code pour changer l'orde d'un nom de fichier	Macro Excel - Problème avec ActiveCell.Font.ColorIndex
Excel VBA Gestion Suivi des stock	[bash] Extraire et concaténer 2 strings depuis un fichier
fusion dans Word à partir d'Excel	Importer fichier de site a site
VBA excel macro conditionnelle HELP!!	Comment Signer une portion d'un fichier XML?
Plus de sujets relatifs à : enregistrement fichier excel 2007 en pdf

Page générée en 0.046 secondes