Bonjour,
qu'est-ce qui ne fonctionne pas ?
l'ouverture du fichier s'il existe ?
et s'il n'existe pas, je ne vois pas comment tu peux le télécharger "sur" un site ftp
puisqu'il n'existe pas en local.
donc tu veux le télécharger "depuis" un site ftp
et pour télécharger un fichier, pas besoin d'accéder par ftp, un accès http suffit.....
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| je cherche un exemple de code pour :
|
| par rapport à un lien hyperlink pour ouvrir un fichier
|
| - si ce fichier existe sur le pc ouverture du fichier
|
| - si ce fichier existe pas sur le PC le telecharger sur un site ftp
|
|
| J'ai testé l'exemple de memoaccess mais cela ne fonctionne pas malgre
| le chargement du module API . Quelqu'un peut il m'aider ?
|
|
| Merci d'avance
Bonjour,
qu'est-ce qui ne fonctionne pas ?
l'ouverture du fichier s'il existe ?
et s'il n'existe pas, je ne vois pas comment tu peux le télécharger "sur" un site ftp
puisqu'il n'existe pas en local.
donc tu veux le télécharger "depuis" un site ftp
et pour télécharger un fichier, pas besoin d'accéder par ftp, un accès http suffit.....
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| je cherche un exemple de code pour :
|
| par rapport à un lien hyperlink pour ouvrir un fichier
|
| - si ce fichier existe sur le pc ouverture du fichier
|
| - si ce fichier existe pas sur le PC le telecharger sur un site ftp
|
|
| J'ai testé l'exemple de memoaccess mais cela ne fonctionne pas malgre
| le chargement du module API . Quelqu'un peut il m'aider ?
|
|
| Merci d'avance
Bonjour,
qu'est-ce qui ne fonctionne pas ?
l'ouverture du fichier s'il existe ?
et s'il n'existe pas, je ne vois pas comment tu peux le télécharger "sur" un site ftp
puisqu'il n'existe pas en local.
donc tu veux le télécharger "depuis" un site ftp
et pour télécharger un fichier, pas besoin d'accéder par ftp, un accès http suffit.....
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| je cherche un exemple de code pour :
|
| par rapport à un lien hyperlink pour ouvrir un fichier
|
| - si ce fichier existe sur le pc ouverture du fichier
|
| - si ce fichier existe pas sur le PC le telecharger sur un site ftp
|
|
| J'ai testé l'exemple de memoaccess mais cela ne fonctionne pas malgre
| le chargement du module API . Quelqu'un peut il m'aider ?
|
|
| Merci d'avance
Bonjour,
Tiens, je viens de me rendre compte que mon idée ne figure pas sur memoaccess ...
la voici donc :
dim strfile as string
strfile = fichier.ext
If dir("c:chemin" & strfile)<>"" Then
application.followhyperlink "c:chemin" & strfile
else
DownloadFile "http://192.168.100.5/" & strFile, "C:chemin" & strFile
DoEvents
application.followhyperlink "c:chemin" & strfile
end if
avec la fonction suivante dans un Module ModDownloadFile :
Option Compare Database
Option Explicit
Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Const ERROR_SUCCESS As Long = 0
Function DownloadFile(ssourceUrl As String, _
sLocalFile As String) As Boolean
On Error Resume Next
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, _
ssourceUrl, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS
End Function
cet acces HTTP éviterait d'avoir à ouvrir une session ftp avec mot de passe et tout le
tsoin-tsoin,
télécharger le fichier et refermer la session, même si théoriquement par ftp, ça devrait
fonctionner aussi.
si hconnection reste à zéro, c'est que ta procédure de donnexion n'a pas fonctionné... :
FTPConnect "ftp.domaine.com", "login", "password"
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| en fait je fait un test pour savoir si ce fichier est sur le disque C
|
| si il existe j'ouvre le fichier ( format pdf )
|
| par contre si il existe pas je souhaite poser la question; voulez vous
| le télécharger ? et donc si oui ces fichiers sont sur un site ftp
| privé de type ftp://192.168.100.5/fichier .
|
| Pour ce faire, j'ai colle l'API dans un module avec les differentes
| fonctions Download ect..
|
| Puis dans mon formulaire, j'ai fait une procedure sur clic . Mais cela
| ne fonctionne pas et en suivant l'execution du code, on s'apercoit que
| hconnection ( connection ftp ) reste à 0 et que lret ( download ) est
| 0 donc fin de procedure avec message le fichier n'existe pas .
|
| Si tu as une idée ou j'ai pu coincé, je te remercie d'avance A plus
|
|
Bonjour,
Tiens, je viens de me rendre compte que mon idée ne figure pas sur memoaccess ...
la voici donc :
dim strfile as string
strfile = fichier.ext
If dir("c:chemin" & strfile)<>"" Then
application.followhyperlink "c:chemin" & strfile
else
DownloadFile "http://192.168.100.5/" & strFile, "C:chemin" & strFile
DoEvents
application.followhyperlink "c:chemin" & strfile
end if
avec la fonction suivante dans un Module ModDownloadFile :
Option Compare Database
Option Explicit
Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Const ERROR_SUCCESS As Long = 0
Function DownloadFile(ssourceUrl As String, _
sLocalFile As String) As Boolean
On Error Resume Next
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, _
ssourceUrl, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS
End Function
cet acces HTTP éviterait d'avoir à ouvrir une session ftp avec mot de passe et tout le
tsoin-tsoin,
télécharger le fichier et refermer la session, même si théoriquement par ftp, ça devrait
fonctionner aussi.
si hconnection reste à zéro, c'est que ta procédure de donnexion n'a pas fonctionné... :
FTPConnect "ftp.domaine.com", "login", "password"
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| en fait je fait un test pour savoir si ce fichier est sur le disque C
|
| si il existe j'ouvre le fichier ( format pdf )
|
| par contre si il existe pas je souhaite poser la question; voulez vous
| le télécharger ? et donc si oui ces fichiers sont sur un site ftp
| privé de type ftp://192.168.100.5/fichier .
|
| Pour ce faire, j'ai colle l'API dans un module avec les differentes
| fonctions Download ect..
|
| Puis dans mon formulaire, j'ai fait une procedure sur clic . Mais cela
| ne fonctionne pas et en suivant l'execution du code, on s'apercoit que
| hconnection ( connection ftp ) reste à 0 et que lret ( download ) est
| 0 donc fin de procedure avec message le fichier n'existe pas .
|
| Si tu as une idée ou j'ai pu coincé, je te remercie d'avance A plus
|
|
Bonjour,
Tiens, je viens de me rendre compte que mon idée ne figure pas sur memoaccess ...
la voici donc :
dim strfile as string
strfile = fichier.ext
If dir("c:chemin" & strfile)<>"" Then
application.followhyperlink "c:chemin" & strfile
else
DownloadFile "http://192.168.100.5/" & strFile, "C:chemin" & strFile
DoEvents
application.followhyperlink "c:chemin" & strfile
end if
avec la fonction suivante dans un Module ModDownloadFile :
Option Compare Database
Option Explicit
Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Const ERROR_SUCCESS As Long = 0
Function DownloadFile(ssourceUrl As String, _
sLocalFile As String) As Boolean
On Error Resume Next
Dim lngRetVal As Long
DownloadFile = URLDownloadToFile(0&, _
ssourceUrl, _
sLocalFile, _
0&, _
0&) = ERROR_SUCCESS
End Function
cet acces HTTP éviterait d'avoir à ouvrir une session ftp avec mot de passe et tout le
tsoin-tsoin,
télécharger le fichier et refermer la session, même si théoriquement par ftp, ça devrait
fonctionner aussi.
si hconnection reste à zéro, c'est que ta procédure de donnexion n'a pas fonctionné... :
FTPConnect "ftp.domaine.com", "login", "password"
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
| en fait je fait un test pour savoir si ce fichier est sur le disque C
|
| si il existe j'ouvre le fichier ( format pdf )
|
| par contre si il existe pas je souhaite poser la question; voulez vous
| le télécharger ? et donc si oui ces fichiers sont sur un site ftp
| privé de type ftp://192.168.100.5/fichier .
|
| Pour ce faire, j'ai colle l'API dans un module avec les differentes
| fonctions Download ect..
|
| Puis dans mon formulaire, j'ai fait une procedure sur clic . Mais cela
| ne fonctionne pas et en suivant l'execution du code, on s'apercoit que
| hconnection ( connection ftp ) reste à 0 et que lret ( download ) est
| 0 donc fin de procedure avec message le fichier n'existe pas .
|
| Si tu as une idée ou j'ai pu coincé, je te remercie d'avance A plus
|
|
