Impression automatique feuille Excel en PDF

**FCL31** · 25/03/2009, 14h28

Sur Excel 2003, je veu créer un PDF de ma feuille avec le code suivant (qui a l'air de bien marcher) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Sauver_Click()
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
End Sub

Mais je voudrais que le nom du PDF enregistré ainsi que sa destination soit fait automatiquement.

Pour le nom, par exemple se serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Nom1 = Sheets("Feuil1").Range("A40").Value
Nom2 = Sheets("Feuil1").Range("D40").Value
 
NomPDF = Nom1 & Nom2 & ".pdf"

et la destination :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Documents and Settings\User\Bureau\

Mais je sais pas comment faire

Help SVP

**Djohn** · 25/03/2009, 14h56

hello,
a vrai dire tu as fait la plus dur, et ta technique d'imprimer en PDF m'interesse bcp

pour te répondre, je tenterai comme ceci (à tester).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\User\Bureau\" & NomPDF

**FCL31** · 25/03/2009, 15h30

J'ai pas esseyé mais d'aprés moi, ton code va enregistré le ficher le ficher (dans ce cas précis) ainis :

C:\Documents and Settings\User\Bureau\NomPDF.pdf avec xls comme extension au fichier

Pas certain mais je pense

Je pense que les renseignement sont a donné a PDFCreator lors de son execution

**Krovax** · 25/03/2009, 15h36

Un petit tour avec la fonction recherche du forum et voila le résultat

Si j'ai bien compris c'est ce que tu cherche a faire

**casefayere** · 25/03/2009, 16h17

Bonjour,

ne fais pas attention à mes variables mais tu peux t'inspirer de cette fin de code (qui marche chez moi)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       repert & "\" & nomfichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Bonne fin de journée

**FCL31** · 25/03/2009, 16h18

Merci Krovax mais se n'est pas tout à fait se que je cherche.

En effet : l'exemple que tu me donne est basé sur un autre logiciel que PDFCreator et mon but est aussi que le nom du fichier soit crée grace au renseignement de certaines cellules du fichier Excel.

**casefayere** · 25/03/2009, 16h20

tu as peut-atre loupé ma propo relis ma réponse

**JPierreM** · 30/03/2009, 08h14

Un peu tardivement mais si tu as toujours besoin
Je suppose que tu souhaites enregistrer la feuille sur laquelle tu travailles et non le classeur entier

Dans 1 premier temps dans PDFCreator, il faut apporter les réglages suivants :

Dans les options (2ème icône à gauche),
Enregistrement automatique
Cocher la case "Utiliser l'enregistrement automatique"
Dans le champ "Nom de fichier" tout supprimer
Dans le champ "Ajouter un suffixe au nom du fichier" sélectionner par la liste déroulante <Title>. Ton fichier PDF sera enregistré ainsi avec le même nom que ton fichier Excel
Cocher la case "Utiliser ce répertoire pour l'enregistrement automatique" et à partir de la case avec les 3 points parcourir l'arborescence du disque jusqu'à l'endroit voulu
Cocher éventuellement la case "Ouvrir le document avec l'application par défaut, après l'enregistrement automatique"
Cliquer sur enregistrer

Les enregistrements sous PDF seront maintenant automatiques dans le dossier voulu avec le nom du fichier Excel, toutes les boites de dialogues intermédiaires seront supprimées.

Reste à changer le nom de ton fichier Excel.
Je propose simplement de faire une copie de ton fichier sous un autre nom, de l'enregistrer ensuite par l'intermédiaire de PDFCreator puis de supprimer la copie que tu viens de créer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
    Dim a As Worksheet
    Dim sc As Workbook
    Dim nouveauNom
 
    Application.ScreenUpdating = False
 
    Set a = ActiveSheet
    nouveauNom = Range("A10") & " " & Range("D10")
    Set sc = Workbooks.Add(xlWBATWorksheet)
    sc.SaveAs (nouveauNom & ".xls")
    a.Copy Before:=sc.Sheets(1)
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Workbooks(nouveauNom & ".xls").Close savechanges:=False
    Kill nouveauNom & ".xls"
 
    Application.ScreenUpdating = True
 
End Sub

Tu gardes ton fichier original et tu as une copie PDF de la feuille sur laquelle tu travailles

Ça fonctionne avec Excel 2003, merci de me dire si c'est OK

**FCL31** · 31/03/2009, 16h21

Merci JPierreM

je me suis seri de ton code en l'arrangent un peu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Sauver_Click()
 
    Dim a As Worksheet
    Dim sc As Workbook
    Dim nouveauNom As String
 
    Application.ScreenUpdating = False
 
    Set a = ActiveSheet
    nouveauNom = "DDE" & Range("B40").Value & " " & Range("D40").Value & Range("E40").Value
    Set sc = Workbooks.Add(xlWBATWorksheet)
    sc.SaveAs (nouveauNom & ".xls")
    a.Copy Before:=sc.Sheets(1)
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Workbooks(nouveauNom & ".xls").Close SaveChanges:=False
    Kill nouveauNom & ".xls"
 
    Application.ScreenUpdating = True
 
 
Application.DisplayAlerts = False
 
    Application.Quit
End Sub

Je suis pas certain que les modifs que j'ai fait soit toutes necessaire mais sa marche

Toutefois j'ai toujours un probléme (C'est pas marrant sinon)

