Erreur de generation de PDF VBA
Hello
J'ai la macro suivante qui déconne lorsque je veux l'utiliser. Elle a très bien fonctionner jusqu'à aujourd'hui, mais après avoir modifier mon fichier en profondeur (mais sans toucher aux macros), elle ne fonctionne plus
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
Dim SheetArray() As Variant
Dim i As Integer, indx As Integer
Dim DateExtraction As String
Dim MonRepertoire
Dim Repertoire As FileDialog
' liste des onglets sélectionnés
indx = 0
For i = 0 To ListeOnglets.ListCount - 1
If ListeOnglets.Selected(i) Then
ReDim Preserve SheetArray(indx)
SheetArray(indx) = ListeOnglets.List(i)
indx = indx + 1
End If
Next i
If indx > 0 Then
' choix répertoire de stockage
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire de stockage des fichiers générés"
Repertoire.Show
If Repertoire.SelectedItems.Count > 0 Then
MonRepertoire = Repertoire.SelectedItems(1)
Else
Exit Sub
End If
[Surligner] Sheets(SheetArray()).Select[/Surligner]
DateExtraction = Format(Now(), "yyyy-mm-dd")
MsgBox Sheets("ACCUEIL").Range("B15") & " va être enregistré sous " & MonRepertoire
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=MonRepertoire & "\" & Sheets("ACCUEIL").Range("B15") & " _ " & DateExtraction, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox Sheets("ACCUEIL").Range("B15") & " enregistré sous " & MonRepertoire
End If
Unload Me
Sheets("ACCUEIL").Select
End Sub
Private Sub UserForm_Initialize()
Dim n As Integer
For n = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(n).Name <> "PDF" Then ListeOnglets.AddItem ActiveWorkbook.Sheets(n).Name
Next n
End Sub
Trouvé. L'erreur venait d'onglets masqués