Bouton et cham de saisie,vb excel
mia1987
Messages postés
57
Statut
Membre
-
mia1987 Messages postés 57 Statut Membre -
mia1987 Messages postés 57 Statut Membre -
Bonjour,
je souhaite ajouter à ma macro une sorte de userforme au début contenant un champ de saisie dans lequel on fait entrer le nom du fichier qu'on veut ouvrir (le fichier est quelque part dans l'ordi,donc vaudrait mieux avoir the tree bureau documents....),et muni aussi d'un bouton "valider par exemple" pour déclencher la macro.
qulqu'un pour m'aider? je suis débutante en vb excel,si vs pouvez me sauver,je vs serez reconnaissante !
merci
je souhaite ajouter à ma macro une sorte de userforme au début contenant un champ de saisie dans lequel on fait entrer le nom du fichier qu'on veut ouvrir (le fichier est quelque part dans l'ordi,donc vaudrait mieux avoir the tree bureau documents....),et muni aussi d'un bouton "valider par exemple" pour déclencher la macro.
qulqu'un pour m'aider? je suis débutante en vb excel,si vs pouvez me sauver,je vs serez reconnaissante !
merci
Configuration: Windows 2000 Internet Explorer 6.0
A voir également:
- Bouton et cham de saisie,vb excel
- Word et excel gratuit - Guide
- Si et ou excel - Guide
- Liste deroulante excel avec saisie semi-automatique - Guide
- Trier un tableau excel - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
tout d'abord tu crées un bouton (CommandButton1) puis une textbox (TextBox1). Puis tu as ce code VBA au niveau du bouton qui est une petite ébauche permettant l'ouverture d'un fichier Excel:
Private Sub CommandButton1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open TextBox1
xlApp.Visible = True
End Sub
C'est tout de même à améliorer.
tout d'abord tu crées un bouton (CommandButton1) puis une textbox (TextBox1). Puis tu as ce code VBA au niveau du bouton qui est une petite ébauche permettant l'ouverture d'un fichier Excel:
Private Sub CommandButton1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open TextBox1
xlApp.Visible = True
End Sub
C'est tout de même à améliorer.