Souhaitez-vous, ou autoriser d’autres personnes, un moyen rapide et facile de rechercher et d’ouvrir des fichiers? La macro décrite ci-dessous utilise une technique simple qui ouvre une boîte de dialogue dans laquelle l’utilisateur peut rechercher et ouvrir des fichiers Excel.
Comment ca marche?
La macro décrite ci-dessous ouvre une boîte de dialogue, permettant aux utilisateurs de rechercher et d’ouvrir des fichiers Excel.
Voici comment l’aube est une macro:
Sub OuvertureClasseur() 'Étape 1: Déclaration de la variable Dim NonF As Variant 'Étape 2: Activez la boîte de dialogue à l'aide de la méthode GetOpenFilename NomF = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xl*”, Title:="Sélectionnez le classeur à ouvrir", MultiSelect:=False) 'Étape 3: Si vous avez sélectionné le fichier, ouvrez-le! If NomF <> False Then Workbooks.Open Filename:=NomF End If End Sub
Commentaires
1. La première action effectuée par la macro consiste à déclarer un type de variable Variant, qui stocke le nom du fichier sélectionné par l’utilisateur. NomF est le nom de notre variable.
2. Dans la deuxième étape, la méthode GetOpenFilename est utilisée pour créer une boîte de dialogue dans laquelle vous pouvez rechercher et sélectionner le fichier requis.
La méthode GetOpenFilename prend en charge plusieurs paramètres, qui peuvent également être ajustés. Le paramètre FileFilter vous permet de spécifier le type de fichiers à rechercher. Le paramètre Titre vous permet de changer le nom affiché sur la barre de titre d’une boîte de dialogue donnée. Le paramètre MultiSelect vous permet de bloquer l’ouverture simultanée de plusieurs fichiers.
3. Lorsque l’utilisateur sélectionne un fichier dans la boîte de dialogue, la variable NomF télécharge les noms des fichiers sélectionnés. À l’étape trois, il vérifie si la variable NomF est vide. Si ce n’est pas le cas, le fichier sélectionné est ouvert à l’aide de la méthode Open de l’objet Workbooks.Comment utiliser la macro?
Pour implémenter cette macro, vous pouvez copier et coller son code en mode standard.
À cette fin:
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille de calcul.
3. Sélectionnez Insérer / Module dans le menu.
4. Tapez ou collez le code dans le module nouvellement créé.
5. Vous pouvez éventuellement affecter une macro à un bouton (pour plus d’informations, voir la première partie à la section “Affectation d’une macro à un bouton et à d’autres contrôles de formulaire”).