cs_aljeth
Messages postés12Date d'inscriptionsamedi 31 octobre 2009StatutMembreDernière intervention 9 juillet 2011
-
21 janv. 2010 à 21:28
cs_aljeth
Messages postés12Date d'inscriptionsamedi 31 octobre 2009StatutMembreDernière intervention 9 juillet 2011
-
23 janv. 2010 à 14:28
bonjour,
Sous Excel en utilisant une macro il est possible de lancer différentes applications de types : Shell ("winword.exe") ou Shell ("outlook.exe")etc... Existe t'il une commande similaire dans une application VB ? En fait je souhaite lancer une application sans en donner le chemin "c:\monappli.exe", ce que l'on fait avec ShellExecute en api.
cs_bidouille007
Messages postés256Date d'inscriptionjeudi 11 septembre 2008StatutMembreDernière intervention22 décembre 20121 23 janv. 2010 à 06:25
Je pense savoir ce que tu veux dire.
Par exemple ouvrir un fichier PDF sans te soucier de l'endroit ou se trouve le programme ca existe cette commande, il y a je crois shellexecute('open' ou 'print' et le nom du fichier mais je t'avoue ne plus trop savoir si c'est du VBA ou VB.NET et de toute la syntace. Au
A tout hasard j'ai ca dans un de mes programmes qui ouvre une page web
System.Diagnostics.Process.Start(string)
ou aussi ca dans du vba :
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
ShellExecute x, "print", NomFichier, "", "", 1
pour que ca fonctionne il faut que l'extension du fichier soit relier à un programme sinon ca ne marchera pas avant le lancement de ton programme, pour un PDF ou une page WEB ca devrait pas poser de problème ou un .doc enfin les extensions les plus courues.
bidouille007
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_aljeth
Messages postés12Date d'inscriptionsamedi 31 octobre 2009StatutMembreDernière intervention 9 juillet 2011 23 janv. 2010 à 14:09
bon pour solutionner mon problème, je pars sur une solution pas très pro mais qui traite mon souci. J'installe le fichier classeur1.xls sur mon dossier d'installation et j'utilise le code suivant :
Dim apExcel As Variant
Set apExcel = CreateObject("excel.application")
With apExcel
.Visible = True
.Workbooks.Open App.Path & "\classeur1.xls"