Discussion :

[Hourko]

Bonjour,

Après avoir parcouru votre Forum plein d'astuces et de bons conseils, je n'ai pu résoudre mon exercice:

Créer une macro de recherche de caracteres sur plusieurs instances Excel dont je ne connais pas d'avance le nom (ceux-ci changent au bon vouloir des utilisateurs).

Pourquoi plusieurs instances ?? les Fichiers Excel sont sur réseau interne et lors de leur activation (manuelle) ceux-ci s'ouvrent dans des instances distinctes .

D'après ce que j'ai pu réaliser grace à votre Forum , il est possible de connaitre la quantité d'instances Excel ouvertes mais pas les noms des fichiers (workbooks) associés ?

Merci à tous ceux qui plancheront.

[CodeFacile]

Bonjour,

C'est une anomalie de fonctionnement ; Si pour chaque fichier Excel , on relance une nouvelle instance ?
Quand je clique plusieurs fois sur l'icône Excel , j'ouvre plusieurs instances. Lorsque je clique sur un fichier .xls , c'est la même instance...

A mon avis, c'est un paramètre windows , lequel ?

[aalex_38]

Bonjour le forum, bonjour Hourko,

il est possible de connaitre la quantité d'instances Excel ouvertes mais pas les noms des fichiers (workbooks) associés ?

Je me suis intéressé à ton post et j'en suis au même point, as-tu déjà commencé quelque chose au quel cas tu pourrai mettre le code pour nous aider à avancer. Par exemple la mêthode que tu as choisi pour compter les instances.

Une question, peux-tu fermer les instances excel une fois ton traitement sur les chaînes de caractère efféctuées ?

Si c'est le cas je verrai peut être une solution pas des plus simple:
Faire un GETOBJET, travailler sur tous les classeurs actifs
Fermer cette instance ...

[Hourko]

Pour le code, aucun mérite. Je l’ai «chipé» dans le forum (un grand merci au façonneur ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub nb_instances()
 
Dim strComputer As String
Dim objWMIService As Object
Dim objList As Object
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objList = objWMIService.execquery("select * from win32_process where name='EXCEL.EXE'")
 
MsgBox "Nombre d'instances : " & objList.Count
 
Set objWMIService = Nothing
Set objList = Nothing
 
End Sub

La première idée concernant le paramétrage Windows, Excel ou même le réseau j’ai lancé l’idée au boulot. Je pense également à chercher un forum spécial Windows. Si je trouve je vous en ferais part.

La deuxième idée, même si elle ne s’applique pas à mon mini projet, est intéressante.
Créer une instance Excel, traiter le fichier associé puis fermer le fichier et l’instance.

Et donc voilà (avec en plus le nb d'instances qui s'affiche):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub traitement_instance_Excel()
Dim strComputer As String
Dim objWMIService As Object
Dim objList As Object
strComputer = "."
Set xlApp = CreateObject("excel.application") ‘la nouvelle instance
xlApp.Visible = True    'affiche l'application.
Workbooks.Open Filename:="C:\......\Toto.xls" ‘le nouveau fichier dans la nouvelle instance
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objList = objWMIService.execquery("select * from win32_process where name='EXCEL.EXE'")
 
MsgBox "Nombre d'instances : " & objList.Count 'il y a effectivement une instance de plus
 
Range("A1").Select          'le traitement ici...
ActiveCell.FormulaR1C1 = "Bonjour le traitement"
ActiveWorkbook.Save
ActiveWorkbook.Close
 
xlApp.Quit
Set objWMIService = Nothing
Set objList = Nothing
Set xlApp = Nothing     
 
End Sub

nota: un truc rigolo, le fichier ne s'affiche pas dans l'instance tant que le message du nb d'instances n'est pas activé. Je pense à un rafraichissement de l'écran à rajouter éventuellement.

Si cella vous inspire ?

Je n'ai tj pas trouvé comment me ballader d'une instance à une autre sans connaitre le nom du fichier à l'avance. A vos compiles Messieurs et merci pour vos futurs comments...

[ouskel'n'or]

forum spécial Windows

Ça existe sur DVP
Pour se balader d'une instance d'Excel sur l'autre, je ne vois pas le pb.
Quand tu crées une instance, tu as son nom. Si tu utilises le nom de l'instance dans une ligne de commande, c'est bien dans l'instance que tu te "balades"

Code :

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

1
2
3
4
5
6
Dim xlApp As Object 'on déclare l'objet application
Dim wkb As Object 'on déclare un objet Workbook (non encore affecté)
Dim sht As Object 'et on déclare un objet feuille (non encore affecté)
    Set xlApp = New Excel.Application 'On crée l'objet application
'c'est ici que ça se passe : On se "balade" dans l'application pour créer l'objet Classeur
    Set wkb = xlApp.Workbooks.Add

Et c'est bien dans xlApp qu'est créé l'objet wkb, et non dans l'application en cours.
A moins que tu ne parles d'autre chose
Tu dis
A+

Edit
Pour le nom d'un classeur ouvert dans une instance, as-tu essayé de lister les classeurs et de faire

Code :

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

1
2
3
For each classeur in xlApp.workbooks
    Nom = Classeur.name
Next

NB - Une recommandation : Evite d'utiliser la sélection dans ton code. A de très rares exceptions près, l'utilisation de select ne fait que ralentir le code et créer des mouvements de fenêtres. Je parle de ces deux lignes que tu peux facilement simplifier :

Range("A1").Select 'le traitement ici...
ActiveCell.FormulaR1C1 = "Bonjour le traitement"

à remplacer par

Code :

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

Range("A1") = "Bonjour le traitement"

Enfin, FormulaR1C1 est utilisé pour écrire dans des adresses relatives et est donc totalement inutile ici.
Bonne journée

[aalex_38]

Bonjour,

Quand tu crées une instance, tu as son nom.

Oui, mais si j'ai bien compris, comment faire pour parcourir toutes les instances, quand on ne crée pas l'instance par macro ?