Discussion :

[caligoose]

Bonjour,

je suis un petit nouveau mais je bloque devant un problème sous VBA Excel.

Je voudrais créer une macro qui enregistre le fichier ouvert sous le nom qui se trouve dans une cellule de ce même fichier.

En simple, j'ai créer un fichier type que j'utlise pour entrer des données clients et je voudrais associer à un bouton une macro qui automatiserait l'enregistrement de ce fichier type sous le nom de famille que j'ai introduit dans une cellule de ce même fichier.

Merci d'avance.

[Singular]

Tu crées un module dans ton classeur dans lequel tu entre la procédure suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub EnrgistrerSousNom()
    ' Remplacer "A1" dans Range("A1") par l'adresse de la cellule contenant le nom
    ThisWorkbook.SaveAs Filename:=(ThisWorkbook.Path & _
                                    Application.PathSeparator & _
                                    Range("A1").Value & ".xls")
End Sub

ensuite, tu crées un bouton et tu précises EnregistrerSousNom comme macro associée.

[Qwazerty]

SAlut
Dans un tel cas plutot que de te donner la reponse toute cru, je vais t'indiquer une demarche qui te permettra de resoudre bien des problemes

Tu vas dans le menu Outils->Macro->NouvellesMacro

Tu donne un nom (ou tu maisse Macro1 c parfait)

A partir de maiuntenant Excel Enregistre tout ce que tu fais et cré le code VBA correspondant

Donc tu fait Fichier-> Enregistrer sous...-> tu donne un nom et tu enregistre

Maintenant tu appuie sur le carré pour stopé l'enregistrement (y'a une petite barre de menu qui c'est ouverte au debut de l'enregistrement, le carré stop est dedans)

Ensuite tu fais
Outils->Macro>Visual Basic Editor
Dans la partie gauche tu as l'arborescence de tes fichier Excel ouvert dans le celui en cours, tu ouvre le repertoire Module et dedans tu trouve Module1, tu double click et cela affiche ton module Module1 avec dedans ta macro, marco1 contenant tout ce dont tu as besoin.

enssai de modifier le code et fait appelle si tu as des problemes, pour prevenir certain de tes besoin pense a enregistrer d'autre action comme la selection d'un cellule et changer la valeur de cette cellule par exemple

Bon courrage

A++
Qwaz