Ouverture de fichiers extérieurs à Excel à partir d'une userform excel?

Version imprimable

Bonjour à tous:D

Je souhaite ouvrir des fichiers d’assemblages d’un logiciel de dessin 3D à partir d’une UserForm sur Excel. Je suis tout d’abord passé par des liens hypertexte mais il se trouve que cette méthode empêche le recalcule de mon assemblage qui se met en carafe. Donc je suis passé par une condition « Shell » du genre
Code:

1 2 3 Sub ShellOuvrir() Shell """C:\Program Files\Solid Edge V20\Program\Edge.exe"" ""C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm""", vbMaximizedFocus End Sub
Avec cette méthode, l’ouverture et le recalcule de mon assemblage se fait sans problème (relations entre les différentes pièces et dimensions des pièces). Cependant je suis obligé de répéter plusieurs fois

Code:

Shell """C:\Program Files\Solid Edge V20\Program\Edge.exe"" ""C:\Documents and Settings\....

pour ouvrir plusieurs assemblages à la fois et du coup il m’ouvre autant de fois le logiciel 3D.
Pour être plus claire, pour « n » assemblage ouvert j’ai « n »fois le « Edge.exe » ouvert.
Est-ce que quelqu’un peut m’expliquer comment faire pour ouvrir plusieurs fichiers d’assemblage dans un seul « Edge.exe » ou m’aiguiller sur une autre méthode ?8O

Je vous remercie d’avance de l’attention apporté à mon problème.
Cordialement Le Dumpill :D

11/12/2008, 14h19
decondelite

Tu ne peux pas les ouvrir en rajoutant des arguments dans la même ligne?

J’ai essayé de plusieurs manière différente comme :

Code:

1
2
3
4
5
6
7
8
9
Sub ShellOuvrir()
       Shell """C:\Program Files\Solid Edge V20\Program\Edge.exe"" ""C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"" ""C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Cadre AR STD.asm""", vbMaximizedFocus
End Sub
 
‘ou bien
 
Sub ShellOuvrir()
       Shell """C:\Program Files\Solid Edge V20\Program\Edge.exe"" ""C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm""&""C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Cadre AR STD.asm""", vbMaximizedFocus
End Sub

Et j’en passe…mais ça n’a rien donné…je n’ai que le premier assemblage qui s’ouvre.:cry:

11/12/2008, 16h39
decondelite

Essaye de mettre des virgules entre tes différents arguments. ;)

J'ai placé des virgule comme tu me dis mais j'en suis toujours au même point
Code:

1 2 3 Sub ShellOuvrir() 'Shell """C:\Program Files\Solid Edge V20\Program\Edge.exe"" ""C:\Documents and Settings\dhume\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"", ""C:\Documents and Settings\dhume\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Assemblage pavillon.asm""", vbMaximizedFocus End Sub
J'ai aussi rajouté/suprimé des guillemets, déplacé les virgules mais à part le plantage, rien...

Si j'ai faux...:oops:pas taper!!!:oops:

12/12/2008, 09h33
dumpill

Bonjour Decondelite , Bonjour le forum

Pas besoins de savoir comment fonctionne mon logiciel 3D (enfin je pence pas…):D.

Je suis sur la partie Excel de mon travail où j’ai créé plusieurs UserForm qui me servent à renseigner le type de produit que l’on souhaite dans le classeur .xls et, selon ce qui est dit, des liens hypertexte relier à mes assemblages 3D ce mettent en place. Donc dans le but de réduire les manipulations j’ai terminé mon code par la simulation de clic sur ces liens. Ce qui fonctionné très bien jusqu’à ce que je me rende compte que cette manière d’ouvrir mes assemblages 3D les faisaient ce planter (en gros c’est une histoire de relations entre pièces qui sont sensée être égale à 0 mm et qui ce retrouvent sans dire pourquoi à 300 mm). C’est pourquoi j’essaye d’une autre manière et comme tout ce que je fais avec les macros, je l’apprends sur le tas, la je sollicite un petit coup de pouce parce que je sèche…:roll:.

J'avance un peu :yaisse2:
Sur un autre forum on m'a proposé un code que j'ai un peu bidouillé pour obtenir un résultat :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub ShellOuvrir() For x = 1 To 2 Step 1 'deux fichiers a ouvrir stAppName = "C:\Program Files\Solid Edge V20\Program\Edge.exe" 'chemin de l'application If x = 1 Then chemin = """C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm""" 'chemin du premier fichier If x = 2 Then chemin = """C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Assemblage pavillon.asm""" 'chemin du second fichier stAppName = stAppName & " " & chemin Call Shell(stAppName, vbMaximizedFocus) Next x End If
Mon problème est en partie résolu car il reste un petit détail à régler :
Les deux fichiers s’ouvrent dans deux « Edge.exe » différent. Ce qui prend un temps fou d’ouverture et qui n’est pas pratique à l’utilisation (et je ne lui en demande que 2 pour l'instant alors que je peux en avoir plus de 20...).
Donc n’y a-t-il pas un moyen de faire s’ouvrir tous les documents dans le même « Edge.exe » ?

12/12/2008, 11h02
pgz

Bonjour

Citation:

Envoyé par dumpill

et, selon ce qui est dit, des liens hypertexte relier à mes assemblages 3D ce mettent en place. Donc dans le but de réduire les manipulations j’ai terminé mon code par la simulation de clic sur ces liens. Ce qui fonctionné très bien jusqu’à ce que je me rende compte que cette manière d’ouvrir mes assemblages 3D les faisaient ce planter

Question : quand tu ouvres en cliquant les liens ypertextes, cela se passe comme tu veux?
12/12/2008, 11h38
dumpill

Bonjour pgz

Non pas du tout.
Enfin...cela m'ouvre bien mes assemblages...mais la mise à jour des ces derniers ne se fait pas correctement et c'est donc pour ça que je cherche une autre solution d'ouverture.:?
12/12/2008, 12h14
pgz

Bon, alors une idée, pas très sûre.

Si tu ouvres une première fois l'appli avec Shell, tu peux récupérer de processID. Avec ca on pourrait envisager de chercher le handle de la fenêtre. Avec le handle de la fenêtre ou peut utiliser ShellExecute.

Tu vois l'idée? Bon ce n'est pas du tout cuit, et peut-être qu'au final cela ne marche pas...

PGZ
15/12/2008, 07h59
dumpill

Bonjour PGZ
Peut tu m’en dire plus car j’avoue avoir une connaissance quelque peu limité dans le domaine et je n’ai pas tout compris .Mais même si cela ne fonctionne pas, ce sera toujours bon connaitre.
15/12/2008, 10h45
pgz

Bonjour.

A mon avis, première étape : au lieu d'ouvrir avec la méthode Shell, utilise l'API ShellExecute. Et regarde comment cela se passe de cette façon.

PGZ
15/12/2008, 12h00
dumpill

As-tu un exemple de la mise en place du « ShellExecut » , sur lequel je puisse m’appuyer ?
…je rame un peu….:oops:.

Tu devrais facilement trouver sur le web. En gros cela ressemble à ça:
tu déclares l'API

Code:

1
2
3
4
5
6
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                                                        ByVal lpOperation As String, _
                                                                        ByVal lpFile As String, _
                                                                        ByVal lpParameters As String, _
                                                                        ByVal lpDirectory As String, _
                                                                        ByVal nShowCmd As Long) As Long

les constantes dont tu as besoin, par exemple

Code:

Private Const ShExShowNormal = 1&

et quand tu utilises tu ne mets que le chemin du fichier, pas de l'applicatif. Par exemple dans ton cas

Code:

1
2
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)

A mettre au point.
Puis tu le fais 2 fois avec 2 fichiers différents et tu vois ce que cela donne.

PGZ

Pour voir ce que sa faisais, j’ai mis ton code tel quel puis je l’ai exécuté.
Il me dit :
« Erreur de compilation : instruction incorrecte à l’extérieur d’une procédure » pour la ligne « sFile = »

Code:

1
2
3
4
5
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const ShExShowNormal = 1&
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
End Sub

Je n'ai pas dû être trop clair.

Essaie

Code:

1
2
3
4
5
6
7
8
9
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const ShExShowNormal = 1&
 
sub subOuvreFile
dim sFile as string, RetVal as long
 
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
End Sub

15/12/2008, 14h27
dumpill

Cette méthode ouvre bien mon fichier assemblage cependant elle l’ouvre deux fois (dont une fois en lecture seule) ce que je ne comprends pas. Donc il reste à régler ce problème et à faire s’ouvrir plusieurs assemblages.

Et si tu fais

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const ShExShowNormal = 1&
 
sub subOuvreFile
dim sFile as string, RetVal as long
 
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Assemblage pavillon.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
End Sub

Ca donne quoi?

15/12/2008, 15h52
dumpill

Non rien à changé. Toujours les même problèmes…..:(
15/12/2008, 16h39
pgz

Et quand tu ouvres ces 2 fichiers par click dans l'explorateur, l'exe se lance une fois, ou deux?
15/12/2008, 16h50
dumpill

Une fois.
15/12/2008, 16h56
pgz

Alors je sèche.

PGZ
15/12/2008, 17h06
dumpill

Si par hazard j'avais dis "Deux fois"(même si ce n'est pas le cas).....c'est que tu avais une idée?
15/12/2008, 17h47
pgz

Citation:

Envoyé par dumpill

Si par hazard j'avais dis "Deux fois"(même si ce n'est pas le cas).....c'est que tu avais une idée?

Si en cliquant sur 2 assemblages on ouvrait 2 applications, alors, à mon avis :
- soit ce serait inhérent à l'applicatif
- soit ce serait une option à positionner correctement.

Mais ce n'est pas le cas. Donc une application ouverte peut supporter plusieurs documents, et les supporte effectivement.

L'ouverture avec Shell appelle à chaque fois le .exe. Donc pas trop étonnant que tu obtiennes plusieurs instances de l'appli.

Mais ce n'est pas le cas de ShellExecute et tu as le même résultat. En plus quand tu lances un seul fichier :

Citation:

Cette méthode ouvre bien mon fichier assemblage cependant elle l’ouvre deux fois (dont une fois en lecture seule)

Ce qui est encore pire. Au fait quand tu lances 2 fichiers, tu en a 3 ou 4?
Alors je sèche.

Peut-être un truc genre complexe pétrochimique, une usine à gaz hérissée d'antennes : en appelant l'explorateur et en cliquant avec des API, mais ça devient un boulot à plein temps pour un weekend...
16/12/2008, 08h12
dumpill

Bonjour PGZ
Quand je lance la macro pour deux fichiers différents, je me retrouve avec deux fois le même dont un en lecture seule et ceci dans le même « .exe ».
Le deuxième fichier qu’on lui a demandé d’ouvrir à dût passer à la trappe car il n’y en à aucune trace.

Sinon j’ai remarqué une chose qui ne me parait pas très « logique » avec le code que l’on m’a donné sur un autre forum. Il ouvre bien mes fichiers (certes dans deux .exe différents) et je n’ai aucun problème de mise à jour ou de relation quand ils se trouvent dans le même répertoire. Seulement, deux fichiers situer dans des répertoires différents, il ouvre celui dont le chemin est le plus long correctement tandis que pour celui dont le chemin est le plus court alors la c’est une catastrophe... (Perte de relation, perte de pièces…) pris séparément il n’y a pas de problème……C’est à n’y rien comprendre…..
16/12/2008, 10h39
pgz

Bonjour.

Peux-tu donner les codes correspondant aux deux comportements que tu décris?

PGZ

Le premier code est celui que tu m’a donné précédement :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const ShExShowNormal = 1&
 
sub subOuvreFile
dim sFile as string, RetVal as long
 
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
sFile = "C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Assemblage pavillon.asm"
RetVal = ShellExecute(0&, "Open", sFile, ByVal 0&, 0&, ShExShowNormal)
End Sub

Le second code est :

Code:

1
2
3
4
5
6
7
8
9
Sub Bouton15_QuandClic()
For x = 1 To 2 Step 1     'deux fichiers a ouvrir
stAppName = "C:\Program Files\Solid Edge V20\Program\Edge.exe"    'chemin de l'application
   If x = 1 Then chemin = """C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Face AV STD.asm"""      'chemin du premier fichier
   If x = 2 Then chemin = """C:\Documents and Settings\Nom du PC\Bureau\Lancement des carrosseries\Dossier Gamme Basse\Fourgon GB\Cadre AR\Porte à vantaux\Vue dessus pour mise en plan.asm"""             'chemin du second fichier
stAppName = stAppName & "  " & chemin
Call Shell(stAppName, vbMaximizedFocus)
Next x
End Sub

Bonjour,

pour ce genre de problématique j'utilise personnelement ShellExecuteEx qui à l'avantage de ramener l'ID du process initié.

Avantage: on peut tuer le process lancé et ainsi éviter d'avoir de multiples occurence qui restent ouvertes.

inconvénients : il faut savoir quand on peut tuer le process, quand il est terminé.

Ci-dessous un exemple de code pour afficher un fichier (Attachement_file) avec le viewer par défaut lié à ce type de fichier.
Je m'en sert pour afficher des PDF, sans me soucier de la version d'abode installée.
Ensuite, mais c'est spécifique à mon code, je tue le process précédent avcant d'afficher le nouveau pdf.

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Option Explicit
 
'Flags ShellExecuteEx
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
 
'Constantes ERREUR ShellExecuteEx
Private Const SE_ERR_FNF As Byte = 2
Private Const SE_ERR_PNF As Byte = 3
Private Const SE_ERR_ACCESSDENIED As Byte = 5
Private Const SE_ERR_OOM As Byte = 8
Private Const SE_ERR_SHARE As Byte = 26
Private Const SE_ERR_ASSOCINCOMPLETE As Byte = 27
Private Const SE_ERR_DDETIMEOUT As Byte = 28
Private Const SE_ERR_DDEFAIL As Byte = 29
Private Const SE_ERR_DDEBUSY As Byte = 30
Private Const SE_ERR_NOASSOC As Byte = 31
Private Const SE_ERR_DLLNOTFOUND As Byte = 32
 
'Constantes AFFICHAGE ShellExecuteEx
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOW = 5
Private Const SW_SHOWDEFAULT = 10
 
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hWnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
 
'OpenProgram
Private Declare Function ShellExecuteEx Lib "shell32.dll" _
(SEI As SHELLEXECUTEINFO) As Long
 
 
'CloseProgram
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
 
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
 
Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
 
Public Const WM_CLOSE = &H10
Const GW_HWNDNEXT = 2
Dim mWnd                    As Long
Dim PhWnd                   As Long
Dim P_Attachement_file      As String
Private AppCible            As String

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
' ***********************************************************
' *
' * Lance le programme par défaut associé à un fichier (en fonction de son
' * extension ) et retourne le hWnd de la fênetre du programme lançé.
' *
' ***********************************************************
 
Public Function OpenProgram(ByRef Filename As String, ByRef OwnerhWnd As Long) As Long
    Dim SEI As SHELLEXECUTEINFO
 
    On Error GoTo ErrorHandler
 
    'Vérifie si le fichier à lancer est un exécutable (.exe)
    If GetExtension(Filename) = "exe" Then
        If vbNo = MsgBox("ATTENTION, êtes-vous sûr de vouloir lancer ce programme exécutable ?", vbExclamation + vbYesNo) _
        Then
            OpenProgram = 0
            Exit Function
        End If
    End If
 
    With SEI
        .cbSize = Len(SEI)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_FLAG_NO_UI
        .hWnd = OwnerhWnd
        .lpVerb = "open"
        .lpFile = Filename
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = SW_SHOW
        .hInstApp = OwnerhWnd
    End With
 
    OpenProgram = ShellExecuteEx(SEI)
 
    If SEI.hInstApp <= 32 Then
    'Erreurs
        OpenProgram = 0
 
        Select Case SEI.hInstApp
            Case SE_ERR_FNF
                OpenProgram = SEI.hProcess
            Case SE_ERR_PNF
                MsgBox "Le chemin du fichier à ouvrir est incorrect.", vbExclamation
            Case SE_ERR_ACCESSDENIED
                MsgBox "Accès au fichier refusé.", vbExclamation
            Case SE_ERR_OOM
                MsgBox "Mémoire insuffisante.", vbExclamation
            Case SE_ERR_DLLNOTFOUND
                MsgBox "Dynamic-link library non trouvé.", vbExclamation
            Case SE_ERR_SHARE
                MsgBox "Le fichier est déjà ouvert.", vbExclamation
            Case SE_ERR_ASSOCINCOMPLETE
                MsgBox "Information d'association du fichier incomplète.", vbExclamation
            Case SE_ERR_DDETIMEOUT
                MsgBox "Opération DDE dépassée.", vbExclamation
            Case SE_ERR_DDEFAIL
                MsgBox "Opération DDE echouée.", vbExclamation
            Case SE_ERR_DDEBUSY
                MsgBox "Opération DDE occupée.", vbExclamation
            Case SE_ERR_NOASSOC
                'Ouvrir avec...
                Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " + Filename, vbNormalFocus)
        End Select
    Else
        'Retourne le hWnd du programme lançé par ShellExecuteEx
        OpenProgram = SEI.hProcess
    End If
 
    Exit Function
ErrorHandler:
    OpenProgram = 0
End Function
 
' ***********************************************************
' *
' * Ferme un programme à partir du hWnd de sa fenêtre.
' *
' ***********************************************************
 
Public Function CloseProgram(hWnd As Long) As Boolean
    Dim lExitCode As Long
 
    If hWnd = 0 Then
        Exit Function
    End If
 
    On Error Resume Next
    CloseProgram = CBool(TerminateProcess(hWnd, lExitCode))
    'On Error Resume Next
    CloseHandle hWnd
    DoEvents
    Sleep (100)
 
End Function

le code suivant est dans un boucle de traitement des PDf d'un folder

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
                     If P_Attachement_file <> "" Then
                       If PhWnd <> 0 Then
                         'Close default Viewer if openedt
                         Call CloseProgram(PhWnd)
                         DoEvents
                       End If
                       Application.Wait (Now + TimeValue("0:00:05"))
'..... traitement 
                                           P_Attachement_file = ""
                    PhWnd = 0
 
                    Application.Wait (Now + TimeValue("0:00:01"))
                    '*************************************
                    'Show Attachement With Default Viewer
                    PhWnd = OpenProgram(Attachement_file, 0)
                    P_Phwnd = PhWnd

J'espère que cela pourra t'aider. :mouarf: