Discussion :

[MagicWeran]

Bonjour,

Je sèche pour trouver le bout de code me permettant de définir manuellement, une fois ma macro lancée, le nom du fichier sur lequel aller chercher des info.

J'ai un fichier de suivi, avec disont des notes de frais, qui me sont envoyées par mail, et toujours avec des noms différents. Ma macro va chercher les info dans les notes de frais pour les mettre dans mon fichier de suivi. Seulement, je ne sais pas comment mettre en place un InputBox par exemple, qui me demanderait au début du lancement de ma macro quels sont les premiers mots du nom du fichier de la note de frais, et qui comprendrait sur quel fichier aller chercher mes info.

Merci d'avance pour votre aide. Voici le bout de code que j'ai commencé à essayer de taper :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 'Selectionner le fichier travel request (la "note de frais")
        Dim wb1 As Workbook
        For Each wb1 In Application.Workbooks
        'Ma tentative infructueuse pour qu'un InputBox vienne me demander quels sont les premiers mots du nom du fichier de la note de frais
        If wb1.Name Like Name = InputBox("Name? : ") Then wb1.Activate:
        Next wb1
 
'Nomme ce workbook WbTravel pour pouvoir l'appeler plus tard dans le code
        Set wbtravel = ActiveWorkbook

[clementmarcotte]

Bonjour,

Pas besoin d'une InputBox. Tu peux utiliser les boîtes de dialogues d'Excel

Tu utilise la collection Dialogs

Et tu choisis la bonne boîte avec cette énumération (XlDialogOpen dans ce cas)


P.S. Je ne sais pas si c'est vraiment ce que tu veux; mais cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 For Each wb1 In Application.Workbooks

ne fonctionne que pour les classeurs déjà ouverts dans la session d'Excel active. Elle ne peut rien faire pour les fichiers qui ne sont pas déjà ouverts. Ma réponse fonctionne plutôt avec les fichiers non ouverts.

Si, si tu veux choisir un fichier parmi les fichiers déjà ouverts, tu es probablement mieux de les afficher dans un ListBox, soit sur une feuille, soit sans dans un UserForm

Et pour faciliter la vie des autres répondeurs, ce ne serait pas une mauvaise chose que tu précises si tu veux retrouver et ouvrir un fichier fermé, ou si tu veux choisir un fichier déjà ouvert. Comme tu peux le constater, ce sont plutôt deux approches différentes.

[MarcelG]

Bonsoir Clément,

pour ton post.

Au demeurant, j'ai quelque difficulté à ouvrir le lien énumération.

A toute fin utile, j'ai trouvé cet espace sur l'argumentation de la collection Dialogs.

Bonne soirée à tous.

[clementmarcotte]

Bonjour,

Bonsoir Clément,

pour ton post.

Au demeurant, j'ai quelque difficulté à ouvrir le lien énumération.

Même chose chez-moi. Pourtant cela marchait au moment où je l'ai mis. Mais, il n'y avait pas les valeurs numériques, juste les noms

Ceci dit, je ne suis pas vraiment surpris. MS est en train de "convertir" MSDN en Docs. Des fois c'est l'enfer. Par exemple quand il veut absolument connecter le compte Microsoft avant de chercher et qu'il ne réussit pas à trouver le compte Microsoft.

Pour info, la parade que j'utilise c'est de préfixer les recherches dans Bing! avec Msdn; comme par exemple: Msdn excel dialogs

Quand à savoir si la marche avec Google, je ne sais pas...

[MagicWeran]

Si tu veux choisir un fichier parmi les fichiers déjà ouverts, tu es probablement mieux de les afficher dans un ListBox, soit sur une feuille, soit dans un UserForm

Merci pour ta réponse Clément! Je vais essayer de partir sur un ListBox qui m'affiche les fichiers qui sont actuellement ouverts alors. Une petite idée du code peut-être haha ? Car pour préciser, comme tu le conseille, je souhaite en effet retrouver un fichier ouvert au moment où ma macro tourne

[MarcelG]

Bonjour,

(Si tu permets, Clement.)

Pour lister les classeurs ouverts dans une session Excel, il suffit de parcourir la collection Workbooks.
Pour alimenter un contrôle Listbox, autrement dit alimenter la collection de ses items, voir cet espace sur le contrôle Listbox.

[MagicWeran]

Bonjour Marcel,

Merci à toi aussi pour ta réponse. Cependant, je suis désolé mais j'ai du mal à voir comment se code concrètement les solutions dont vous me parler. Si j'en reviens à mon code de départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Selectionner le fichier travel request (la "note de frais")
        Dim wb1 As Workbook
        For Each wb1 In Application.Workbooks
        'Ma tentative infructueuse pour qu'un InputBox vienne me demander quels sont les premiers mots du nom du fichier de la note de frais
        If wb1.Name Like Name = InputBox("Name? : ") Then wb1.Activate:
        Next wb1

Par quoi dois-je remplacer ma ligne en rouge qui ne fonctionne pas, pour pouvoir dire à ma macro sur quel fichier ouvert aller chercher mes info ?

[MarcelG]

Par quoi dois-je remplacer ma ligne en rouge qui ne fonctionne pas, pour pouvoir dire à ma macro sur quel fichier ouvert aller chercher mes info ?

As-tu consulté le tutoriel que je t'ai indiqué?
Le contrôle Listbox (ou Combobox) sera alimenté par le nom des classeurs ouverts.
La boucle que tu as reportée est exacte. Il te reste à procéder à l'alimentation de la Listbox.
Un exemple est donné dans le tutoriel.