Bonsoir

ça fait quelques heures que je bêche là dessus. Une simple macro qui compose un nom de fichier, ç'est réussi à ce que je constate dans la fenêtre espion.

Où ça bug, c'est sur la ligne ActiveWorkbook.SaveAs, que j'ai réduit à sa plus simple expression: erreur d'exécution '1004' Dimension spécifiée non valide pour le type de graphique en cours

Voici le fichier au grand complet, c'est le bouton Enregistrer ces données de la feuille ParamètresTroupeau, la macro EnregistreTout dans le Module2

Merci de bien vouloir vous pencher sur mon problème!

Bonnuit!
Danielle

Bonjour DanC,

Sauf erreur de ma part, par défaut, les versions récentes de Windows ne t'autorisent pas à créer un fichier comme ça à la racine du lecteur "C:".

    Sub EnregistreTout()
    Dim NomFichier As String
    
        NomFichier = "C:\" & Range("Nom_Producteur").Value & " " & Format(Date, "yyyy-mm-dd") _
                & " " & Format(Now, "hh-mm")
        ActiveWorkbook.SaveAs Filename:=NomFichier ' ***** Le problème est ici
    End Sub

Si tu remplaces par exemple par "C:\temp", ça devrait fonctionner cette fois.

Cordialement,

Bonjour Didier_mDF

J'avais trouvé que je ne pouvais pas mettre un caractère spécial, le \, dans le nom du fichier, mais ce n'est pas ça, car quand Enregistrer une macro inscris le nom du fichier dans un dossier spécifié, il y a un \.

Je prends bonne note qu'on ne peut pas écrire à la racine de C et j'ai aussi fait des tests, et oui, on peut mettre \, pourvu que ce ne soit pas avec C

Merci beaucoup pour ton aide précieuse!

Bonne journée!

Danielle