XL 2010 Créer une macro permettant d'enregistrer un fichier avec prise en charge des macros

[allarmen]

Bonjour,

J'ai recherché partout sur le Net sans trouver la réponse à ce problème pourtant en apparence simple.

Comment peut on faire pour créer une macro qui permet d'ouvrir la boite de dialogue enregistrer-sous avec par défaut type : classeur Excel prenant en charge les macros

Ou si ceci n'est pas possible comment enregistrer directement un fichier avec ce format sans passer par la boite de dialogue (et sans message d'avertissement).

Merci d'avance au Génie qui pourrait trouver la solution.


Bonne journée

 

[Staple1600]

Re,

Penses-tu que cela peut être lié au fait que mon fichier original est un fichier modèle

Trés drôle
Ce n'est que maintenant que tu nous le dis!

 

[allarmen]

Désolé, je n'y avait pas pensé

 

[Staple1600]

Re

Tu as testé la macro du message#15?

 

[allarmen]

Oui cela ne fonctionne pas

 

[allarmen]

C'est bien ce que je me disais, ce problème d'apparence simple s'avère beaucoup plus compliqué à résoudre.

 

[allarmen]

Merci quand même pour ton aide

 

[allarmen]

Je peux peut-être aussi demander simplement à forcer l'enregistrement dans un lecteur de mon choix ?
Pas l'idéal mais exploitable. Du coup ce serait quel code ?

 

[allarmen]

Bon eh bien j'ai trouvé finalement suffit de rajouter la lettre du lecteur après path.

nom = "nomdufichier" ' à modifier
'ici enregistre dans même dossier
chemfich = ThisWorkbook.Path & "F:\" & nom & ".xlsm"
fich = Dir(chemfich)
If fich <> "" Then
MsgBox "Le fichier " & fich & " Existe déjà" & vbCr & "Abandon de la procédure"
Exit Sub
End If
ActiveWorkbook.SaveCopyAs Filename:=chemfich



Cela devrait aller comme ça. Encore merci et bonne soirée

 

[Staple1600]

Re

Au lieu d'essayer sur ton fichier modèle, essaie sur un fichier créée pour l'occasion
que tu enregistres par exemple dans Mes Documents\Toto
Ensuite copie cette dernière macro et testes-là
Tu n'obtiens pas un fichier nommé Copie_Nomdufichieroriginal.xlsm dans le même répertoire?
Moi, si, je viens de tester.

Sub BackUp_II()
Dim X$, Fichier$
X = ActiveWorkbook.FullName
Fichier = Mid(X, 1, InStrRev(X, "\")) & "Copie_" & ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Fichier
ActiveWorkbook.Close True
End Sub

 

[allarmen]

Si si tout à fait cela fonctionne parfaitement.
Merci, me restera alors seulement à faire en sorte que le nom du fichier corresponde au nom de l'utilisateur du fichier. Je pense que je devrais m'en sortir pour la suite.

Tu es vraiment très bon

Bonne soirée et merci pour ton aide, merci pour le temps que tu m'as accordé.

 

[Staple1600]

Re,

Si si tout à fait cela fonctionne parfaitement.
Merci, me restera alors seulement à faire en sorte que le nom du fichier corresponde au nom de l'utilisateur du fichier.

Pour cela utilise: Application.UserName

PS: Je ne suis pas trés bon, je suis juste resté trop longtemps derrière mon clavier depuis 1992 et Excel 4