Traitement dans plusieurs instances en simultané

Version imprimable

Bonjour

J'ai une macro qui ouvre plusieurs classeurs dans autant d'instances. Par contre, je ne sais pas lancer automatiquement la macro qu'ils contiennent. Si je la lance avec le Workbook_Open, les classeurs s'exécutent en séquence. Je mets ci-dessous mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test() Dim EXLAPP(25) As Object, Chemin As String, Alpha As String, Lettre As String If Left(Application.UserName, 6) = "Daniel" Then Chemin = "d:\Users\dcola\Documents\Donnees\Daniel\mpfe\Jean-Claude Cholet\" Else Chemin = "c:\Mes matchs\" End If Alpha = "abcdefghijklmnopqrstuvwxyz" For i = 0 To 25 Lettre = UCase(Mid(Alpha, i + 1, 1)) Set EXLAPP(i) = CreateObject("Excel.Application") EXLAPP(i).Visible = True EXLAPP(i).Workbooks.Open Chemin & "Liste des doublons_" & Lettre & ".xlsm" Next i End Sub
Par avance, merci pour vos suggestions.

08/12/2018, 11h58
patricktoulon

re

re Bonjour daniel
je supose que tu veux lancer une macro qui se trouve dans un modiule respectif de chaque classeur

etant donné que pour executer une macro on fait application.run ("nom macro")
je supose que

Code:

EXLAPP(i).run( "nom de la macro")

doit fonctionner
a tester j'en suis pas sur
;)
08/12/2018, 13h05
Daniel.C

1 pièce(s) jointe(s)
Bonjour et merci pour ta réponse.

Ca ne fonctionne pas. J'ai remplacé ta ligne par :
Code:

1 2 Set Wbk = EXLAPP(i).Workbooks.Open(Chemin & "Liste des doublons_" & Lettre & ".xlsm") EXLAPP(i).Run ("'" & Wbk.Name & "'!test")
La macro s'exécute bien une première fois dans la nouvelle instance mais le code initial n'ouvre pas de nouvelle instance. Il continue à mouliner et quand la macro lancée s'achève, il continue à tourner en affichant périodiquement le message :

Pièce jointe 432952

A moins que tu aies une idée, je pense que je vais laisser tomber.
08/12/2018, 15h42
patricktoulon

re

re
non je n'ai pas d'aure idée

peut etre réactiver l'instance initiale pour qu'elle puisse lancer les autre instances
ajouter un doevents pour tout les window aussi pas un doevents simple
de facon a ce que chaques instance est le temps de faire leur job
je regarderais ca des que j'ai un moment, j'ai tellement de projets ouverts je veux pas trop me dispercer

a moins de passer par un vbs dynamique (passe la main)
08/12/2018, 15h45
Daniel.C

De toute façon merci.

re j'ai pris 10 minutes pour tester su 5 fichier "fichier(A B C D E )"
a l'ancienne avec un vbs dynamique ca fonctionne
dans le classeur maitre j'ai mis ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub demarre()
    Dim code$, Scripts$, fichier$, x&, i, vbs$
    'code = code & "msgbox wscript.arguments(0)" & vbCrLf
    code = code & "Set oExcel = CreateObject(""Excel.Application"")" & vbCrLf
    code = code & "oExcel.Visible = True" & vbCrLf
    code = code & "oExcel.workbooks.open(wscript.arguments(0))" & vbCrLf
    code = code & "oExcel.run(""test"")" & vbCrLf
 
    vbs = ThisWorkbook.Path & "\creator.vbs"
    x = FreeFile: Open vbs For Output As #x: Print #x, code: Close #x
    Scripts = """" & vbs & """ "
    With CreateObject("WScript.Shell")
        sufixe = "ABCDE"
        For i = 1 To Len(sufixe)
            nom = ThisWorkbook.Path & "\" & "fichier" & Mid(sufixe, i, 1) & ".xlsm"
            .Run Scripts & nom  
        Next
    End With
End Sub

dans chaques fichiers "fichierA,fichierB,etc... j'ai mis cette toute petite sub pour tester

