J'ai une macro (ci-dessous) qui fonctionne impeccablement sur Excel 07, mais je n'arrive pas à la faire fonctionner sous Calc 3.3.0. :
- Code: Tout sélectionner
Sub ImprimerPDF()
Dim NbFeuille As Integer
annee = Year(Now)
Select Case Month(Now)
Case 1
mois = "décembre"
annee = annee - 1
Case 2
mois = "janvier"
Case 3
mois = "février"
Case 4
mois = "mars"
Case 5
mois = "avril"
Case 6
mois = "mai"
Case 7
mois = "juin"
Case 8
mois = "juillet"
Case 9
mois = "août"
Case 10
mois = "septembre"
Case 11
mois = "octobre"
Case 12
mois = "novembre"
End Select
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
NbFeuille = NbFeuille + 1
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 " & NbFeuille & " documents PDF viennent d'être créés et sont disponnibles dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression PDF ")
End Sub
Pouvez-vous m'aider ?
D'avance merci
par