Erreur d'éxécution 9

[samsam]

je me doute que pas mal d'entre vous l'ont déjà eu et là je commence à m épuiser à chercher le pourquoi mais j'ai cette erreur sur cette partie de code est ce que quelqu'un peut m'aider merci d'avance ( ça bloque au niveau du sheets(array()) )

If Len(test) > 5 Then

If feuille2 = "" Then

feuille2 = """" + test + """"

Else

feuille2 = feuille2 + ", " + """" + test + """"

End If

Else

If feuille1 = "" Then

feuille1 = test + """"

Else

feuille1 = feuille1 + ", " + """" + test

End If

End If

Workbooks(classeur).Activate

Wend

'fin excursions

'Création des fichiers

chemin = ThisWorkbook.Path & "\"
ThisWorkbook.Activate
Nomfichier1 = "Pré résa excus " & Sheets("A- NOTE DE SYNTHESE").Cells(2, 8).Value & " " & Sheets("A- NOTE DE SYNTHESE").Cells(7, 2).Value & "VF.xls"
Sheets(Array(feuille1)).Select
Sheets(Array(feuille1)).Copy
ActiveWorkbook.SaveAs Filename:= _
chemin & Nomfichier1 _
, FileFormat:=xlExcel8, CreateBackup:=False, local:=True
ActiveWorkbook.Close

 

[samsam]

Re : Erreur d'éxécution 9

je n'ai pas résolu le problème mais je l 'ai contourné 🙂