enregistrer sous le nom de TextBox

[pascall]

bonjour
je souhaiterais qu'a la fermeture mon fichier excel s'enregistre automatiquement sous le nom du textbox de ma feuil1 comment je procede
merci d'avance pour votrer aide
bye

 

[@+Thierry]

Bonjour Pascall,


Tu peux faire un code comme celà...

Option Explicit
Sub TEST()
Dim NomClasseur As String
Dim NomChemin As String
NomChemin = "c:\mes documents\"
NomClasseur = Worksheets("Feuil1").TextBox1.Value
If NomClasseur = "" Then
MsgBox "TextBox Vide"
Exit Sub
End If
ThisWorkbook.SaveAs NomChemin & NomClasseur
End Sub

Bon Aprèm
@+Thierry

 

[Didier]

Bonjour
J'aimerais savoir ce qu'est un textbox
Merci

 

[@+Thierry]

Salut Didier

Bien que Vériland ait tenté de t'expliquer longuement, il semble qu'il te manque toujours des bases...

Je vais essayer de te faire un exemple :

1) Tu Ouvres Un Classeur Vierge
2) Sur une Feuille Vierge tu dessines un contrôle "TextBox"

=> Pour dessiner un TextBox : Menu / Affichage / Barres d'Outils => Boite à Outils Contrôles... Tu affiches cette barre à outils...

Dans cette barre d'outil le 5em icônne représentant un carré blanc avec "abl" dedans est une TextBox...

3) Donc tu as dessiné ta première "TextBox" sur ta "Feuil1"...
4) Tu te mets en mode "Design" (Barre d'outil "Boite à outils contrôles" en cliquant sur le premier bouton représentant une équerre bleue/règle et crayon...
5) Tu sélectionnes ta "TextBox1" et tu click à droite...
6) Tu arrives dans les Propriétés de ta Textbox... Il y a 42 propriétés pour cette TextBox... Toutes ne sont pas d'une utilité courante... Mais :
-> LinkedCell A1 (tout ce qui sera tapé dans la textbox sera reporté en A1)

Voilà une première approche d'une TextBox....

Bien sûr le but n'est pas de faire que çà... Mais c'est déjà le principe de base...

Voilà en espérant que tu situes mieux ce qu'est une "TextBox" (qui est en fait plus utilisée au sein des Userforms que des Feuilles, mais c'est là même avec les même principes de fonctionnement...

Bonne Soirée / Bon Week End à Tous et Toutes
@+Thierry

 

[Didier]

Bonsoir
Merci de ces explication, en effet j' avais demandé comment écrire dans
un userform mais je ne savais pas que ça s'appelait un textbox j'aurais du
faire le rapprochement.
Didier