Sauvegarde de fichier à partir d'un UserForm
Résolu
e1benabe
Messages postés
2
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
1 juin 2005
-
31 mai 2005 à 17:22
e1benabe Messages postés 2 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 1 juin 2005 - 1 juin 2005 à 09:20
e1benabe Messages postés 2 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 1 juin 2005 - 1 juin 2005 à 09:20
A voir également:
- Sauvegarde de fichier à partir d'un UserForm
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Afficher userform vba a l'ouverture d'excel - Forum Visual Basic
- Fichier json - Conseils pratiques -Javascript
- Userform - Conseils pratiques -Visual Basic / VB.NET
- Userform initialize ✓ - Forum Visual Basic 6
3 réponses
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
31 mai 2005 à 23:12
31 mai 2005 à 23:12
Lut,
ou Alors tu vires tes deux textbox et dans l'évènement click de ton commandbutton tu colles ceci
Application.Dialogs(xlDialogSaveAs).Show
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
ou Alors tu vires tes deux textbox et dans l'évènement click de ton commandbutton tu colles ceci
Application.Dialogs(xlDialogSaveAs).Show
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
31 mai 2005 à 19:13
31 mai 2005 à 19:13
Bonjour,
Voici un code qui se rapproche de se que tu veux faire.
Sur ton UserForm, tu places un TextBox (Name: txtRep) et un autre que
tu nommes (txtFichier). Il suffit de placer dans txtRep le répertoire
ou tu veux mettre ton fichier(Si c'est dans C:\ tu laisses vide) et
dans txtFichier, le nom que tu veux donner (par exemple:
MonClasseur.xls).
Un click sur le commandButton et le classeur sera copié.
CommandButton1_Click()
Dim NomChemin, NomFichier, NomRep
NomChemin = "C:"
NomFichier = txtFichier
NomRep = txtRep
On Error Resume Next
ActiveWorkbook.SaveAs NomChemin + NomRep + NomFichier
End Sub
jpleroisse
Voici un code qui se rapproche de se que tu veux faire.
Sur ton UserForm, tu places un TextBox (Name: txtRep) et un autre que
tu nommes (txtFichier). Il suffit de placer dans txtRep le répertoire
ou tu veux mettre ton fichier(Si c'est dans C:\ tu laisses vide) et
dans txtFichier, le nom que tu veux donner (par exemple:
MonClasseur.xls).
Un click sur le commandButton et le classeur sera copié.
CommandButton1_Click()
Dim NomChemin, NomFichier, NomRep
NomChemin = "C:"
NomFichier = txtFichier
NomRep = txtRep
On Error Resume Next
ActiveWorkbook.SaveAs NomChemin + NomRep + NomFichier
End Sub
jpleroisse
e1benabe
Messages postés
2
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
1 juin 2005
1 juin 2005 à 09:20
1 juin 2005 à 09:20
Merci beaucoup ça fonctionne!
Ben
Ben