OVH Cloud OVH Cloud

sauvegarde personnalisée

4 réponses
Avatar
Malko Linge
bonjour à tous,
j'aimerais une explication sur le projet suivant : j'ai développé un outil
permettant de gérer le portefeuille placements de clients (peu importe, après
tout, le but du fichier :-) et j'aimerais ajouter un bouton à cliquer qui,
lorsqu'on clique, ouvre une fenetre posant des questions (nom et prénom, par
exemple) et sauvegarde le fichier nom_prenom.xls dans un répertoire fixe
(décidé par moi !!).

4 réponses

Avatar
jps
et on en fait quoi des réponses aux questions, mako?
jps

"Malko Linge" <Malko a écrit dans le
message de news:
bonjour à tous,
j'aimerais une explication sur le projet suivant : j'ai développé un outil
permettant de gérer le portefeuille placements de clients (peu importe,
après

tout, le but du fichier :-) et j'aimerais ajouter un bouton à cliquer qui,
lorsqu'on clique, ouvre une fenetre posant des questions (nom et prénom,
par

exemple) et sauvegarde le fichier nom_prenom.xls dans un répertoire fixe
(décidé par moi !!).


Avatar
ST
Essaie le code suivant :

Sub Macro1()
Nom = InputBox("Saisissez le nom", "Nom")
Prenom = InputBox("Saisissez le prénom", "Prénom")
ActiveWorkbook.SaveAs Filename:="C:" & Nom & "_" & Prenom & ".xls"
End Sub

ST

"Malko Linge" <Malko a écrit dans le
message de news:
bonjour à tous,
j'aimerais une explication sur le projet suivant : j'ai développé un outil
permettant de gérer le portefeuille placements de clients (peu importe,
après

tout, le but du fichier :-) et j'aimerais ajouter un bouton à cliquer qui,
lorsqu'on clique, ouvre une fenetre posant des questions (nom et prénom,
par

exemple) et sauvegarde le fichier nom_prenom.xls dans un répertoire fixe
(décidé par moi !!).


Avatar
jps
oups, désolé, malko, je n'avais pas lu le nom du fichier à sauvegarder..
heureusement que ST était là
jps

"ST" a écrit dans le message de
news:daj7mq$
Essaie le code suivant :

Sub Macro1()
Nom = InputBox("Saisissez le nom", "Nom")
Prenom = InputBox("Saisissez le prénom", "Prénom")
ActiveWorkbook.SaveAs Filename:="C:" & Nom & "_" & Prenom & ".xls"
End Sub

ST

"Malko Linge" <Malko a écrit dans le
message de news:
bonjour à tous,
j'aimerais une explication sur le projet suivant : j'ai développé un
outil


permettant de gérer le portefeuille placements de clients (peu importe,
après

tout, le but du fichier :-) et j'aimerais ajouter un bouton à cliquer
qui,


lorsqu'on clique, ouvre une fenetre posant des questions (nom et prénom,
par

exemple) et sauvegarde le fichier nom_prenom.xls dans un répertoire fixe
(décidé par moi !!).






Avatar
Malko Linge
ST,

C'était si simple... Grand merci.

Malko


Essaie le code suivant :

Sub Macro1()
Nom = InputBox("Saisissez le nom", "Nom")
Prenom = InputBox("Saisissez le prénom", "Prénom")
ActiveWorkbook.SaveAs Filename:="C:" & Nom & "_" & Prenom & ".xls"
End Sub

ST

"Malko Linge" <Malko a écrit dans le
message de news:
bonjour à tous,
j'aimerais une explication sur le projet suivant : j'ai développé un outil
permettant de gérer le portefeuille placements de clients (peu importe,
après

tout, le but du fichier :-) et j'aimerais ajouter un bouton à cliquer qui,
lorsqu'on clique, ouvre une fenetre posant des questions (nom et prénom,
par

exemple) et sauvegarde le fichier nom_prenom.xls dans un répertoire fixe
(décidé par moi !!).