Pour le nom du document, je me sert de cellules qui sont au format date : 31/03/2009.
Le probléme est que pour le nom d'un fichier, il n'est pas possible de mettre "/" comme caractére (donc sa plante)

Donc je voudrais savoir si il y a moyen de rajouter un code au milieu pour que le caractére "/" devienne "_" par exemple.

**Krovax** · 31/03/2009, 16h32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim nom as string
nom= Replace(nom, "/", "_")

Pour plus d'infos
http://silkyroad.developpez.com/VBA/...nesCaracteres/

**FCL31** · 31/03/2009, 17h03

Merci Krovax

Mais je sais pas ni où ni comment mettre ce code

J'ai esseyée mais sa marche pas

Il doit y avoir un truc que je fait mal

**Krovax** · 31/03/2009, 17h05

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 nouveauNom = "DDE" & Range("B40").Value & " " & Range("D40").Value & Range("E40").Value
'la tu rajoute
nouveaunom=Replace(nouveauNom , "/", "_")

Ps : j'aurais sans doute du utiliser tes nom de variable plutot que de copier/coller un de mes fichiers

**FCL31** · 31/03/2009, 17h11

Oui excuse moi Krovax

Effectivement après mon dernier post, j'ai encore essayé et sa a marche
J'ai mis le même code que tu viens de me donné sa marche nikel
Merci

**JPierreM** · 31/03/2009, 17h15

Concernant les / et - Krovax t'a donné la solution par contre je ne comprends pourquoi tu rajoutes Application.DisplayAlerts = False dans ton code et surtout en fin de code. Cela risque d'être source de problème il faut mettre
Application.DisplayAlerts = true

**FCL31** · 31/03/2009, 17h21

Merci JPierreM pour ta remarque

Mais quel probléme cela peut-il me possé ??

**JPierreM** · 31/03/2009, 17h50

Fais un petit tour dans l'aide et tu seras fixé

Dans ton code sélectionne DisplayAlerts et enfonce la touche F1

A+ JP

**FCL31** · 02/04/2009, 10h05

En fait (si je comprend bien), cette ligne n'affiche pas la fenetre qui demande une cofirmation d'enregistrement du fichier lors de sa fermeture.

Mais c'est exactement se que je veu donc je pense que sa devrait aller

Si je me trompe, fait le moi savoir

Merci

**JPierreM** · 02/04/2009, 13h46

Mille excuses j'étais persuadé que cette propriété gardait la valeur attribuée durant tout le temps que la session Excel était ouverte, en fait non. Elle reprend sa valeur par défaut (true) à la fin de la procédure.
C'est parfois bien mauvais les certitudes.
Enfin nous aurons progressé tous les deux, toi en PDF et moi sur DisplayAlert

**FCL31** · 02/04/2009, 14h43

Envoyé par JPierreM

nous aurons progressé tous les deux, toi en PDF et moi sur DisplayAlert

Des fois c'est en ce trompant qu'on apprend

Merci de ton aide je met

mais si tu pense a quelque chose fait le savoir

**FCL31** · 15/04/2009, 16h33

Je me permet de revenir vers vous car je vien de m'appersevoir d'un truc :

Le code precedent qui marche me nomme un document en fonction de la valeur de certaines cellules (au format date)

Le probleme est que dans cetrains cas, la valeur est decalée de 1 jour :

Si je tappe 02/05/09 , il va me l'enregistrer sous le nom 01_05_09 (j'ai pas esseyé avec cette date mais sa me le fait avec certaines)

Je comprend pas et vous ??

Impression automatique feuille Excel en PDF

Macros et VBA Excel

Discussions similaires

Partager

Partager