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

**dumpill** · 11/12/2008, 09h58

Bonjour à tous

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 :

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

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 :

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

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 ?

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

**decondelite** · 11/12/2008, 14h19

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

**dumpill** · 11/12/2008, 15h46

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

Code :

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

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.

**decondelite** · 11/12/2008, 16h39

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

**dumpill** · 11/12/2008, 17h32

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

Code :

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

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...

pas taper!!!

**dumpill** · 12/12/2008, 09h33

Bonjour Decondelite , Bonjour le forum

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

.

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…

.

**dumpill** · 12/12/2008, 10h51

J'avance un peu

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

Code :

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

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 » ?

**pgz** · 12/12/2008, 11h02

Bonjour

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?

**dumpill** · 12/12/2008, 11h38

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.

**pgz** · 12/12/2008, 12h14

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

**dumpill** · 15/12/2008, 07h59

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.

**pgz** · 15/12/2008, 10h45

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

**dumpill** · 15/12/2008, 12h00

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

.

**pgz** · 15/12/2008, 12h27

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

Code :

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

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 :

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

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 :

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

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

**dumpill** · 15/12/2008, 13h25

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 :

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

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

**pgz** · 15/12/2008, 13h48

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

Essaie

Code :

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

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

**dumpill** · 15/12/2008, 14h27

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.

**pgz** · 15/12/2008, 14h55

Et si tu fais

Code :

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

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?