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.
D'avance merci pour vos réponses.
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.