Code:

1
2
3
4
5
6
[Sub test()
Application.DisplayAlerts = False
Sheets(1).Cells(1, 1) = "fait"
ThisWorkbook.Save
Application.Quit
End Sub

voila la sub demarre va créer le vbs et lancer autant d'instances du vbs que de lettre dans sufixe

tout mes fichiers ont " fait" dans A1 j'ai bien verifié
autrement dit tout a fonctionner
;)
voila

08/12/2018, 17h38
Daniel.C

Merci, Patrick, je vais tester dès que possible. Je marque résolu, de confiance, mais je te tiendrai informé.
08/12/2018, 17h52
patricktoulon

1 pièce(s) jointe(s)

re

le dossier complet avec le maitre et les fichiers vierges (a b c d e )
09/12/2018, 11h35
Daniel.C

Merci Patrick, ça fonctionne parfaitement. Par contre, je n'arrive pas à l'adapter à mon cas. Il semblerait que ce soit les espaces qui posent problème.la ligne :

Code:

nom = ThisWorkbook.Path & "\" & "Liste des doublons_" & Mid(sufixe, i, 1) & ".xlsm"

Donne bien :

"D:\Users\dcola\Documents\Donnees\Daniel\mpfe\Jean-Claude Cholet\Liste des doublons_A.xlsm"

Ce qui est le bon chemin. Le problème est que je reçois des fenêtres Windows Script Host me disant "Désolé, nous ne trouvons pas 'D:\Users\dcola\Documents\Donnees\Daniel\mpfe\Jean-Claude.xlsx'. Peut être l'avez-vous déplacé...".

Si tu connais un contournement, j'en serais content, sinon je supprimerai les espaces de mes noms.
09/12/2018, 12h42
patricktoulon

re

Bonjour daniel
je vais faire des tests avec des espaces dans le nom
09/12/2018, 12h49
patricktoulon

re probleme d'espace réglé

ajouter un guillemet au debut et a la fin pour que le nom soit pris comme un arugment
dans mon exemple de l'archive j'ai ajouté " excel " dans les noms

Code:

nom = Chr(34) & ThisWorkbook.Path & "\" & "fichier excel " & Mid(sufixe, i, 1) & ".xlsm" & Chr(34)

c'est normal les argument injectés dans l'apel etant séparé par un espace wscript ne sais pas ou s'arrete le nom si il y a des espaces donc on englobe le tout par des guilletmets supplementaires
plus de soucis
;)
pour info et une meileure compréhention
exemple d'apel avec plusieurs arguments

Code:

.Run Scripts & nom " " & "toto" & " " & variable & " " & "titi" & " " & variable2

tout ce qui est ecrit en dur entre guillemet(toto et titi) ,les variables non mais tous séparé par (& " " & )

l'ouverture des instances et des fichiers via vbs t'offre une rapidité pas négligable
en effet tu pourra constater dans mes exemple que c'est a partir du 3 a peu pres que les instances se ferment on se raproche plus du coté "simultané"
un autre avantage aussi c'est que le createobject excel.application est créé en dehors du maitre
en effet quand tu créé un object excel tu charge la memoire d'une instance suplementaire mais aussi la memoire alouée a l'instance du fichier maitre si c'est fait pa VBA et non VBS dans le fichier maitre
on peut parler de multitread en tout cas plus proche ,ce que VBA ne peut pas faire
j'ai tout dis ;)
09/12/2018, 14h04
Daniel.C

Super ! Encore une fois, merci. Ca donne envie de se plonger dans VBS.
Bonne fin de dimanche.
09/12/2018, 15h06
patricktoulon

re

de rien daniel

pour certains vbs est inhibé sur leur becane pour raison de securité( a prendre a compte si le fichier maitre doit etre excuté sur ses machines
perso j'ai peu etre eu de la chance je travaillais avec dans des html ou hta bien avant de travailler en vba et je n'ai jamais eu de soucis

quasiment tout ce que tu peux faire sur un sheets en vba tu peux le faire en vbs seule la syntaxe diffère un peu