Discussion :

[igno42]

Bonjour,

En fait, j'ai dans ma feuille 2 une plage de cellules(A2: J21) que j'aimerais enregister dans un fichier pdf par un code que j'affecte à un bouton.

Quelqu'un a-t-il une solution....(je pense qu'il y a un copier/coller à faire)

Merci d'avance

AC

[kiki29]

je pense qu'il y a un copier/coller à faire

Salut, pas exactement si tu as Excel 2007 ou plus voir http://www.developpez.net/forums/d11...-pdf-courriel/ et adapter à ton contexte sinon passer par PdfCreator, pour une recherche sur DVP http://www.google.fr/#sclient=psy-ab...1042&bih=729te

[igno42]

Salut merci pour le lien mais par contre je souhaiterais que cela me demande l'emplacement et non que ça s'enregistre automatiquement dans un endroit...



Voici mon code:

Code :

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

1
2
3
4
5
6
Sheets("Feuil2").Select
    Range("A1:G20").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$20"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\aurélien\Desktop\gdd.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

je pense qu'il faut modiufier la partie en rouge

Merci

[kiki29]

Re, à adapter : ShTst correspond au CodeName de la feuille à sauvegarder : voir http://www.developpez.net/forums/d92...cel/vba-bases/

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
Option Explicit
 
Sub Tst()
Dim NomFichier As Variant
 
    ChDir ThisWorkbook.Path
    NomFichier = Application.GetSaveAsFilename("Test.pdf", fileFilter:="PDF (*.pdf), *.pdf")
 
    If NomFichier <> False Then
        With ShTst
            .PageSetup.PrintArea = "$A$1:$D$26"
            .ExportAsFixedFormat Type:=xlTypePDF, _
                                 Filename:=NomFichier, _
                                 Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                 IgnorePrintAreas:=False, OpenAfterPublish:=False
        End With
    End If
End Sub

[igno42]

Merci j'ai adapté le code...cela fonctionne