Comment ouvrir plusieurs fichiers d'un autre programme à partir des macros Excel

Question

Bonjour à tout le forum



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Je souhaite ouvrir plusieurs fichiers qui sont complètements extérieurs à Excel, par une macro. 


Après quelques recherches, j’ai réussis à faire marcher ce code  sur un bouton-clic:



 




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



 


 




Donc avec ça, mon bouton m’ouvre bien mon programme et mon fichier.


Cependant, je souhaite qu’il m’en ouvre plusieurs les un après les autres sans pour autant ouvrir à chaque fois le « Edge.exe».



 




Exemple 1 :



 




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




 


1°) Ouvre SolidEdge


2°) Ouvre mon fichier des « Face AV STD »


3°) N’ouvre pas mon fichier des « Cadre AR STD »



 




Exemple 2 :



 




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



      



 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\Cadre AR STD.asm""", vbMaximizedFocus



 




End Sub



 




1°) Ouvre SolidEdge


2°) Ouvre mon fichier des « Face AV STD »


3°) Ouvre SolidEdge une seconde fois


4°) Ouvre mon fichier des « Cadre AR STD » (avec quelques bugs mais je ne crois pas que c’est lié)



 




Si quelqu’un peut me dépanner je lui serais éternellement reconnaissant parce que la je craque !!!!!!



 




Cordialement   Le Dumpill

cs_akzo · Answer

bonjour
essaye ceci pour voir 

stAppName = "C:\Program Files\Microsoft Office\OFFICE11\winword.exe"    'chemin de l'application


for x = 1 To 2 Step 1                                  'deux fichiers a ouvrir
   If  x 1 Then chemin "C:\cos3x.doc"     'chemin du premier fichier   If  x 2 Then chemin "C:\1.doc"            'chemin du second fichier

stAppName = stAppName & "  " & chemin   
Call Shell(stAppName, vbMaximizedFocus)

Next x

salutation

LeDumpill · Answer

Bonjour et merci pour ton aide



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Je viens d’essayer ton code en mettant le chemin de mon programme et de deux de mes assemblages.



 




La macro ouvre deux fois l’EDGE.exe pour que ce dernier me dise « Impossible de trouver le fichier C:\Document. ». Seulement je ne vois pas d’autre chemin possible…..



 




Sub ShellOuvrir()


stAppName = "C:\Program Files\Solid Edge V20\Program\Edge.exe"    'chemin de l'application



 




For x = 1 To 2 Step 1                                  'deux fichiers a ouvrir



 





   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 Sub



 




Ou bien c’est moi qui fait le « Parpaing » en me plantant ?

cs_akzo · Answer

Bonsoir

Retente de mettre les fichiers que tu dois ouvrir sur c:\  
Car pour moi aussi si j'ai mes fichiers dans mes documents il ne les trouve pas mais j'avous que je ne sais pas trop pourquoi pour le moment

Si en placant tes fichiers a ouvrir sur c:\ et que cela fonctionne on poseras la question pourquoi le chemin n'est pas valable dans mes documents ou peut etre aiileur

salutation

LeDumpill · Answer

Rien à faire....Les fichiers sont toujours introuvables même avec un chemin ultra court.......If x 1 Then chemin "C:\Face AV STD.asm" 

Je vais tenter avec d'autres fichier d'un autre programme pour voir si cela est générale

LeDumpill · Answer

Non....Même avec un autre programme et des fichiers differents, impossible de les ouvrirs...

cs_akzo · Answer

Pourtant avec word ca fonctionne chez moi ,j'ai mis le bout de prog dans excel et je lance bien word avec les deux fichiers ouverts mais demain je tenterais d'ouvrir d'autre type de fichier pour voir et je te tiendrais au courant ,je compte sur toi aussi si tu as du nouveau.
Bonne fin de soirée

LeDumpill · Answer

Bonjour Akzo, bonjour le forum

J’ai réussi à ouvrir deux fichiers avec Word et avec Excel par la macro. Je me suis rendus compte qu’il me manquait deux guillemets de chaque coté du chemin en plus de ceux déjà présents. Maintenant il me signale qu’il doit les ouvrir en lecture seule. Donc j’ai quand même fais la manipulation pour l’ouverture de mes assemblages avec mon logiciel de dessin 3D et la rebelote, ouverture en lecture seule avec en prime deux fois le même assemblage dont un où il me perd la moitié des pièces………

je dis pas glop du tout ..mais on avance…..

LeDumpill · Answer

Que du bonheur !!! Mes deux fichiers d’assemblage s’ouvrent !!!



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




J’ai modifié le code comme suit pour obtenir ce résultat :


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\dhume\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\dhume\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. Donc n’y a-t-il pas un moyen de faire s’ouvrir tous les documents dans le même « Edge.exe »

LeDumpill · Answer

Bonjour à tous
Encore un problème avec ce code :
 Par exemple, si je lui demande de m’ouvrir deux  fichiers d’assemblages qui ont des chemins différents,

C:\Documents and ……..\Fourgon GB\Laterale\Nouvelle porte latérale\Porte latérale coulissante.asm
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??> 

C:\Documents and ……..\Fourgon GB\Face AV STD.asm

 

Celui dont le chemin est le plus long vat être ouvert sans problème, par contre l’autre vat avoir tous les problèmes du monde comme la perte de pièces. Par contre si je mets ces deux fichiers dans le même répertoire, aucun souci...

La solution serais donc de mètre tout mes assemblages dans le même répertoire mais ceci une opération impossible au vue du temps que cela prendrais.

Bref…Help !!!........

Comment ouvrir plusieurs fichiers d'un autre programme à partir des macros Excel

9 réponses

Votre réponse

Discussions similaires