Bouton enregistrer erreur 1004 je patauge

bonjour,

tout est dans le titre, je suis relativement débutant à vba et malgré mes nombreuses recherche je ne parviens pas à solutionner mon problème. J'ai créé un bouton dont je souhaite qu'il me permette d'enregistrer les fichiers dans un dossier défini, avec un nom défini par des contenus de cellules, et je voudrais que ce fichier soit en lecture seul et non modifiable avec les macros désactivées. seulement voilà je bloque déjà rien que sur la sauvegarde, ma formule me parait pourtant viable mais j'ai droit à la fameuse erreur 1004. Alors je me tourne vers vos yeux experts pour un petit coupe de pouce.

Voilà le code:

Private Sub CommandButton1_Click()

ThisWorkbook.SaveCopyAs Filename:="C:\Users\jean-baptiste\Bureau\EVALUATION_BADMINTON_DNB" & "C1" & "H1" & "K1" & "N1" & ".xls"

setattr (C:\Users\jean-baptiste\Bureau\EVALUATION_BADMINTON_DNB" & "C1" & "H1" & "K1" & "N1" & ".xls"), vbReadOnly

MsgBox "Document sauvegardé"

End Sub

D'avance merci de vos lumières!

Et pour plus de lisibilité voilà le fichier concerné.

Encore une fois d'avance merci de votre considération.

Bonjour,

A tester.

Cdlt.

Private Sub CommandButton1_Click()
Dim Chemin As String, nomFichier As String

    Chemin = "C:\Users\jean-baptiste\Bureau\"
    nomFichier = "EVALUATION_BADMINTON_DNB" & C1 & H1 & K1 & N1 & ".xls"

    ThisWorkbook.SaveCopyAs Filename:=Chemin & nomFichier
    SetAttr Chemin & nomFichier, vbReadOnly
    MsgBox "Document sauvegardé"

End Sub

bonjour,

merci de votre proposition, malheureusement ça ne fonctionne pas.

je vous mets en pièce jointe le message d'erreur et les précisions données par le débogage.

merci.

et voici l autre

Re,

J'ai testé chez moi précédemment et cela fonctionnait.

Mais le chemin était différent, pas sur le bureau

Cdlt.

Bonjour,

Effectivement avec un chemin différent du bureau ça fonctionne ! merci beaucoup!

Sportivement.