impression pdf en un clic

Version imprimable

21/03/2017, 10h45
easy1967

1 pièce(s) jointe(s)

impression pdf en un clic

Bonjour,

je souhaite faire un bouton "impression pdf "mais toutes mais tentatives ont échoué ou le code est faux ou je ne sait pas l'adapter malgré les tutos.
de plus je ne maîtrise vraiment pas vba . :oops:
mon souhait serait de faire un bouton sur mon document onglet AO2 qui en un clic imprime la feuille de l'onglet AO1 et la feuille (50 premières lignes) de l'onglet AO2.
Merci d'avance. :D

excel 2010
21/03/2017, 10h50
joe.levrai

Bonjour,

voir la méthode ExportAsFixedFormat de l'objet WorkSheet, en fournissant l'argument xlTypePDF au paramètre Type

https://msdn.microsoft.com/fr-fr/lib.../ff198122.aspx
21/03/2017, 11h51
kiki29

Salut, voir 1er post, et en bas ce post #1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant
21/03/2017, 12h21
easy1967

oui mais bon ....

Merci de vos réponse je ne doute pas que pour vous cela parait très simple ,mais pour moi c'est du chinois même avec l'enregistreur ça fonctionne jamais !

j'ai essayer mais j'ai toujours des erreurs et bien sur cela ne fonctionne pas .

vous serait il possible de me faire la macro sur le fichier ( car des tutos avec des codes tout prêts j'en est "coller" pas mal mais aucune réussîtes )avec en plus une explication car VBA devient vraiment nécessaire pour moi mais comme ça ne fonctionne jamais je ne visualise pas ou est le problème.

pour excel j'ai commencer comme ça avec des formules qui fonctionnent puis je les adaptes et si cela ne fonctionne pas je les reprend info par info et je trouve ou cela coince.

mais VBA je le répète moi ça fonctionne jamais et c'est rageant de voir le potentiel et de rester comme un crétin devant des solutions que l'ont ne sait pas appliquer.

Merci d'avance de votre comprehension
21/03/2017, 12h42
unparia

Bonjour
Si tout est dit là :

Citation:

vous serait il possible de me faire la macro sur le fichier

tout est dit pour décourager les plus convaincus de l'intérêt d'apporter une telle "aide", dans de telles "conditions".
Bonne chance.
21/03/2017, 13h31
joe.levrai
une ligne tiré d'un de mes projets
Code:

1 2 FeuillePDF.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VBA.Environ("TEMP") & "\toto.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
FeuillePDF est une variable objet contenant la feuille à exporter en PDF.
On peut remplacer ça directement par WorkSheets("MaFeuille") où MaFeuille est le nom de la feuille

Le PDF s'enregistrer dans le dossier TEMP de l'utilisateur et porte le nom "toto.pdf"

Le PDF s'affiche après enregistrement

Là ... plus de possibilité de ne pas réussir ? J'avoue que ça serait rageant, mais il est hors de question qu'on fasse l'étape finale à ta place, sinon tu ne vas jamais avancer dans le monde merveilleux du VBA, un monde pourtant assez simple à prendre en main quand on a les bons réflexes d'apprentissage (j'ai tout appris seul, grâce à ce forum)

help !

merci de vos réponses !

je ne cherche pas la facilite !!! juste que encore une fois, cela ne fonctionne pas et je ne sait pas pourquoi ,vu que je n'ai pas un seul code qui fonctionne pour compare,enfin voici ce que j'ai dans ma macro (qui ne fonctionne pas )
Code:

1 2 3 4 5 Sub imppdf() Worksheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VBA.Environ("TEMP") & "\Offres.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub

Citation:

Envoyé par joe.levrai

FeuillePDF est une variable objet contenant la feuille à exporter en PDF.
On peut remplacer ça directement par WorkSheets("MaFeuille") où MaFeuille est le nom de la feuille

Regarde ce qu'il te manque dans ce que tu as mis :
Code:

1 2 3 4 5 6 Sub imppdf() ' Worksheets("Feuil1") .... adapte le nom Worksheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VBA.Environ("TEMP") & "\Offres.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub

Salut, à adapter

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
Option Explicit
 
Sub IMPRESSIONPDF()
Dim sNomFichierPDF As String
Dim Ar(1) As String
 
    sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"
 
    Ar(0) = "AO1"
    Ar(1) = "AO2"
 
    Application.ScreenUpdating = False
 
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sNomFichierPDF, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
 
    Feuil1.Select
    Application.ScreenUpdating = True
End Sub

22/03/2017, 09h20
easy1967

hourra !!!!

merci a joe.levrai j'ai enfin un code qui fonctionne !!!!! (enfin que j'arrive a faire fonctionner :oops:)

mais ,car bien sur il y a un "mais" et même plusieurs,

kiki29 ton code ma l'air plus adapter a mon problème mais je n'arrive pas a le faire fonctionner serait il possible que tu m'indique exactement les parties ou je doit impérativement modifier car il me semblai qu il ni ai a changer que le sNomFichierPDF mais visiblement ce n'est pas cela .(d’ailleurs le s devant le nom de fichier a quoi sert il ?)

sinon je suis toujours preneur d'un code avec des explications détailler pourquoi un point pourquoi des parenthèses .....
22/03/2017, 09h54
kiki29

1 pièce(s) jointe(s)
Salut, le "s" c'est ce que l'on appelle la notation hongroise, que l'on respecte plus ou moins, ici au lieu de "s" on pourrait mettre "str" pour indiquer le type de variable (string).

Après c'est à toi de faire l'effort, via les FAQs, tutos etc.
- Le VBA qu'est ce que c'est ?
- Support de cours complet pour le VBA d'Excel