Salut !
Merci de m'avoir répondu.
Ton code je l'insère comment dans le mien ?
Parce que quand je l'insère :
Sub Export_PDF()
x = Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Address(0, 0)
If Range(Split(x, ",")(0)).Rows.Count >= 2 Then
n = Range(Split(x, ",")(0)).Row + 1
Else
n = Range(Split(x, ",")(1))(1).Row
End If
Dim fichier As String
With Worksheets("Histo")
fichier = "\" & .Range("n") & " " & "-" & " " & "calendrier au" & " " & .Range("F2") & " " & "et" & " " & .Range("F3") & ".pdf"
Dossier = "C:\Users\utilisateur\Desktop\Travail\Test"
chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
ça me met en jaune cette partie du code :
x = Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Address(0, 0)