Appliquer un gabarit pour une impression en pdf

libellule85

XLDnaute Accro
Bonjour le forum,

Je voulais poser une question à vous les pros d'Excel. Actuellement j'imprime en pdf des factures avec la macro suivante, et je voulais savoir comment faire pour appliquer un gabarit de facture à cette impression.

Code:
Sub ImprimerPDF()
Dim J As Integer
Application.ScreenUpdating = False
On Error Resume Next
'MkDir "C:\Documents and Settings\Moi\Bureau\Impression FL"
'A ne mettre que si l'on veut créer un répertoire
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
J = J + 1
Sheets(i).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\ " & Application.Proper(Sheets(i).[E2].Value) & "  " & Sheets(i).Name & " Edition du " & Application.WorksheetFunction.Proper(Format(Date, "dd mmmm yy")) & " .pdf"
End If
Next i
Sheets(1).Select
Application.ScreenUpdating = True
Select Case MsgBox("Votre(vos) document(s) PDF vient(viennent) d'être créé(s) et est(sont) disponnible(s) dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF  ", vbInformation, "Information Importante !!")
End Select
End Sub

D'avance merci pour vos réponses.
 

libellule85

XLDnaute Accro
Re : Appliquer un gabarit pour une impression en pdf

Bonjour Gilbert_RGI,
Je te remercie pour ta réponse, j'ai un message d'erreur N° 438 "méthode ou propriété non gérée cet objet" et ensuite c'est la ligne ActiveWindow.ExportAsFixedFormat Type:=xlTypePDF.... qui est surlignée en jaune !
 

gilbert_RGI

XLDnaute Barbatruc
Re : Appliquer un gabarit pour une impression en pdf

Voilà essaye ceci
Code:
Sub ImprimerPDF()
    Dim J As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    'MkDir "C:\Impression FL\"
    MkDir "C:\Documents and Settings\Moi\Bureau\Impression FL"
 
    'A ne mettre que si l'on veut créer un répertoire
    On Error GoTo 0
    For i = 1 To Sheets.Count
        If Sheets(i).Visible = -1 Then
            J = J + 1
            Sheets(i).Select
            Range("a1:g30").Select
            Selection.Copy
            Sheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Paste
            Cells.Select
            Sheets(Worksheets.Count).Select
            Application.CutCopyMode = False
 
            'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Impression FL\montest" & i & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\ " & Application.Proper(Sheets(i).[E2].Value) & "  " & Sheets(i).Name & " Edition du " & Application.WorksheetFunction.Proper(Format(Date, "dd mmmm yy")) & " .pdf"
 
            Application.DisplayAlerts = False
            ActiveWindow.SelectedSheets.Delete
            Application.DisplayAlerts = True
        End If
    Next i
    Sheets(1).Select
    Application.ScreenUpdating = True
    Select Case MsgBox("Votre(vos) document(s) PDF vient(viennent) d'être créé(s) et est(sont) disponnible(s) dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF  ", vbInformation, "Information Importante !!")
    End Select
End Sub

a1:g30 est le gabarit ça peut forcément etre autre chose

le chemin indiqué dans le MKDIR est différent du chemin indiqué pour la conception du PDF voir si c'est bien normal
chez moi en test j'ai fait un chemin simple que j'ai laissé en remarque et ça fonctionne :p
 
Dernière édition:

libellule85

XLDnaute Accro
Re : Appliquer un gabarit pour une impression en pdf

re Gilbert_RGI,
En ce qui concerne le chemin dans le MKDIR je ne l'utilise pas j'ai mis un ' pour qu'il soit en commentaire...
Sinon ton code fonctionne impeccable.
Une nouvelle fois tu m'as rendu un grand service.
Encore mille mercis
A bientôt
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088