Bonjour,
J'ai un petit problème lorsque je lance ma macro précédemment modifié, une erreur d'exécution s'affiche de type "-2147024773" "Document non enregistré".
Le débogueur s'arrête au niveau des propriétés worksheets du with du premier chemin: "dossier export"
Etant donné que le chemin est le même dans d'autres modules et marche correctement, je suis désormais perplexe.
D'avance, merci
Sub Mise_en_PDF()
Dim fichier As String
Dim Ar(3) As String
Ar(0) = "MATIN"
Ar(1) = "AM"
Ar(2) = "NUIT"
Ar(3) = "TOTAL JOURNEE"
Date_F = Format(Date, "ddmmyyyy")
For i = 0 To 3
fichier1 = "tableau_" & Ar(i) & "_" & Date_F & ".pdf"
fichier = "tableau_" & Ar(i) & ".pdf"
dossier = Sheets(2).Cells(10, 5) 'defini la position du chemin export dans le fichier XL
dossier1 = Sheets(2).Cells(11, 5) 'defini la position du chemin archives dans le fichier XL
chemin = dossier & fichier
chemin1 = dossier1 + fichier1
With Sheets(i + 3)
[color=#FFFF00] .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _[/color]
[color=#FFFF00] IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False [/color]
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin1, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
Next i
End Sub