Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Charger une page html sur un serveur WEB

Charger une page html sur un serveur WEB

3 réponses
Avatar
Dominique Ma
Bonjour,

je voudrais télécharger par FTP une page HTML produite à partir d'une
feuille Excel
J'ai trouvé cet exemple dans la doc VBA

ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="\\Server2\Q1\stockreport.htm", _
Sheet:="First Quarter", _
Source:="D5:D9", _
HtmlType:=xlHtmlStatic).Publish

J'arrive bien à envoyer la page .htm sur un fichier local,
mais pas à la télécharger sur mon serveur en FTP
Merci
Signaler un problème avec ce contenu

3 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
Daniel
Bonjour.
Fais une recherche de "ftp" sur le site www.excelabo.net. Eventuellement,
remplace "get" par "put".
Cordialement.
Daniel
"Dominique Ma" a écrit dans le message de news:
uf3xfe%
Bonjour,

je voudrais télécharger par FTP une page HTML produite à partir d'une
feuille Excel
J'ai trouvé cet exemple dans la doc VBA

ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="Server2Q1stockreport.htm", _
Sheet:="First Quarter", _
Source:="D5:D9", _
HtmlType:=xlHtmlStatic).Publish

J'arrive bien à envoyer la page .htm sur un fichier local,
mais pas à la télécharger sur mon serveur en FTP
Merci




Avatar
Misange
En fait, les explications sur le transfert FTP sont dans la page
php/excel et php.

Voici ce que j'utilise pour transférer les mises à jour des astuces
d'excelabo.
Attention au retours chariot intempestifs ! à toi de corriger

Sub ExportFtp() ', Christian HERBÉ & Michel Pierron

'transfère le fichier datasql.sql et majbase.php
'du répertoire local vers le répertoire adhoc du serveur ftp (upload)
Dim InternetOK
Dim FtpOK
Dim FtpServeur
Dim FtpLogin
Dim FtpPass
Dim DossierLocal
Dim DossierDistant

Dim Result
Dim Internet_OK
Dim FTP_OK
Dim Select_DossierDistant
Dim Resultat
Dim res
Dim Http As String
MonPC = ThisWorkbook.Path & ""

'toutes les valeurs des variables sont stockées dans la feuille excel
'mais tu peux bien entendu les écrire en dur
FtpServeur = Range("ftp!A1").Value
FtpLogin = Range("ftp!A2").Value
FtpPass = Range("ftp!A3").Value
DossierLocal = Range("ftp!A4").Value
DossierDistant = Range("ftp!A5").Value

'Vérifier la connection à internet
InternetOK = InternetOpen("PutFtpFile", 1, "", "", 0)
If InternetOK = 0 Then
MsgBox "connection internet impossible"
Exit Sub
End If
Const INTERNET_FLAG_PASSIVE = &H8000000
'Vérifier l'accès ftp
FtpOK = InternetConnect(InternetOK, FtpServeur, 21, FtpLogin, FtpPass,
1, INTERNET_FLAG_PASSIVE, 0)
If FtpOK = 0 Then
MsgBox "connection FTP impossible"
Exit Sub
End If
'MsgBox "connexion ftp ok"

'vérifier le dossier distant
Select_DossierDistant = FtpSetCurrentDirectory(FtpOK, DossierDistant)
If Select_DossierDistant = 0 Then
MsgBox "impossible de trouver le répertoire distant "
Exit Sub
End If
'MsgBox "connexion au répertoire distant ok"
Resultat = ""

'adresses du ou des fichiers à transférer
FichierLocal = DossierLocal & "updateastuces.php"
FichierDistant = "updateastuces.php"

'transférer les fichiers
Const FTP_TRANSFER_TYPE_BINARY = &H2
'mode passif proxy
'transfert du fichier sql
succès = FtpPutFile(FtpOK, FichierLocal, FichierDistant,
FTP_TRANSFER_TYPE_BINARY, 0)
If succès Then
Result = FichierDistant & " a été transféré "
Else
Result = FichierDistant & " n'a pas pu être transféré"
End If


'annoncer le résultat de l'opération
If Result <> "" Then
MsgBox Result
Else
MsgBox "aucun fichier transféré"
End If


'fermer les pointeurs, ménage
InternetCloseHandle FTP_OK
InternetCloseHandle Internet_OK

end sub


Misange migrateuse
Participez à un travail collaboratif sur excel : http://xlwiki.free.fr/wiki
http://www.excelabo.net

mail : http://cerbermail.com/?k5Q8Dh2mta

Le 25/03/2006 10:06, :
Bonjour.
Fais une recherche de "ftp" sur le site www.excelabo.net. Eventuellement,
remplace "get" par "put".
Cordialement.
Daniel
"Dominique Ma" a écrit dans le message de news:
uf3xfe%

Bonjour,

je voudrais télécharger par FTP une page HTML produite à partir d'une
feuille Excel
J'ai trouvé cet exemple dans la doc VBA

ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="Server2Q1stockreport.htm", _
Sheet:="First Quarter", _
Source:="D5:D9", _
HtmlType:=xlHtmlStatic).Publish

J'arrive bien à envoyer la page .htm sur un fichier local,
mais pas à la télécharger sur mon serveur en FTP
Merci









Avatar
Dominique Ma
Merci à Daniel et Misange pour leurs réponses.

Dominique




"Dominique Ma" a écrit dans le message de
news:uf3xfe%
Bonjour,

je voudrais télécharger par FTP une page HTML produite à partir d'une
feuille Excel
J'ai trouvé cet exemple dans la doc VBA

ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="Server2Q1stockreport.htm", _
Sheet:="First Quarter", _
Source:="D5:D9", _
HtmlType:=xlHtmlStatic).Publish

J'arrive bien à envoyer la page .htm sur un fichier local,
mais pas à la télécharger sur mon serveur en FTP
Merci