copier tableau sur web

  • Initiateur de la discussion Initiateur de la discussion steve
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

steve

Guest
bonsoir a tous

comment copier un tableau d une page web dans excel sachant qu il y a deux mot de passe(que je connait) avant d acceder a la feuille.
puis les coller en a1 par exemple dans une feuille excel grace a un code

merci d'avance
 
Salut Steve et le forum

voila une idée de base que j'utilise deja mais sur une page WEB sans mot de passe faudrait voir pour le reste

Fichier a créer avec le bloc-note (nom.iqy)
dans C:\WINDOWS\Application Data\Microsoft\Requêtes\nom.iqy

WEB
1
http://url de la page

Selection=EntirePage
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False

Sub Req_web()
Application.ScreenUpdating = False
Sheets("Update").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;C:\WINDOWS\Application Data\Microsoft\Requêtes\nom.iqy", Destination _
:=Sheets("Update").Range("A1"))
.Name = "DonnéesExternes_1"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
End Sub

Amicalement Mytå
 
re le forum

Fichier a créer avec le bloc-note (nom.iqy)
dans C:\WINDOWS\Application Data\Microsoft\Requêtes\nom.iqy

WEB
1
http://url de la page

Selection=EntirePage
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False

juste ceci tu dois créer dans le fichier

le reste c'est la command a mettre dans une macro (VBA)

Mytå
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
543
Réponses
10
Affichages
399
Retour