Création d'un bouton de sauvegarde dans excel

JustFox Messages postés 2 Statut Membre -  
PHILOU10120 Messages postés 6513 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonsoir, je suis en trains de créer une fiche de saisie, un peu comme un formulaire avec excel et pour remplir les champs c'est très facile à faire, mon problème maintenant c'est que je dois manuellement enregistrer chaque formulaire rempli manuellement en les nommant a chaque fois alors je voudrais créer un bouton de sauvegarde qui se chargerais de faire cette sauvegarde, nommer le fichier a partir de l'un des champs et garder la source intacte tout en aillant donc fait une sauvegarde de la version remplie. Je n'ai aucune connaissance en matière de programmation mais je crois savoir qu'un script lié a un bouton pour activer "enregistrer sous" puis nommer le fichier selon un des champs (toujours le même) ne devrais pas être très compliqué. J'en suis pour le moment à l'écriture du dit script, j'ai déjà créé le bouton "enregistrer" avec le module vb mais là donc c'est le script pour l'utiliser qui me manque. merci d'avance pour votre aide.
A voir également:

2 réponses

redaiwa Messages postés 370 Statut Membre 119
 
Salam JustFox.

Si j'ai bien compris ton problème, alors cet exemple simple ceci devrait t'aider :
https://www.cjoint.com/?CFqm4xli9WH

En cliquant sur le bouton "Enregister", le code suivant s'exécute :

Private Sub BoutonEnregistrer_Click()
NomFichier = Range("B2") & " " & Range("B3")
ActiveWorkbook.SaveAs Filename:=NomFichier, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub


Le nom du fichier est constitué de la concaténation des champs "Nom" et "Prénom", ensuite le fichier est sauvegardé sous ce nom grâce à la commande "ActiveWorkbook.SaveAs".

Je te souhaite un bon apprentissage du VBA. C'est passionnant et ça rend énorménent de services. :)
0
PHILOU10120 Messages postés 6513 Date d'inscription   Statut Contributeur Dernière intervention   826
 
Bonjour

Voici un fichier avec une macro pour copier le formulaire dans un nouveau fichier et le sauvegarder avec un nom défini en cellule A1

https://www.cjoint.com/?3FqodFlwwnE
0