[Catégorie modifiée .Net -- VBA] [VBA Excel] Bouton ok et annuler

Question

Bonjour,
Je souhaite ouvrir un nouveau fichier XML à partir d'un UserForm. 
Il est crée avec un bouton de lien hypertext un "ok" et un "annuler".

Le bouton lien Hypertext est créer mais maintenant j'aimerais qu'en cliquant sur le bouton "ok", le fichier s'ouvre et quand on clique sur "annuler" la fenètre se ferme. Je 'nai aucune idée de comment faire. Pourriez vous m'aider ?

Voici le début de mon code :

Private Sub CommandButton1_Click()

    TextBox1.Text = BrowseForFile("C:", "txt File|*.xml|All Files|*.*")

End Sub

[color=red]Private Sub CommandButton2_click()

???????

End Sub

Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = pstrFilter
    objDialog.InitialDir = pstrPath
    objDialog.Flags = &H80000 + &H4 + &H8
    intResult = objDialog.ShowOpen
    BrowseForFile = objDialog.Filename

Set objDialog = Nothing

End Function/color

cs_Jack · Answer

Salut
Tu parles de bouton Ok et Annuler, mais on ne vois que CommandButton1 et CommandButton2 : Commence par donner des noms corrects à tes objets ou mieux expliqué ton environnement.

"en cliquant sur le bouton "ok", le fichier s'ouvre"
S'ouvre en tant que fichier texte ou en tant que fichier XML ?
Ouvrir le fichier est une chose, il faudra savoir ce que tu comptes faire des données qu'il renferme.
Dans tous les cas, un minimum de recherche s'impose parmi les codes du site ou du forum avec des recherches simples comme "ouvrir fichier" ou "ouvrir XML".

"quand on clique sur "annuler" la fenètre se ferme"
Unload Me
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

misscotto · Answer

Ok merci beaucoup

[Catégorie modifiée .Net --> VBA] [VBA Excel] Bouton ok et annuler

2 réponses

Votre réponse

Discussions similaires