As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel e t
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID=123&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
<syle...@hotmail.fr> a écrit dans le message de groupe de discussion :
fc567b3c-0b0a-4b61-8f31-7135b16da...@z1g2000yqn.googlegroups.com...
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel e t
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel e t
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
<syle...@hotmail.fr> a écrit dans le message de groupe de discussion :
fc567b3c-0b0a-4b61-8f31-7135b16da...@z1g2000yqn.googlegroups.com...
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message de
news:
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
<syleg35@hotmail.fr> a écrit dans le message de
news:ca496af4-a25d-4dd0-8b83-73db7ac4d2c8@c11g2000yqj.googlegroups.com...
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" <michde...@hotmail.com> wrote:
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
<syle...@hotmail.fr> a écrit dans le message de groupe de discussion :
fc567b3c-0b0a-4b61-8f31-7135b16da...@z1g2000yqn.googlegroups.com...
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message de
news:
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message de
news:
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
<syleg35@hotmail.fr> a écrit dans le message de
news:ca496af4-a25d-4dd0-8b83-73db7ac4d2c8@c11g2000yqj.googlegroups.com...
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" <michde...@hotmail.com> wrote:
As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
<syle...@hotmail.fr> a écrit dans le message de groupe de discussion :
fc567b3c-0b0a-4b61-8f31-7135b16da...@z1g2000yqn.googlegroups.com...
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'espère
que tu nous le diras... Cela nous empêche de promouvoir des "insanités"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp?t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message de
news:
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dans
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:As-tu essayé quelque chose comme :
Pour mettre à jour tous les QueryTable de la "Feuil1"
Sub test()
Dim Qr As QueryTable
For Each Qr In Worksheets("Feuil1").QueryTables
With Qr
'Ici où tu renseignes ton Id et mot de passe
.PostText = "UserID3&Password=xyz"
.Refresh BackgroundQuery = False
End With
mext
End Sub
a écrit dans le message de groupe de discussion :
Bonjour à tous;
J'ai un tableau de données que je récupère sur sur le web et avant
accé il faut un utilisateur et un mot de passe
aprés j'ai fait " Données externes sur le Web " à partir de excel et
j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
et une réouverture du fichier il ne peut pas mettre à jour car il ne
trouve pas l'utilisateur et mot pass.
Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
puisse faire les mise à jour automatique
merci à vous et bonne journée.
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'esp ère
que tu nous le diras... Cela nous empêche de promouvoir des "insanité s"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp? t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message denews:ca496af4-a25d-4dd0-
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dan s
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:
> As-tu essayé quelque chose comme :
> Pour mettre à jour tous les QueryTable de la "Feuil1"
> Sub test()
> Dim Qr As QueryTable
> For Each Qr In Worksheets("Feuil1").QueryTables
> With Qr
> 'Ici où tu renseignes ton Id et mot de passe
> .PostText = "UserID3&Password=xyz"
> .Refresh BackgroundQuery = False
> End With
> mext
> End Sub
> a écrit dans le message de groupe de discussion :
>
> Bonjour à tous;
> J'ai un tableau de données que je récupère sur sur le web et avan t
> accé il faut un utilisateur et un mot de passe
> aprés j'ai fait " Données externes sur le Web " à partir de excel et
> j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
> et une réouverture du fichier il ne peut pas mettre à jour car il n e
> trouve pas l'utilisateur et mot pass.
> Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
> puisse faire les mise à jour automatique
> merci à vous et bonne journée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'esp ère
que tu nous le diras... Cela nous empêche de promouvoir des "insanité s"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp? t=103
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
<syle...@hotmail.fr> a écrit dans le message denews:ca496af4-a25d-4dd0- 8b83-73db7ac4d2c8@c11g2000yqj.googlegroups.com...
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dan s
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" <michde...@hotmail.com> wrote:
> As-tu essayé quelque chose comme :
> Pour mettre à jour tous les QueryTable de la "Feuil1"
> Sub test()
> Dim Qr As QueryTable
> For Each Qr In Worksheets("Feuil1").QueryTables
> With Qr
> 'Ici où tu renseignes ton Id et mot de passe
> .PostText = "UserID=123&Password=xyz"
> .Refresh BackgroundQuery = False
> End With
> mext
> End Sub
> <syle...@hotmail.fr> a écrit dans le message de groupe de discussion :
> fc567b3c-0b0a-4b61-8f31-7135b16da...@z1g2000yqn.googlegroups.com...
> Bonjour à tous;
> J'ai un tableau de données que je récupère sur sur le web et avan t
> accé il faut un utilisateur et un mot de passe
> aprés j'ai fait " Données externes sur le Web " à partir de excel et
> j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
> et une réouverture du fichier il ne peut pas mettre à jour car il n e
> trouve pas l'utilisateur et mot pass.
> Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
> puisse faire les mise à jour automatique
> merci à vous et bonne journée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -
(Désolé pour le délai...mais certains messages envoyés avec
windows live mail sur ce forum ne sont toujours pas affichés
voici un de ces messages que je te transmets en utilisant Windows Mail
'-------------------------------------
Par exemple : Comment récupérer le contenu d'une page sur Google
dans Excel en passant dans une variable le thème d'une recherche :
Ceci fonctionne ... Mais comme je n'ai pas de site internet cible où je
dois me connecter avec ID et Mot de passe, je dois m'en remettre à
des exemples. À cet effet, voilà une adresse où tu peux obtenir des
exemples utilisant la propriété "PostText". Si cela fonctionne, j'esp ère
que tu nous le diras... Cela nous empêche de promouvoir des "insanité s"
;-))
Adresse internet : http://www.business-spreadsheets.com/forum.asp? t3
'------------------------------------------------------
Sub Recherche_Sur_Google()
Dim query As QueryTable
variable = "PostText"
Set query = ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.fr/search?hl=fr&q=" & variable & _
"&meta=", Destination:=Range("A1"))
With query
.Name = "RechercheGoogle"
.Refresh
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
End With
End Sub
'------------------------------------------------------
a écrit dans le message denews:ca496af4-a25d-4dd0-
Bonjour "MichDenis"
et merci pour ton aide, aprés avoir appliquer ton code sa ne
fonctionne pas, il faut dire que pour l'accés du planning se fait en
deux temps, quand j'accéde au site première page y a deux casse la
première pour utilisateur la deuxième pour mot passe je valide et dan s
la page suivante apparaît mon nom et je dois cliqué ( sur mon
planning ).
alors c'est peut être la cause du non fonctionnement
merci
@+
On 21 mar, 21:21, "MichDenis" wrote:
> As-tu essayé quelque chose comme :
> Pour mettre à jour tous les QueryTable de la "Feuil1"
> Sub test()
> Dim Qr As QueryTable
> For Each Qr In Worksheets("Feuil1").QueryTables
> With Qr
> 'Ici où tu renseignes ton Id et mot de passe
> .PostText = "UserID3&Password=xyz"
> .Refresh BackgroundQuery = False
> End With
> mext
> End Sub
> a écrit dans le message de groupe de discussion :
>
> Bonjour à tous;
> J'ai un tableau de données que je récupère sur sur le web et avan t
> accé il faut un utilisateur et un mot de passe
> aprés j'ai fait " Données externes sur le Web " à partir de excel et
> j'ai bien mon tableau dans ma feuille excel, mais aprés une fermeture
> et une réouverture du fichier il ne peut pas mettre à jour car il n e
> trouve pas l'utilisateur et mot pass.
> Pourriez me dire ou met on l'utilisateur et mot passe pour qu'il
> puisse faire les mise à jour automatique
> merci à vous et bonne journée.- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -