Private Sub CboSave_Click()
Dim Feuilles(1 To 3) As String 'déclare le tableau de 3 variables de 1 à 3
If Sheets("FR").Range("M3").Value > 0 Then Feuilles(1) = "FR" 'définit la variable Feuilles(1)
If Sheets("DE").Range("M3").Value > 0 Then Feuilles(1) = "DE" 'définit la variable Feuilles(1)
If Sheets("Other").Range("M3").Value > 0 Then Feuilles(1) = "Other" 'définit la variable Feuilles(1)
Feuilles(2) = "DL" 'définit la variable Feuilles(2)
Feuilles(3) = "POD" 'définit la variable Feuilles(3)
ChDrive "C"
ChDir ("C:\Users\Public\Documents")
'ici tu adapteras car il y avait écrit "Classeur1"
'j'ai corrigé par "Classeur2.xlsm" le mieux serait peut-être : [ThisWorkbook.sheets(Array(...)]
If Feuilles(1) = "" Then
If MsgBox("La première feuille n'a pas été définie ! Voulez-vous continuer ?", vbYesNo, "ATTENTIONS !") = vbYes Then
Workbooks("classeur2.xlsm").Sheets(Array(Feuilles(2), Feuilles(3))).Copy
GoTo SUITE
Else
Exit Sub
End If
End If
Workbooks("classeur2.xlsm").Sheets(Array(Feuilles(1), Feuilles(2), Feuilles(3))).Copy
SUITE:
fichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close
Unload Me 'vide et ferme l'UserForm
End Sub