Macro Enregistrement

[Sébbb]

Bonjour à toutes et à tous,

Voilà en fouillant dans les archives, sur un fil concernant la désactivation du bouton Enregistrer, j'ai trouvé ce bout de code:

Sub Record()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:='Classeur Microsoft Excel(*.xls), *.xls')
If fileSaveName <> False Then
MsgBox 'Sauvegarder en tant que ' & fileSaveName
End If
End Sub

D'après son auteur, il permet de se retrouver dans la même config que Enregistrer sous quand on le lance.

Mon problème, c'est qu'en effet, ca ouvre enregistrer sous mais qd je clique sur Enregistrer dans la fenêtre, le fichier ne s'enregistre pas...

Mon but est de combiner deux codes, le premier qui permet d'inhiber le bouton enregistrer (disquette), et le deuxième est celui rapporté ici.
Au final, qd l'utilisateur cliquera sur la disquette, la fenêtre enregistrer sous s'ouvre.
Ca j'y arrive, mais comme dit précédemment, l'enregistrement ne se fait pas...

Quelqu'un pourrait-il m'éclairer? Ca serait très sympa!!!

Merci d'avance et à très bientôt.

Sébbb

 

[anuky]

Bonjour,

Normalement, le GetSaveAsFilename a pour but de récupérer les données que l'utilisateur a saisi, mais n'effectue pas l'enregistrement.

il faut donc saisir : Save as Filename:=fileSaveName
a la place de :
MsgBox 'Sauvegarder en tant que ' & fileSaveName

Je n'ai pas testé le code mais c'est quelquechose comme ça

Bon courrage

 

[Sébbb]

Merci de te pencher sur mon pb anuky,
j'ai fait ce que préconise mais il y a une erreur de synthaxe.

Je regarde si je peux la corriger,
Peux-tu m'aider?

Merci

Sébbb

 

[Sébbb]

Ca y est, j'ai trouvé, voici ce qu'il fallait noter:

ActiveWorkbook.SaveAs Filename:=fileSaveName

Merci beaucoup anuky, ton aide m'a été précieuse!!!

A bientôt.

Sébbb