XL 2013 Help VBA

[SHERIDANA]

Bonjour

Je viens de recuperer un fichier avec une macro mais elle bug et je ne comprends rien au macros help me please !!!
ci-dessous la ou ca bug (en gras)



Traitement Feuille SORTIES :
Sheets("SORTIES").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil2").Name = "SORTIES"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="benenoharet10", Scenarios:=True

' Retour sur fichier de base
Windows(NomFichierXls).Activate

merci de votre aide

Sheridana

 

[SHERIDANA]

YESSSSS c'est tout bon j'ai rajouter

une ligne pour dire de créer un onglet apres la premiere créer c'est good

merci de ton aide
vraiement

 

[dg62]

A inserer à la place de la ligne surlignée

If SheetExists("Feuil2") Then
                Sheets("Feuil2").Select
            Else
               ActiveWorkbook.Sheets.Add.Name="Feuil2"
                
 End If

 

[SHERIDANA]

derniere chose maitenant il m'indique pour les fichiers crées le format et l'extension de fichier ne corresponde pas

 

[SHERIDANA]

Ça y est corrigé c est tout bon merci pour tout

derniere chose maitenant il m'indique pour les fichiers crées le format et l'extension de fichier ne corresponde pas

 

[dg62]

Il faut enregistrer en type macro