libellule85
XLDnaute Accro
Bonjour le forum,
Objet de cette macro : imprimer un fichier par feuille (non masquée) au format pdf.
Avec le code ci-dessous le nombre total d'onglet (document) apparait dans le msgbox !! Je m'explique : j'ai par exemple au total 4 feuilles j'en masque une, normalement le message doit me dire les "3 documents pdf...." or il me dit "les 4 documents pdf..." alors qu'il en imprime bien 3.
Serait-il possible de modifier ce code pour avoir le nombre exact de document réellement imprimé dans le msgbox.
D'avance merci pour vos réponses...
Objet de cette macro : imprimer un fichier par feuille (non masquée) au format pdf.
Avec le code ci-dessous le nombre total d'onglet (document) apparait dans le msgbox !! Je m'explique : j'ai par exemple au total 4 feuilles j'en masque une, normalement le message doit me dire les "3 documents pdf...." or il me dit "les 4 documents pdf..." alors qu'il en imprime bien 3.
Code:
......
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression PDF\" & Sheets(i).Name & " " & Application.Proper(mois) & " " & Right(annee, 2) & ".pdf"
End If
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les " & Sheets.Count & " documents PDF viennent d'être créés et sont disponnibles dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression PDF ")
End SubSerait-il possible de modifier ce code pour avoir le nombre exact de document réellement imprimé dans le msgbox.
D'avance merci pour vos réponses...