Discussion :

[gratesnif]

Bonjour,

je suis actuellement en train de creer une macro qui transforme des feuilles excel en PDF. jusque là, il existe déja de très bons outils décris dans ce forum.

voici le code que j'utilise:

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
Sub Test()
    Dim Tableau() As String
    Dim TabTemp As Variant
    Dim size As Integer
    Dim i As Integer
 
    size = [Labels].End(xlDown).Row - [Labels].Row
    ReDim Tableau(1 To size)
    For i = 1 To size
        Tableau(i) = [Labels].Offset(i, 0)
        If [Labels].Offset(i, 1) = "Landscape" Then
            Worksheets(Tableau(i)).PageSetup.Orientation = xlLandscape
        End If
    Next i
 
    TabTemp = Tableau()
'    Worksheets(TabTemp).PrintPreview
    Worksheets(TabTemp).PrintOut
End Sub

sauf que ce code me demande le nom du fichier et va me le créer n'importe ou sur le réseau de mon entreprise (un répértoire définit par les administrateurs)

je veux pouvoir spécifier en dur dans mon code le chemin et le nom du fichier source.

merci d'avance

[gratesnif]

j'ai trouvé!!

Code :

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

Worksheets(TabTemp).PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller on FILE:", printtofile:=True, collate:=True, prtofilename:="C:\USERS\file.ps"