XL 2021 Upload fichier depuis Bureau

V

vmax67

XLDnaute Occasionnel
Bonjour à tous, je suis à la recherche d'un code pour téléverser un fichier depuis le bureau vers un site en l’occurrence Nextcloud.

J'ai bien un code pour faire l'inverse c'est à dire download depuis site vers bureau, mais j'arrive pas à le modifier dans le sens Pc vers Site.
Ci-dessous le code

Private Declare PtrSafe Function TelechargerFichierURL 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

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Sub ExempleTelechargementInternet()

On Error GoTo ExempleErreur

Dim fichier_local As String
Dim fichier_internet As String

fichier_local = "C:\Bureau\Test upload.pdf" ' <-- destination locale (disque dur local, externe, clé usb,...)
fichier_internet = "https://blabla.com/index.php/s/ieMXwQaA8Yp8Ybf" ' <-- lien URL du fichier sur internet

Call TelechargerFichierInternet(fichier_local, fichier_internet)

MsgBox "Le téléchargement a réussi..."
Exit Sub

End Sub

Par avance merci pour votre aide
Vmax
 
Trier par date Trier par votes
Gégé-45550

Gégé-45550

XLDnaute Accro
vmax67 à dit:
Bonjour à tous, je suis à la recherche d'un code pour téléverser un fichier depuis le bureau vers un site en l’occurrence Nextcloud.

J'ai bien un code pour faire l'inverse c'est à dire download depuis site vers bureau, mais j'arrive pas à le modifier dans le sens Pc vers Site.
Ci-dessous le code

Private Declare PtrSafe Function TelechargerFichierURL 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

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Sub ExempleTelechargementInternet()

On Error GoTo ExempleErreur

Dim fichier_local As String
Dim fichier_internet As String

fichier_local = "C:\Bureau\Test upload.pdf" ' <-- destination locale (disque dur local, externe, clé usb,...)
fichier_internet = "https://blabla.com/index.php/s/ieMXwQaA8Yp8Ybf" ' <-- lien URL du fichier sur internet

Call TelechargerFichierInternet(fichier_local, fichier_internet)

MsgBox "Le téléchargement a réussi..."
Exit Sub

End Sub

Par avance merci pour votre aide
Vmax
Cliquez pour agrandir...
re bonsoir,
Une autre piste :
VB: 
Declare PtrSafe Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Declare PtrSafe Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" ( _
ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Declare PtrSafe Function FtpSetCurrentDirectory Lib "wininet.dll" Alias _
"FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, _
ByVal lpszDirectory As String) As Boolean
Declare PtrSafe Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" ( _
ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Declare PtrSafe Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Sub ftp()
'transfère des fichiers du disque local vers un serveur ftp (upload, mode passif)
Dim Start As Single
 
'PARAMETRES************************
fichier = "C:\Users\monfichier.monext"    'inscrire ici le chemin et le nom complets du fichier à télécharger'
Login = "id"   'inscrire ici l'identifiant de connection si nécessaire
mot_passe = "mypassword"    'inscrie ici le mot de passe si nécessaire'
rép = "./"
bin_asc = &H2 '(&H1 ascii, &H2 binaire)
Mode = &H8000000 '(&H8000000 mode passif, 0 mode actif)
'**********************************
 
'lancer le transfert
internet_ok = InternetOpen("PutFtpFile", 1, "", "", 0)
If internet_ok = 0 Then
MsgBox "connection internet impossible"
Exit Sub
End If
ftp_ok = InternetConnect(internet_ok, "192.168.137.1", 21, Login, mot_passe, 1, Mode, 0)
If ftp_ok = 0 Then
MsgBox "connection impossible"
Exit Sub
End If
sélect_rép = FtpSetCurrentDirectory(ftp_ok, rép)
If sélect_rép = 0 Then
MsgBox "impossible de trouver le répertoire "
Exit Sub
End If
 'nom du fichier sans le chemin
