Excel VBA GetOpenFileName

Il existe de nombreuses façons d'ouvrir n'importe quel fichier. Mais il existe également plusieurs façons d'ouvrir le même fichier. Dans VBA, nous avons différentes fonctions par lesquelles nous pouvons ouvrir n'importe quel fichier. Nous pouvons ouvrir le fichier en mettant le chemin du fichier dans le code VBA, nous pouvons même enregistrer ce processus également. Mais la meilleure façon est d'ouvrir n'importe quel fichier dans VBA à l'aide de l'application VBA GetOpenFileName . Comme son nom l'indique, il est purement fait pour l'application lors de l'ouverture de n'importe quel fichier dans VBA.

Dans d'autres fonctions ou applications qui fonctionnent sur le même principe, nous pouvons avoir besoin de copier le fichier du fichier séparé par des barres obliques inverses, en conservant le nom du dossier et les espaces exacts entre la barre oblique inverse. De plus, nous devrons peut-être entrer le nom de fichier exact ainsi que l'extension que nous voulons ouvrir. Mais dans VBA GetOpenFileName, nous avons juste besoin de sélectionner le fichier à partir de l'emplacement. Il donnera la boîte à partir de laquelle nous pouvons parcourir le fichier où il est conservé et l'extension du fichier sera également corrigée.

Syntaxe de GetOpenFilename dans VBA

Voyons ci-dessous la formule pour GetOpenFilename dans Excel VBA.

Voici l'argument de l'application VBA GetOpenFileName.

  • FileFilter - Dans cela, nous pouvons définir le type de fichier que nous voulons voir. Par exemple, si nous mentionnons «Fichiers Excel, *. Xlsx», il trouvera et affichera tous les fichiers Excel au format .xlsx. Si nous mentionnons «Fichiers PDF, *. Pdf», il ne trouvera et n'affichera que tous les fichiers pdf.
  • FilterIndex - Par cela, nous pouvons permettre à un utilisateur de restreindre la sélection du type de fichier. Nous pouvons spécifier le nombre de fichiers que nous devons afficher.
  • Titre - Il montre le fichier sélectionné dans le titre de la boîte de dialogue.
  • ButtonText - C'est uniquement pour les utilisateurs de MacBook.
  • MultiSelect - Si nous sélectionnons plusieurs fichiers, alors ce sera VRAI ou bien ce sera FAUX qui est de toute façon une valeur par défaut.

Comment ouvrir un fichier à l'aide de GetOpenFileName dans Excel VBA?

Voici les différents exemples pour ouvrir un fichier à l'aide de l'application GetOpenFileName dans Excel VBA.

Vous pouvez télécharger ce modèle Excel VBA GetOpenFileName ici - Modèle Excel VBA GetOpenFileName

Excel VBA GetOpenFileName - Exemple # 1

Dans cet exemple, nous verrons comment ouvrir un fichier Excel en premier. Suivez les étapes ci-dessous pour utiliser GetOpenFileName dans Excel VBA:

Étape 1: Allez dans le menu Insertion et cliquez sur Module pour l'ouvrir.

Étape 2: Écrivez la sous-catégorie de VBA Getopenfilename ou choisissez un autre nom selon votre choix pour définir la sous-catégorie.

Code:

 Sous OpenFile () End Sub

Étape 3: Maintenant, définissez une variable et donnez-lui une chaîne comme indiqué ci-dessous. Choisir une chaîne car nous choisirons ou sélectionnerons le nom du fichier.

Code:

 Sub OpenFile () Dim A As String End Sub

Étape 4: Maintenant, dans la variable définie A, utilisez Application comme indiqué ci-dessous.

Étape 5: Maintenant, recherchez et sélectionnez GetOpenFileName dans la liste des applications activée, comme indiqué ci-dessous.

Étape 6: Utilisez maintenant MsgBox pour obtenir l'emplacement du fichier que nous sélectionnons.

Code:

 Sub OpenFile () Dim A As String A = Application.GetOpenFilename () MsgBox A End Sub

Étape 7: compilez maintenant le code en appuyant sur la touche de fonction F5 et exécutez-le en cliquant sur le bouton Lecture. Parcourez maintenant le fichier que nous voulons sélectionner. Ici, nous avons suivi le chemin et sélectionné le fichier Excel nommé fichier de test qui est généralement au format .xlsx . Cliquez sur Ouvrir.

Il montrera le chemin de ce fichier que nous avons sélectionné précédemment dans une boîte de message comme indiqué ci-dessous.

