Erreur d'exécution '1004': la méthode 'Range' de l'objet'_Gl

bonjour,

il manque probablement une zone nommée "Données" dans le nouveau classeur.

Bonjour, 

Merci pour votre réponse. Mais j'ai une feuille nommé "Données" parmi d'autres feuilles 

d'où ma confusion. 

De plus, je ne suis pas très à l'aise avec le code VBA..

Bonjour Barbo_14

Voici le code optimisé tel que je l'ai compris

Sub Export_csv()
  Dim Wbk As Workbook
  Dim Nom As String
  ' Désactiver le rafraichissement
  Application.ScreenUpdating = False
  ' Nom du futur classeur csv
  Nom = Workbooks(ActiveWorkbook.Name).FullName
  Nom = Left(Nom, Len(Nom) - 5) & "_" & Year(Date) & Month(Date) & Day(Date)
  ' Définir ce classeur
  St Wbk = ActiveWorkbook
  ' Déprotéger le classeur
  Wbk.Unprotect Password:="sprs-al8"
  ' Avec la feuille "Données"
  With Wbk.Worksheets("Données")
    ' La rendre visible
    .Visible = xlSheetVisible
    ' La déprotégée
    .Unprotect Password:="sprs-al8"
    ' Copier la feuille dans un nouveau classeur
    .Copy
  End With
  ' Avec le nouveau classeur
  With ActiveWorkbook
    ' Sauvegarder sou le nom définit
    .SaveAs Filename:=Nom & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    ' Le fermer
    .Close SaveChanges:=False
  End With
  ' Avec la feuille "Données"
  With Wbk.Worksheets("Données")
    ' Protéger la feuille
    .Protect Password:="sprs-al8"
    ' La rendre invisible
    .Visible = xlSheetHidden
  End With
  ' Protéger le classeur
  Wbk.Protect Password:="sprs-al8"
  Set Wbk = Nothing
  ' Petit message
  MsgBox ("Le fichier au format .csv a été enregisté sous : " & Workbooks(ActiveWorkbook.Name).Path)
  ' réactiver le rafraichissement
  Application.ScreenUpdating = True
End Sub

A+

Merci beaucoup ! 

Ton code fonctionne parfaitement, j'ai juste dû supprimer la Dim Wbk As Workbook et dans le code la remplacer par ActiveWorkbook, car il me donnait des erreurs de compilation. 

Mais encore merci, tu me sauves