J'aimerais savoir ce qui n'a pas marché dans mon script. C'est un script qui export un fichier pdf dans un dossier spécifique.
Sub exportpdf()
Nomdossier = Application.InputBox("Dossier d'enregistrement", "enregistrement en pdf", "Suivi des opération")
dossier = ThisWorkbook.Path & "/" & Nomdossier & "/"
On Error Resume Next
fichierexistant = GetAttr(dossier) And vbDirectory
If fichierexistant = False Then
MkDir (dossier)
End If
ActiveSheet.exportasfixeformat Type:=xlsxTypePDF, _
Filename:=dossier & Sheets("SUIVI OPERATION") & ".pdf", _
quality:=xlsxQualityStandard, _
includdocproperties:=True, _
ignoreprintareas:=False, _
From:=1, To:=1, _
openafterpublish:=False
End Sub
Sub exportpdf()
Nomdossier = Application.InputBox("Dossier d'enregistrement", "enregistrement en pdf", "Suivi des opération")
dossier = ThisWorkbook.Path & "/" & Nomdossier & "/"
On Error Resume Next
fichierexistant = GetAttr(dossier) And vbDirectory
If fichierexistant = False Then
MkDir (dossier)
End If
ActiveSheet.exportasfixeformat Type:=xlsxTypePDF, _
Filename:=dossier & Sheets("SUIVI OPERATION") & ".pdf", _
quality:=xlsxQualityStandard, _
includdocproperties:=True, _
ignoreprintareas:=False, _
From:=1, To:=1, _
openafterpublish:=False
End Sub