Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic ouvrir un .doc avec vb5

ouvrir un .doc avec vb5

5 réponses
Avatar
bruno.jeune
Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document directement
et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois comprends
que cela fonctionne qu'avec des Exe

ouvre = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 3)
PS j'ai plusieurs fichiers word à ouvrir
Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

Quelque chose du genre :

Private Sub Command1_Click()
Dim CheminFichier As String, Appli As String, Ouvre
Appli = "C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE "
CheminFichier = "C:Documents and SettingsUserMes documentsEssai
Ouverture.doc"
Ouvre = Shell(Appli & Chr(34) & CheminFichier & Chr(34), 3)
End Sub

A+
Eric

"bruno.jeune" écrivait
news:41ca830f$0$12890$:

Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document
directement et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois
comprends que cela fonctionne qu'avec des Exe

ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE",
3)
PS j'ai plusieurs fichiers word à ouvrir
Merci






Avatar
Denis
"Eric" a écrit dans le message de news:

Bonjour,

Quelque chose du genre :

Private Sub Command1_Click()
Dim CheminFichier As String, Appli As String, Ouvre
Appli = "C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE "
CheminFichier = "C:Documents and SettingsUserMes documentsEssai
Ouverture.doc"
Ouvre = Shell(Appli & Chr(34) & CheminFichier & Chr(34), 3)
End Sub

A+
Eric

"bruno.jeune" écrivait
news:41ca830f$0$12890$:

Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document
directement et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois
comprends que cela fonctionne qu'avec des Exe

ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE",
3)
PS j'ai plusieurs fichiers word à ouvrir
Merci










encore mieux, il utilise les associations, on peut ouvrir n'importe quel
fichier avec, et ca lance le programme associé :

Private Declare Function apiShellExecute 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

'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 3 'Open Maximized
Public Const WIN_MIN = 2 'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

'***************Usage Examples***********************
'Open a folder: ?fHandleFile("C:TEMP",WIN_NORMAL)
'Call Email app: ?fHandleFile("mailto:",WIN_NORMAL)
'Open URL: ?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C:TEMPTestThis",Win_Normal)
'Start Access instance:
' ?fHandleFile("I:mdbsCodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)

If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL "
_
& stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function


babaille :)
Avatar
bruno.jeune
Merci à vous deux je vais vite essayer cela qui me semble impeccable
Bruno

"bruno.jeune" a écrit dans le message news:
41ca830f$0$12890$
Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document directement
et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois


comprends
que cela fonctionne qu'avec des Exe

ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE", 3)
PS j'ai plusieurs fichiers word à ouvrir
Merci





Avatar
ng
Salut,

Il vaut mieux utiliser ShellExectue() comme indiqué par Denis.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

bruno.jeune wrote:
Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document
directement et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois
comprends que cela fonctionne qu'avec des Exe

ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE",
3)
PS j'ai plusieurs fichiers word à ouvrir
Merci


Avatar
bruno.jeune
Merci Denis
j'ai pas mal galèré mais comme je suis têtu cela fonctionne maintenant.
Je comprends pas tout le code, mais je pense pouvoir l'adapter à ma guise
pour mon logiciel
A+ Bruno

"bruno.jeune" a écrit dans le message news:
41ca830f$0$12890$
Bonjour,
cette commande ouvre Word mais je souhaite ouvrir mon document directement
et non seulement Word
Je souhaite placer le code sous un bouton ou un menu mais je crois


comprends
que cela fonctionne qu'avec des Exe

ouvre = Shell("C:Program FilesMicrosoft OfficeOfficeWINWORD.EXE", 3)
PS j'ai plusieurs fichiers word à ouvrir
Merci