VB :Enregistrer un doc

Question

Bonjour,

Je voudrai cr&#233;er une macro qui par l'interm&#233;diaire d'un message box me propose d'enregister mon document excel et qui en plus me propose un nom sous lequel enregistrer mon doc.
Imaginons que dans ma cellule A1 il y ait le nomduprojet : "Projet T9" et que dans la cellule A2 il y ait la date du projet :"10.02"
Je voudrai donc que ma macro me propose l'enregistrement de mon doc sous le nom :"projet T9_10.02", qu'il concatene A1 et A2.
Et ce que c'est possible??????
Et surtout comment faire

Merci d'avance

jrivet · Answer

Dim NomProjet as string

jrivet · Answer

Excuse appuyer trop vite

Dim NomProjet as string
NomProjet = Range("A1").value & "_" & Range("A2").Value

MsgBox NomPRojet

Lyly601 · Answer

Je uppose que je n'&#233;crit pas que &#231;a??

D&#233;sol&#233; je suis novice

Lyly601 · Answer

Ca se passe comment pour faire apparaitre une boite de dialoque comme celle de excel lorsque l'on fait enregistrer??

jrivet · Answer

Re,

Il te faut le Microsoft Common Dialog Control.

Et apres tu utilise ses methode ShowSave et autre ShowOpen

Lyly601 · Answer

Est ce que tu pourrais me donner plus t'explication parceque la je comprends rien

Merci

jrivet · Answer

Re,

Ce soir car la j ai pas trop le temps

Lyly601 · Answer

Merci &#231;a serait vraiment sympa de voir a koi ressemble le code en entier

cs_loulou69 · Answer

Bonjour


Voici un sujet intéressant que j'ai déjà traité et je fais appel à mes souvenirs. J'ai fait quelques tests sous Word mais c'est du VBA cela devrait fonctionner sous Excel

Pour impliciter dans le champ NomFichier de la boite de dialogue Office un nom souhaité il faut d'abord l'enregistré sous le nom souhaité ensuite le proposer, ensuite controler si l'utilisateur a changé le nom si c'est le cas supprimer le fichier proposé ainsi il ne reste que le fichier enregistré par l'utilisateur

ActiveDocument.saveAs nompropose
Set myDialog = Dialogs(wdDialogFileSaveAs)
myDialog.Display
nom = myDialog.Name
if nompropose<>nom then kill(nompropose)

En espérant que cela te permettra de compléter et de répondre à ton attente

Cordialement

cs_loulou69 · Answer

J'oubliais j'ai ajouté une référence à Microsoft Forms 2.0 soit  FM20.DLL

VB :Enregistrer un doc

10 réponses

Discussions similaires