Discussion :

[chikikonkarne]

Bonjour à tous,
Je suis archi nulle en EXCEL alors je ne vous parle pas des macros.
C'est pour cela que je me permets d'ajouter un sujet à ce forum car aucun sujet existant ne répond exactement à mon besoin et malheureusement, je ne sais pas adapter les solutions proposées à mon problème.
J'ai un classeur EXCEL avec 4 onglets.
Je veux pouvoir imprimer le classeur entier en PDF dans le dossier source du fichier EXCEL.
J'ai enregistré une macro où j'enregistre mon classer entier sous format PDF mais je n'arrive pas à l'enregistrer dans le dossier source sans avoir à le nommer.
Le souci c'est que je veux pouvoir utiliser cette macro depuis n'importe quel ordinateur.
Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub printbdc()
'
' printbdc Macro
'
 
'
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Bon de commande PRODIM.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

[gnain]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub printbdc()
 
 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 ThisWorkbook.Path & "\Bon de commande PRODIM.pdf" _
 , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
 :=False, OpenAfterPublish:=True
 End Sub

[chikikonkarne]

Merci GNAIN pour ton aide.
C'est presque bon si ce n'est que ça ne prend pas en compte les zones d'impression de mes onglets...
Normalement je devrais avoir 5 pages car j'ai ajusté les zones d'impression pour chaque onglet à 1 page...
Et je me retrouve avec 32 pages et tous mes onglets de classeur scindés.
Remerci d'avance !

Gaëlle

[gnain]

ça ne prend pas en compte les zones d'impression de mes onglets...
Normalement je devrais avoir 5 pages car j'ai ajusté les zones d'impression pour chaque onglet à 1 page...

Bonjour,
dans ce code la zone d'impression est de A1 à C20 (à adapter)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub printbdc()
    
    WS_Count = ActiveWorkbook.Worksheets.Count
    
    For I = 1 To WS_Count
        ActiveWorkbook.Worksheets(I).PageSetup.PrintArea = "$A$1:$C$20"
    Next

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\Bon de commande PRODIM.pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
 End Sub

[chikikonkarne]

Existe-t-il une possibilité de définir plutôt qu'une zone d'impression qui doit être la même sur tous les onglets (dans votre exemple : A1 à C20), la zone d'impression que j'ai définie par le nom Zone_d_impression sur tous les onglets (j'ai sélectionné mes cellules puis ai utilisé l'option Définir zone d'impression) ?
Merci encore.

[gnain]

Sur excel 2010 si les zones d'impression sont définie, alors le pdf se fait avec les zones d'impression.
malheureusement je n'ai pas 2007 pour tester.

[kiki29]

Salut, sur 2007 c'est la même chose, voir aussi en bas du Post# 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant, à adapter à ton contexte.