Erreur d'exécution '1004': la méthode 'Range' de l'objet'_Gl
Résolu/Fermé
A voir également:
- Excel erreur d'exécution 1004 la méthode range de l'objet
- Erreur 0x80070643 - Accueil - Windows
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Si et excel - Guide
4 réponses
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
Ambassadeur
1 568
5 août 2022 à 12:02
5 août 2022 à 12:02
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..
yg_be
Messages postés
23473
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 février 2025
1 568
5 août 2022 à 12:37
5 août 2022 à 12:37
NonoM45
Messages postés
686
Date d'inscription
dimanche 14 juin 2009
Statut
Membre
Dernière intervention
18 février 2025
5 août 2022 à 16:03
5 août 2022 à 16:03
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+