Pointer sur un site ftp avec getopenfile ou autre ?
1 réponse
Gus
J'ai un tout petit probleme avec GetOpenFilename.
Je veux le lancer sur un dossier particulier ,alors pas de probleme quand
c'est un repertoire sur un disuqe local ... Voici le code que jutilise :
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
michdenis
Bonjour Gus,
comme je n'ai jamais travaillé à partir d'un truc ftp...
Je te propose de tester ceci à tout hasard :
Dans le haut d'un module standard : Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------- Sub Test() ChDirNet ("D:Documents") 'Le chemin où est ton document filetoopen = Application.GetOpenFilename End Sub '------------------------- Public Sub ChDirNet(szPath As String) ' Rob Bovey Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '-------------------------
Salutations!
"Gus" a écrit dans le message de news: J'ai un tout petit probleme avec GetOpenFilename. Je veux le lancer sur un dossier particulier ,alors pas de probleme quand c'est un repertoire sur un disuqe local ... Voici le code que jutilise :
Jusque la pas de probleme mais je doit pointer sur un dossier qui se trouve sur un site FTP !!! Aïe ! Quelqu'un a'til une petite idée
Merci
Bonjour Gus,
comme je n'ai jamais travaillé à partir d'un truc ftp...
Je te propose de tester ceci à tout hasard :
Dans le haut d'un module standard :
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
'-------------------------
Sub Test()
ChDirNet ("D:Documents") 'Le chemin où est ton document
filetoopen = Application.GetOpenFilename
End Sub
'-------------------------
Public Sub ChDirNet(szPath As String)
' Rob Bovey
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub
'-------------------------
Salutations!
"Gus" <Gus@discussions.microsoft.com> a écrit dans le message de news: 044CE08A-ADE8-4C7D-98A4-79586FFEA7A0@microsoft.com...
J'ai un tout petit probleme avec GetOpenFilename.
Je veux le lancer sur un dossier particulier ,alors pas de probleme quand
c'est un repertoire sur un disuqe local ... Voici le code que jutilise :
comme je n'ai jamais travaillé à partir d'un truc ftp...
Je te propose de tester ceci à tout hasard :
Dans le haut d'un module standard : Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long '------------------------- Sub Test() ChDirNet ("D:Documents") 'Le chemin où est ton document filetoopen = Application.GetOpenFilename End Sub '------------------------- Public Sub ChDirNet(szPath As String) ' Rob Bovey Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '-------------------------
Salutations!
"Gus" a écrit dans le message de news: J'ai un tout petit probleme avec GetOpenFilename. Je veux le lancer sur un dossier particulier ,alors pas de probleme quand c'est un repertoire sur un disuqe local ... Voici le code que jutilise :