nomfich = fichier
Do While InStr(nomfich, "\") > 0
nomfich = Right(nomfich, Len(nomfich) - InStr(nomfich, "\"))
Loop
 'transférer le fichier
succès = FtpPutFile(ftp_ok, fichier, nomfich, bin_asc, 0)
If succès Then
résult = nomfich & " a été transféré "
Else
résult = nomfich & " n'a pas pu être transféré"
End If
 'fermer les pointeurs, ménage
InternetCloseHandle ftp_ok
InternetCloseHandle internet_ok
 'annoncer le résultat de l'opération
If résult <> "" Then
'UserForm3.Label1 = résult)
'UserForm3.Show
'MsgBox résult
Else
UserForm3.Label1 = "aucun fichier transféré"
UserForm3.Show
 'MsgBox "aucun fichier transféré"
End If
End Sub
Cordialement,
 
Vote positif 0 Vote négatif
V

vmax67

XLDnaute Occasionnel
Gégé-45550 à dit:
re bonsoir,
Une autre piste :
VB: 
Declare PtrSafe Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Declare PtrSafe Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" ( _
ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Declare PtrSafe Function FtpSetCurrentDirectory Lib "wininet.dll" Alias _
"FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, _
ByVal lpszDirectory As String) As Boolean
Declare PtrSafe Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" ( _
ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Declare PtrSafe Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Sub ftp()
'transfère des fichiers du disque local vers un serveur ftp (upload, mode passif)
Dim Start As Single
 
'PARAMETRES************************
fichier = "C:\Users\monfichier.monext"    'inscrire ici le chemin et le nom complets du fichier à télécharger'
Login = "id"   'inscrire ici l'identifiant de connection si nécessaire
mot_passe = "mypassword"    'inscrie ici le mot de passe si nécessaire'
rép = "./"
bin_asc = &H2 '(&H1 ascii, &H2 binaire)
Mode = &H8000000 '(&H8000000 mode passif, 0 mode actif)
'**********************************
 
'lancer le transfert
internet_ok = InternetOpen("PutFtpFile", 1, "", "", 0)
If internet_ok = 0 Then
MsgBox "connection internet impossible"
Exit Sub
End If
ftp_ok = InternetConnect(internet_ok, "192.168.137.1", 21, Login, mot_passe, 1, Mode, 0)
If ftp_ok = 0 Then
MsgBox "connection impossible"
Exit Sub
End If
sélect_rép = FtpSetCurrentDirectory(ftp_ok, rép)
If sélect_rép = 0 Then
MsgBox "impossible de trouver le répertoire "
Exit Sub
End If
 'nom du fichier sans le chemin
nomfich = fichier
Do While InStr(nomfich, "\") > 0
nomfich = Right(nomfich, Len(nomfich) - InStr(nomfich, "\"))
Loop
 'transférer le fichier
succès = FtpPutFile(ftp_ok, fichier, nomfich, bin_asc, 0)
If succès Then
résult = nomfich & " a été transféré "
Else
résult = nomfich & " n'a pas pu être transféré"
End If
 'fermer les pointeurs, ménage
InternetCloseHandle ftp_ok
InternetCloseHandle internet_ok
 'annoncer le résultat de l'opération
If résult <> "" Then
'UserForm3.Label1 = résult)
'UserForm3.Show
'MsgBox résult
Else
UserForm3.Label1 = "aucun fichier transféré"
UserForm3.Show
 'MsgBox "aucun fichier transféré"
End If
End Sub
Cordialement,
Cliquez pour agrandir...
Bonjour,
merci pour le retour.

en utilisant votre version je n'arrive pas sur le site internet qui d’ailleurs ne demande pas de login ni de mdp.
C'est une simple page web ou on dépose un fichier par glisser-déposer ou par sélection du fichier par l’intermédiaire de l'explorateur Windows.
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
vmax67 à dit:
Bonjour,
merci pour le retour.

en utilisant votre version je n'arrive pas sur le site internet qui d’ailleurs ne demande pas de login ni de mdp.
C'est une simple page web ou on dépose un fichier par glisser-déposer ou par sélection du fichier par l’intermédiaire de l'explorateur Windows.
Cliquez pour agrandir...
Bonjour,
Êtes-vous sûr d'avoir bien modifié le code fourni avec la "bonne" adresse du site que vous voulez ouvrir et d'avoir laissé vides les zones destinées à l'identifiant et au MDP ?
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
822
mrcooll
M
R1-
  • Question
XL 2016 Impossible de SendKeys une tabulation
Réponses
4
Affichages
582
R1-
R1-
mromain
Génération de QR Codes
Réponses
1
Affichages
739
Cousinhub
Cousinhub
laurent950
  • Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
7 K
laurent950
laurent950
GADENSEB
  • Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
665
GADENSEB
GADENSEB
PHV.FSM
  • Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
3 K
Nicolas JACQUIN
Nicolas JACQUIN
patricktoulon
  • Résolu(e)
XL 2013 icon avec une image Mso dans la barre de titre du UserForm
Réponses
10
Affichages
1 K
patricktoulon
patricktoulon
E
  • Résolu(e)
XL 2016 Ouvrir un fichier txt avec Notepad
Réponses
9
Affichages
1 K
epeter
E
Lu76Fer
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
641
Lu76Fer
Lu76Fer
R
  • Question
XL 2019 Convertir Macro 32 bit en 64 bit
Réponses
2
Affichages
3 K
sylvanu
sylvanu

Membres actuellement en ligne

2 membres et 26 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 087
Messages
2 116 084
Membres
112 655
dernier inscrit
fannycordi