fHandleTitle

RE Bonjour

ça ne sert à rien de reposer la même question sans lire ou réagir par rapport aux éventuelles
réponses qui t'ont été données !

Dommage ...


"Cestmoi" <nospam-af0509@teledisnet.be> a écrit dans le message de news:
eD1RBwZeFHA.3160@TK2MSFTNGP09.phx.gbl...
| Bonjour à tous et merci à ceux qui m'ont déjà aidé.
| Je suis novice, accès 2003.
|
| Voilà mon problème:
|
| J'ai copié le code que l'on m'a dit dans le module 1 et dans le
|
| Option Compare Database
|
| '************ Code Start **********
| 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&
|
| '***************Exemples d'utilisation***********************
| 'Ouvrir un répertoire: ?fHandleFile("C:TEMP",WIN_NORMAL)
| 'Pour envoyer un courriel:
| ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
| 'Ouvrir selon un URL: ?fHandleFile("http://home.att.net/~dashish",
| WIN_NORMAL)
| 'Traiter les extensions inconnue (call Open With Dialog):
| ' ?fHandleFile("C:TEMPTestThis",Win_Normal)
| 'Démarrer Access:
| ' ?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
| '************ Code End **********
|
| Dans mon formulaire j'ai le code:
|
| Private Sub Commande6_Click()
| On Error GoTo Err_Commande6_Click
|
| Dim oApp As Word.Application
|
| Set oApp = CreateObject("Word.Application")
| oApp.Visible = True
|
| Print fHandleFile("G:CDSfiches cursus", WIN_NORMAL)
|
| Exit_Commande6_Click:
| Exit Sub
|
| Err_Commande6_Click:
| MsgBox Err.Description
| Resume Exit_Commande6_Click
|
| End Sub
|
| Je ne comprend pas
| 1) pourquoi met-il Print devant fHandleFile alors que je ne l'ai pas mis.
| 2) Quand je clique sur le bouton, il doit aller dans le répertoire mais il
| me dit dans une boîte de dialogue:
| Propriété ou méthode non géré par cet objet.
| et il ne reste pas dans le répertoire mais va va se réduire dans la barre
| des tâches.
| Pourquoi ? Je ne comprend pas.
| Peux-t-on m'aider svp.
| Bien à vous.
|
|