Ouvrir un .CHF en VB

Marsh Posté le 13-01-2006 à 09:34:46

:hello:

J'aurai voulu savoir comment je pourrai ouvrir un ".CHF" par le code en VB...
J'ai bien testé ca :

Code :

Shell "command.com /c C:\Program~1\Symantec\pcAnywhere\CMS\TIVOLI.CHF"

Mais ca ne marche pas

Si quelqu'un pourrai m'aider je lui en serai fort reconnaissant ! merci d'avance

Reply

Marsh Posté le 13-01-2006 à 09:34:46

Reply

Marsh Posté le 13-01-2006 à 09:37:23

et ca :

Shell "command.com /c C:\\Program~1\\Symantec\\pcAnywhere\\CMS\\TIVOLI.CHF" ?

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 09:39:37

Dans l'aide de VBA :

Shell, fonction, exemple
Cet exemple utilise la fonction Shell pour exécuter une application indiquée par l'utilisateur. Sur Macintosh, le nom de l'unité par défaut est "HD", les éléments constitutifs du chemin d'accès étant séparés par des deux-points au lieu des barres obliques inversées. De même, vous devez remplacer \Windows par des dossiers Macintosh.

' Si vous attribuez la valeur 1 au deuxième argument,
' l'application s'ouvre à sa taille normale
' et devient l'application active.
Dim RetVal
' Exécute la calculatrice.
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 09:47:37

Merci de vos 2 réponses mais ceci ne marche pas Les commandes marchent avec les .exe mais pas avec les .CHF on dirai :'(

pourtant sous Windows quand je le lance ca amrche très bien, bizarre bizarre ^^

Message édité par Crawdge le 13-01-2006 à 09:49:05

Reply

Marsh Posté le 13-01-2006 à 10:14:58

Je pense que c'est normal que cela ne marche pas car Shell ouvre que des fichiers exécutables...

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 10:20:11

Ah bah voilà alors

Et saurai tu comment je pourrai faire pour ouvrir mon CHF alors s'il te plait?

Reply

Marsh Posté le 13-01-2006 à 10:21:09

Essaies ca :

Open "C:\Program~1\Symantec\pcAnywhere\CMS\TIVOLI.CHF"

ce doit être la fonction Open la plus appropriée mais avec peut être des variantes...

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 10:22:14

Je n'en sais pas beaucoup plus que toi, mais je cherche... :lol: Et à deux, on a plus de chances de réussir...

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 10:24:58

voilà, merci bcp je continue a cherché aussi alors

Reply

Marsh Posté le 13-01-2006 à 10:32:25

y'a tout simplemenet ca sinon mais il l'ouvre mais je ne le vois pas (il l'ouvre car quand je reclic il dis que c déjà ouvert o_O)

Open "C:\Program Files\Symantec\pcAnywhere\CMS\TIVOLI.CHF" For Input As #1

(cependant open c'est pas que pour les .txt ? lol)

Message édité par Crawdge le 13-01-2006 à 10:33:48

Reply

Marsh Posté le 13-01-2006 à 10:32:25

Reply

Marsh Posté le 13-01-2006 à 10:37:43

Ce doit être le mode d'ouverture qui ne convient pas... Mets Random à la place

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 10:45:08

il reconnait pas random, faut faire quoi comme déclaration?

Reply

Marsh Posté le 13-01-2006 à 11:02:50

Je sais pas trop comment faire...

Message édité par Manu la Science le 13-01-2006 à 11:03:57

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Reply

Marsh Posté le 13-01-2006 à 11:04:25

Fonction non défini me dis t'il

Reply

Marsh Posté le 14-01-2006 à 08:43:26

Essai éventuellement « ShellExecute » / « ShellExecuteEx » par un appel d'API, mais je crois que ça ne fonctionne que si ton extention est associée à une application

http://msdn.microsoft.com/archive/ [...] elexec.asp

Rubrique « Opening Documents »
N'oublie pas la déclaration de la fonction « A Shelling We Will Go! » : Declare Function...

Bonne chance

Reply

Marsh Posté le 16-01-2006 à 09:02:59

Hum hum... a vrai dire j'arive pas a l'executer... lol

Il me mets "Type d'argument ByRef incompatible"...
C'est quoi ce qu'il appele le FormName ? C'est pas le nom du formulaier o_O

Merci

Reply

Marsh Posté le 16-01-2006 à 18:54:33

Teste ceci :

ajoute un bouton (command1) et crée un fichier « fichierbidon.txt » à la racine de ton disque « C: » par exemple

Colle le code qui suit :

Citation :

Option Explicit

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_NORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_MAXIMIZE As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10
Const SW_FORCEMINIMIZE As Long = 11
Const SW_MAX As Long = 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 Sub Command1_Click()
OpenThisDoc Me.hwnd, "c:\fichierbidon.txt"
End Sub

Private Sub OpenThisDoc(hForm As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(hForm, "Open", FileName, 0&, 0&, SW_SHOWNORMAL)
End Sub

Chez moi ça ouvre le fichier avec le bloc notes

Bonne chance

Reply

Marsh Posté le 17-01-2006 à 08:36:49

Bonjour et meci de ta réponse, cependant je vois bien qu'il ouvr le notepazd.exe dans les processus démarrés, mais je ne le vois pas autrement...
Bizarre bizarre

(et c'est pareil pour un .CHF ?)

merci

Reply

Marsh Posté le 17-01-2006 à 16:39:27

il ouvre le bloc notes parceque l'extention TXT est associée au bloc notes comme il ouvrirait un fichier DOC avec Word ou HTM avec Internet Explorer, il devrait ouvrir ton CHF avec l'application qui lui est dédiée si cette extention est associée à une application dont tu disposes
D'où vient le CHF (quelle application) ?

Reply

Marsh Posté le 18-01-2006 à 08:58:21

Ok je comprend mieux
merci bien

le CHF vient de PcAnywhere... cependant il ne veut plus l'ouvrir directement... alors qu'avant il voulai bien... bizarre lol...

(sinon ton code marche parfaitement Merci)

Reply

Ouvrir un .CHF en VB

Sujets relatifs:

Leave a Replay