|
La méthode BrowseForFolder peut rendre votre application Microsoft Office Excel plus dynamique en ne vous demandant de chemins de coder en dur dans votre programme. La méthode de BrowseForFolder vous permet d'inviter l'utilisateur à parcourir pour un dossier particulier sur votre ordinateur à l'aide de Visual Basic pour Applications ( VBA) . Le chemin du dossier retourné peut être utilisé à d'autres fins de programmation telles que la lecture ou l'enregistrement d'un fichier . Réduire la maintenabilité de ne pas avoir à coder en dur les chemins d'accès dans votre programme. Instructions
1 lancement Excel , cliquez sur l'onglet « Développeur » suivi de « Visual Basic ». Cliquez sur le menu "Insertion " et sélectionnez " UserForm " pour insérer un nouveau formulaire . Cliquez sur le menu "Affichage" et cliquez sur " Boîte à outils " pour afficher contrôles que vous pouvez ajouter à votre formulaire .
2 Cliquez sur " CommandButton " sur la boîte à outils et cliquez puis faites glisser sur votre formulaire pour créer un contrôle de bouton. Ajouter un nouveau contrôle de zone de texte en utilisant la même technique .
3 Double- cliquez sur le nouveau bouton pour ouvrir la fenêtre de l'éditeur Visual Basic. Tapez le code suivant en dessous " Private Sub CommandButton1_Click (): "
On Error GoTo Err_CommandButton1_Click :
4 Tapez le code suivant pour définir deux variables que vous utiliserez dans votre programme :
Dim pathSelected As String
Dim ShellApp As Object
5 Tapez le code suivant pour commencer la méthode " BrowseForFolder » et afficher une fenêtre de dialogue pour l'utilisateur de choisir un dossier:
Set ShellApp = CreateObject (" Shell.Application " ) . _
BrowseForFolder (0, " Choisir un dossier" , 0, openat )
6 Tapez la commande suivante pour obtenir le dossier sélectionné dans la fenêtre de dialogue " BrowseForFolder ":
pathSelected = ShellApp.self.Path
7 Tapez la commande suivante pour ajouter le chemin choisi pour le contrôle zone de texte sur votre formulaire :
Me.TextBox1.Text = pathSelected
8 Tapez la commande suivante pour libérer l'objet de la mémoire :
Set ShellApp = Nothing
9 Tapez la commande suivante pour afficher une boîte de message avec un les erreurs possibles et mettre fin à la procédure :
Exit_CommandButton1_Click :
Exit Sub
Err_CommandButton1_Click :
MsgBox Err.Description
CV Exit_CommandButton1_Click : Photos End Sub
10 Appuyez sur " F5 " pour exécuter votre programme, puis cliquez sur " CommandButton1 " pour rechercher un dossier. Choisissez un dossier et cliquez sur "OK". Le chemin sera affiché dans le contrôle de zone de texte.
|
