OVH Cloud OVH Cloud

variable et enregistrer

3 réponses
Avatar
lolo
Bonjour a toutes et a tous.

Mon utilisateur saisit un nombre dans une boite de dialogue.
Savez vous comment je peux "enregister sous" en utilisant comme nom de
fichier ce nombre saisie par l'utilisateur ex : V:\chemin reseau\lolo\
NOMBRE_fichier1.xls
Merci d'avance

3 réponses

Avatar
Pierre Fauconnier
Bonjour

Sub SauverComme()
Dim NomFichier As String
NomFichier = InputBox("Nom de sauvegarde")
ThisWorkbook.SaveAs NomFichier
End Sub

Si tu utilises une boite de dialogue avec un textbox, par exemple TextBox1,
tu transmets TextBox1.Value ( ou une variable qui l'a récupérée) comme
argument de ThisWorkbook.SaveAs


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."

lolo wrote:
Bonjour a toutes et a tous.

Mon utilisateur saisit un nombre dans une boite de dialogue.
Savez vous comment je peux "enregister sous" en utilisant comme nom de
fichier ce nombre saisie par l'utilisateur ex : V:chemin reseaulolo
NOMBRE_fichier1.xls
Merci d'avance


Avatar
ru-th
Salut lolo

en complément de la réponse de Pierre
Sub Macro1()
rep = InputBox("Tapez un nombre")
If IsEmpty(rep) Or Not IsNumeric(rep) Then Exit Sub
ActiveWorkbook.SaveAs Filename:="V:totovirerfichier" & rep & ".xls"
End Sub
a+
rural thierry

"lolo" a écrit dans le message de news:
3f6ecdeb$0$13294$
Bonjour a toutes et a tous.

Mon utilisateur saisit un nombre dans une boite de dialogue.
Savez vous comment je peux "enregister sous" en utilisant comme nom de
fichier ce nombre saisie par l'utilisateur ex : V:chemin reseaulolo
NOMBRE_fichier1.xls
Merci d'avance




Avatar
lolo
Merci pour ces deux exemples, je m'en vais les tester cette aprem' au
bureau.
Encore merci.
"lolo" a écrit dans le message de
news:3f6ecdeb$0$13294$
Bonjour a toutes et a tous.

Mon utilisateur saisit un nombre dans une boite de dialogue.
Savez vous comment je peux "enregister sous" en utilisant comme nom de
fichier ce nombre saisie par l'utilisateur ex : V:chemin reseaulolo
NOMBRE_fichier1.xls
Merci d'avance