Activer un classeur ouvert

Bonjour à tous,

Le script VBS sur lequel je travaille me permet d'extraire des données d'une base et d'ouvrir un fichier Excel contenant les données exportées. Ce fichier Excel porte un nom différent à chaque extraction. Or j'ai besoin de travailler sur ce fichier Excel mais je ne sais pas comment l'affecter dans une variable puisque son nom change à chaque fois.

Si j'utilise la commande :

Code:

---

Set TmpWorkbook = ExcelApp.ActiveWorkbook

---

Ça marche, mais uniquement si je n'ai aucun autre classeur ouvert. À partir du moment où j'ai déjà un (ou plusieurs) fichier(s) Excel ouvert(s), ça ne marche pas..

Quelqu'un pour m'aider ?

Salut

Citation:

---

Ce fichier Excel porte un nom différent à chaque extraction

---

Tu connais peut être le nom du dossier, si oui, le fichier dans ce dossier est il le seul?, ce de fichier a peut être des similitudes a chaque fois dans son nom ?.....

Suivant ta/tes réponses, il sera peut être possible de t'aider.

Merci pour votre réponse.

C'est un fichier Excel temporaire, donc stocké "provisoirement" dans le dossier Temp. Après, le fichier Excel en question est de la forme "[ID]_[date du jour]_[une série de chiffres sans logique]" donc à mon sens impossible à traiter...

J'ai également vu qu'un problème similaire au mien avait déjà été abordé sur ce forum mais je n'ai pas trop compris les solutions apportées : http://www.developpez.net/forums/d10...connaitre-nom/

Re

Citation:

---

[ID]_[date du jour]_[une série de chiffres sans logique]

---

date du jour tu n'as qu'un fichier par jour?
Si oui, en se branchant sur le dossier Temp et en triant les noms de fichier avec la date du jour dans son nom suffirait il ?
Si non, plusieurs noms de fichier contenant la date du jour, si celui à traiter est le dernier du jour, en lisant la propriété modifié le cela reste possible de le retrouver.

Bonjour,

Citation:

---

date du jour tu n'as qu'un fichier par jour?

---

Pas forcément un fichier par jour.

Citation:

---

Si non, plusieurs noms de fichier contenant la date du jour, si celui à traiter est le dernier du jour, en lisant la propriété modifié le cela reste possible de le retrouver.

---

Je vais essayer de voir dans cette direction, merci.

Par ailleurs, comme l'ID est toujours le même, une autre solution serait de rechercher, parmi tous les classeurs ouverts, celui qui contient la chaîne de caractères correspondant à l'ID. Aurais-tu une idée de comment faire cela ?

Encore merci :)

EDIT : Un truc de ce style :

Code:

---

1 2 3 4 5 6 7

Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible = True for each Wk in ExceApp.Workbooks if InStr(Wk.Name, "CH99") > 0 then Wk = ActiveWorkbook end if next

---

Sachant que CH99 est l'ID.

Mais malheureusement ça ne marche pas... :/

Salut

Pour ne pas avoir d'erreur, j'ai dût modifier le code (GetObject non pas CreateObject, et ajout de vbNullString) Set ExcelApp = GetObject(vbNullString, "Excel.Application").
GetObject pour éventuellement récupérer une session Excel et non pas la créer.
Je n'y connais quasiment rien en tableur Excel.
J'ai essayé d'ouvrir 2 .xls, il n'y a jamais de détection des tableaux ouverts dans la boucle For Each ....

Bonjour !

Citation:

---

Envoyé par zakake

Sachant que CH99 est l'ID.
Mais malheureusement ça ne marche pas...

---

Cela fonctionne en affectant une variable objet via l'instruction Set et différente de celle utilisée dans la boucle
ou avec un minimum de logique si le classeur est trouvé alors ne pas oublier de sortir de cette boucle !

_________________________________________________________________________________________________________
Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …