Bouton et cham de saisie,vb excel
mia1987
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
mia1987 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
mia1987 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Bouton et cham de saisie,vb excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Déplacer colonne excel - Guide
- Fiche de pointage excel - Télécharger - Tableur
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.