macro spéciale

[jally]

Je désire faire une macro faisant: - Fichier - Enregistrer sous - et enregistrer la feuille sous un nouveau nom mais ça ne marche pas et ça me dit à chaque fois: voulez-vous ecraser le fichier nommé ....

Question: comment faire pour attribuer un nouveau nom à chaque fois que j'enregistre.

Merci de m'aider

 

[Wilfried]

Salut , pourquoi ne pas demander à lutilisateur de saisir un nom ? :

m_nom=inputbox("entrer le nom du fichier à enregistrer (sans extensio)")
m_nom=m_nom & ".xls"

A+ Wilfried ;op

 

[jally]

comprends pas ce que tu veux dire.

Merci de me donner la macro ou un exemple pour le faire.

 

[Wilfried]

re

sub enregistrement
dim m_nom as string
m_nom=inputbox("entrer le nom du fichier à enregistrer (sans extensio)")
m_nom=m_nom & ".xls"
workbooks.saveas filename:="C:\" & m_om, fileformat:= _
xlnormal Password:="", writerespassword:="", readonlyrecommended:= _
false, createbackup:=false

end sub

A+ et bonne fête de fin d'années

wilfried ;op