Étape 8: Maintenant, selon la syntaxe, nous utiliserons Filefilter dans le support de l'application GetOpenFilename. Comme nous le savons, il est destiné à choisir le type de fichier que nous voulons ouvrir. Nous allons donc mettre des «fichiers Excel» comme indiqué ci-dessous.

Code:

 Sub OpenFile () Dim A As String A = Application.GetOpenFilename (Filefilter: = "Excel Files") MsgBox A End Sub

Étape 9: Maintenant, mettez l'extension du fichier Excel que nous avons sélectionné plus tôt. C'était « .xlsx », donc nous le garderons aussi dans FileFilter.

Code:

 Sub OpenFile () Dim A As String A = Application.GetOpenFilename (Filefilter: = "Excel Files, * .xlsx") MsgBox A End Sub

Étape 10: Maintenant, nous allons exécuter à nouveau le code complet. Dans le dossier de navigation, nous n'obtiendrons que les fichiers Excel disponibles dans ce dossier que nous avons parcouru précédemment.

Et si nous essayons de voir tout autre format ou extension de fichier dans les fichiers Excel, il affichera à nouveau les fichiers Excel uniquement.

Excel VBA GetOpenFileName - Exemple # 2

De la même manière, nous pouvons voir ouvrir le nom du fichier avec l'extension « .pdf ». Suivez les étapes ci-dessous pour utiliser GetOpenFileName dans Excel VBA:

Étape 1: Maintenant, écrivez à nouveau le code que nous avons vu dans l'exemple-1.

Code:

 Sub OpenFile1 () Dim A As String A = Application.GetOpenFilename () MsgBox A End Sub

Étape 2: Cela nous amènera à la même fenêtre ou bien parcourez ce même dossier. Maintenant, sélectionnez l'un des fichiers PDF et cliquez sur Ouvrir.

Il nous donnera le chemin du fichier sélectionné.

Étape 3: Maintenant, pour obtenir le fichier PDF sélectionné, dans la syntaxe FileFilter, écrivez «Fichiers PDF» au lieu de «Fichiers Excel» et sélectionnez l'extension du PDF qui est « .pdf » comme indiqué ci-dessous.

Code:

 Sub OpenFile1 () Dim A As String A = Application.GetOpenFilename (Filefilter: = "PDF Files, * .pdf") MsgBox A End Sub

Étape 4: compilez à nouveau le code et exécutez-le. Nous obtiendrons le dossier du navigateur pour ouvrir les fichiers. En cela, nous n'obtiendrons que les fichiers avec l'extension « .pdf » comme indiqué ci-dessous.

Et si vous essayez de filtrer d'autres formats de fichiers, cela nous permettra à nouveau de ne voir que les fichiers PDF, comme indiqué ci-dessous.

Et si nous ne sélectionnons aucun fichier et que nous quittons la fenêtre, cela donnera un message par défaut qui est faux .

Avantages d'Excel VBA GetOpenFileName

  • VBA GetOpenFileName nous aide à ouvrir directement le fichier sans coller le chemin de ce fichier dans le code VBA.
  • Nous n'avons pas besoin de changer le chemin des fichiers plusieurs fois.
  • Parcourir et sélectionner les fichiers à travers cela est aussi simple que d'aller dans ce dossier pour l'ouvrir.

Inconvénients d'Excel VBA GetOpenFileName

  • Nous devons changer l'extension d'un fichier que nous voulons ouvrir en cas de changement.

Choses dont il faut se rappeler

  • Modifiez l'extension du fichier chaque fois que vous devez ouvrir une version différente du fichier.
  • La boîte de message avec un message FAUX est le message par défaut qui apparaîtra chaque fois que nous ne sélectionnerons aucun fichier à ouvrir.
  • Ce type de processus ne peut pas être créé à l'aide de la fonction Enregistrer une macro.
  • N'oubliez pas d'enregistrer le fichier au format Excel activé par macro. Ainsi, le code VBA écrit sera conservé.

Articles recommandés

Ceci est un guide de VBA GetOpenFileName. Ici, nous expliquons comment ouvrir un fichier à l'aide de l'application GetOpenFileName dans Excel à l'aide du code VBA ainsi que des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. Recherche et remplacement VBA (exemples)
  2. Feuilles de travail de groupe dans Excel
  3. VBA Workbook
  4. Références de cellule dans Excel

Catégorie:

VBA