Bonjour
Depuis quelques jours, une macro qui enregistre 2 onglets d'un classeur en pdf plante au niveau de la commande ActiveSheet.ExportAsFixedFormat type:=xlTypePDF.:
Private Sub convoc_Click()
' impresssion pdf de la convocation
Dim cla1, ongj As String
Dim lieu, chemin, ori As String
If Left(ActiveSheet.Name, 4) <> "jour" Then
MsgBox "Vous n'êtes pas dans une journée de compétition"
Exit Sub
Else
ongj = ActiveSheet.Name
End If
cla1 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
lieu = ActiveSheet.Cells(6, 3).Value
chemin = ActiveWorkbook.Path & "\" & cla1 & " - convocation J " & Right(ongj, 1) & " - " & lieu & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
j'ai essayé plusieurs chemins et plusieurs nom mais j'ai toujours une erreur d'exécution '-2147417848 (80010108).
Si quelqu'un pouvait m'aider
Depuis quelques jours, une macro qui enregistre 2 onglets d'un classeur en pdf plante au niveau de la commande ActiveSheet.ExportAsFixedFormat type:=xlTypePDF.:
Private Sub convoc_Click()
' impresssion pdf de la convocation
Dim cla1, ongj As String
Dim lieu, chemin, ori As String
If Left(ActiveSheet.Name, 4) <> "jour" Then
MsgBox "Vous n'êtes pas dans une journée de compétition"
Exit Sub
Else
ongj = ActiveSheet.Name
End If
cla1 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
lieu = ActiveSheet.Cells(6, 3).Value
chemin = ActiveWorkbook.Path & "\" & cla1 & " - convocation J " & Right(ongj, 1) & " - " & lieu & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
j'ai essayé plusieurs chemins et plusieurs nom mais j'ai toujours une erreur d'exécution '-2147417848 (80010108).
Si quelqu'un pouvait m'aider