Aide sur macro enregistrer

Version imprimable

Bonjour à tous,
J'ai un petit soucis pour ma macro enregistrer-sous en PDF, je ne parviens pas à lui dire dans quel répertoire enregistrer automatiquement.
elle prend bien les champs pour définir sous quel nom et date.

voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub imprimpdf() Dim a As Worksheet Dim sc As Workbook Dim nouveauNom As String Application.ScreenUpdating = False Set a = ActiveSheet nouveauNom = Range("D13").Value & Range("L13").Value nouveauNom = Replace(nouveauNom, "/", "_") Set sc = Workbooks.Add(xlWBATWorksheet) sc.SaveAs (nouveauNom & ".xls") a.Copy Before:=sc.Sheets(1) ActiveSheet.PrintOut copies:=1 Workbooks(nouveauNom & ".xls").Close SaveChanges:=False Kill nouveauNom & ".xls" Application.ScreenUpdating = True Application.DisplayAlerts = False End Sub
Merci de votre aide

salut,

sur ton code, tu ne lui renseigne pas de chemin d'acces du genre C:\Documents\machin.xls, mais simplement le nom Machin.xls.

Et tu peux t'epargner qq ligne inutile de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub imprimpdf()
 
Dim a As Worksheet

Dim nouveauNom As String
 
Application.ScreenUpdating = False
 
Workbooks.Add(xlWBATWorksheet)
sc.SaveAs ("C:\tonchemin\" & Replace(Range("D13").Value & Range("L13").Value, "/", "_") & ".xls")
'a.Copy Before:=sc.Sheets(1)
'ActiveSheet.PrintOut copies:=1 
Workbooks(nouveauNom & ".xls").Close SaveChanges:=False
Kill nouveauNom & ".xls" '<== ici il te faut le chemin complet pour detruire un fichier 
Application.ScreenUpdating = True
 
Application.DisplayAlerts = False
 
End Sub

16/08/2010, 12h49
vincent477

Bonjour,

Merci, mais pourriez-vous encore m'aider ?

En fait cette macro n'est pas vraiment ce que je recherche

J'aimerais que cette macro enregistre une copie de la feuille sur laquelle je place le bouton avec comme option mes deux cellules de référencent et enregistrent une copie en PDF avec pdf créator comme imprimante dans un dossier précis

Je ne veux rien supprimer.

J'essaye encore, mais je n'y connais rien en macro.

Bonne journée
17/08/2010, 09h41
Nako_lito

pour copier une feuille, tu as la méthode

.Copy de l'objet sheets.

Code:

Thisworkbooks.sheets(1).Copy

ce code, créé une copie de la feuille 1 dans un nouveau classeur, classeur qu'il faut enregistrer par la suite avec un chemin complet:

Code:

workbooks(workbooks.count).SaveAs "C:\Mes Fichiers Excel\Mon nouveau Classeur.xls"

Par contre, je n'ai pas bien saisi l'histoire de tes deux cellules de référence.
17/08/2010, 10h43
vincent477

1 pièce(s) jointe(s)

Merci pour ton aide,

Je ne veux pas convertir un fichier Excel en pdf.
La macro que j'avais trouver me donnais bien un pdf, mais je doit toujours lui donner le chemin d'enregistrement.

j'essaye de faire en sorte que lorsque je clic sur le bouton ma feuille active s'enregistre en format pdf dans un dossier bien précis.
Exemple : C:\mon dossier\sous dossier.

Merci
vincent

Les deux cellules c'est par exemple D13 un nom et L13 une date

Je joint un fichier test pour faciliter l'aide
Merci

Citation:

Je ne veux pas convertir un fichier Excel en pdf.

Citation:

j'essaye de faire en sorte que lorsque je clic sur le bouton ma feuille active s'enregistre en format pdf dans un dossier bien précis.

Convertir un fichier en pdf = Enregistrer un fichier en PDF.

je te file un code que j'ai récupéré quelque part et qui me permet d'enregistrer et imprimer en PDF dans la foulée.

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
'methode permettant d'enregistrer le classeur au format PDF et de l'enregistrer dans B:\
Public Sub PrintToPDF()
 
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String
    Dim lSheet As Long
 
    Set pdfjob = New PDFCreator.clsPDFCreator
    sPDFPath = "B:\"
 
    If pdfjob.cStart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator.", vbCritical + _
                vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
    With pdfjob
        '/// Change the output file name here! ///
        sPDFName = "Toto.pdf"
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With
    'Print the document to PDF
    ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False
 
    'Wait until PDF creator is finished then release the objects
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
 
End Sub

a la place de la ligne sPDFPath = "B:\"

tu met quelque chose comme ca:

sPDFPath = "C:\Mes_Docs\"

et a la place de sPDFName = "Toto.pdf" tu mets:

Code:

thisworkbook.sheets(1).Range("D13") & "_" & thisworkbook.sheets(1).Range("L13") & ".pdf"

17/08/2010, 12h54
vincent477

Merci pour ton code

Mais j'ai une erreur de compilation la

Code:

Dim pdfjob As PDFCreator.clsPDFCreator

Citation:

Type défini par l'utilisateur non défini
17/08/2010, 15h10
vincent477

Re bonjour,

bonne nouvelle cela fonctionne ou presque
Pour le message d'erreur je devais sélectionner dans Outil - préférence (PDF Créator)

Mais maintenant il ne prend pas les cellule D13 et L13 pour enregistrer, mais il enregistre bien dans le bon dossier

Encore Merci
17/08/2010, 15h19
Nako_lito

met des points d'arret pendant l'exécution (F9, ou un clic a coté de la ligne a gauche) et au moment ou il va enregistrer, regarde la valeur de ta cellule.

Si c'est vide, c'est que tu dois pas cibler la bonne chose ou que tu n'as pas la bonne méthode.

Peux tu mettre ta ligne de code ou tu affecte le nom du fichier ?
17/08/2010, 18h51
vincent477

Re

voici la ligne de code

Code:

sPDFName = ThisWorkbook.Sheets(1).Range("D13") & "_" & ThisWorkbook.Sheets(1).Range("L13") & ".pdf"

En fait je n'ai que le underscore comme nom
18/08/2010, 09h33
Nako_lito

je t'ai mis "sheets(1)" mais vérifie bien que ca pointe vers la bonne feuille.
avec ce que je t'ai donné, ca fait référence a la cellule D13 de la feuille 1, si c'est vide, c'est normal que ca te retourne ""

Merci,

Effectivement c'est (sheets 2) .
Un tout grand merci

je replace le code entier afin de partager

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Sub PrintToPDF()
 
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String
    Dim lSheet As Long
 
    Set pdfjob = New PDFCreator.clsPDFCreator
    sPDFPath = "C:\MonDossier\FacturesVentes\CLIENT\"
 
    If pdfjob.cStart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator.", vbCritical + _
                vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
    With pdfjob
        '/// Change the output file name here! ///
        sPDFName = ThisWorkbook.Sheets(2).Range("D13") & "_" & ThisWorkbook.Sheets(2).Range("L13") & ".pdf"

Infos : Sheets = feuille
          Range = Cellule de référence pour le Nom du doc (à retirer du code)

        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With
    'Print the document to PDF
    ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
    
    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False
    
    'Wait until PDF creator is finished then release the objects
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
 
End Sub

!!! ne pas oublier de cocher la case PDF créator dans Outil \ Référence

Très bon site

19/08/2010, 10h21
Nako_lito

une petite précision utile.

Quand tu veut faire référence a une feuille dont tu es sur que le nom sera toujours le même (ici CONTRATS), tu peux appeler ta feuille de cette maniere:

Code:

thisworkbook.sheets("CONTRATS").Range("A1")

car en mettant sheets(2), tu peux faire une mauvaise référence si l'ordre des feuilles bouge.

De même avec une Range, tu dois renseigner une adresse de cellule.
Cependant dans Excel tu as une fonction qui te permet de nomer une plage de cellule (a gauche de la zone de formule, tu as un champs avec l'adresse de ta cellule, si tu rentre une valeur directe, par exemple maCellule a la place de A1), tu pourras l'appeler directement sans connaitre son adresse précise.

Code:

thisworkbook.sheets("CONTRATS").Range("maCellule")

fait référence a la cellule A1.

Ainsi de suite avec plein d'objets d'excel.

Enjoy !

(n'oublie pas de mettre résolu) :ccool: