Forums XLPages

Tous les messages (Mytå)

« 1 ... 4 5 6 7 8 9 10 ... 18 »
Re: Récupération de données turfiques du site gény course
#61
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 28-01-2013 15h57
 Salut le forum

Un peu de lecture dans la section informations.

Le lien : http://www.mdf-xlpages.com/modules/newbb/viewforum.php?forum=2

Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: faire apparaître un tableau en fonction d'une liste déroulante
#62
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 20-01-2013 04h23
 Salut le forum

Utilise la fonction INDIRECT
=INDIRECT($Z$17 & "!F12")
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Code qui ne fonctionne pas sous excel 2003
#63
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 29-11-2012 01h00
Salut le forum

Déjà que xlSortOnCellColor n'est pas reconnu par les versions antérieurs à 2007.

Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#64
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 22h11
Re le forum

Citation :
mahelnawe a écrit : Bonsoir le Forum,
J'ouvre une page html et dans le code de cette page ce trouve des url ,comment par macro est t'il possible dans crée la liste et de stoker ces liens en colonne b2
merci de votre aide moi j'ai chercher sans succé

La demande était bien de récupérer des URL d'une page WEB, par la suite il
a été rajouté que l'URL devait contenir ?Id=

Mytå


Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#65
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 21h34
 Re le forum

Pour faire l'extraction des URL contenant 'topic_id=' d'une page web sans doublons.
Option Explicit

' ***************************************
' * Nécessite d'activer les références  *
' *   Microsoft HTML Objects Library    *
' *     Microsoft Internet Controls     *
' ***************************************

Sub Get_Id()
    Dim IE As InternetExplorer
    Dim IEDOC As HTMLDocument
    Dim Dico As Object
    Dim OLink As Object
    Dim URL_Adr As String

    URL_Adr = "http://www.mdf-xlpages.com/"

    Set Dico = CreateObject("Scripting.Dictionary")
    Set IE = CreateObject("InternetExplorer.Application")
   
    IE.Visible = False
    IE.navigate URL_Adr
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop

    Set IEDOC = IE.document

    For Each OLink In IEDOC.Links
        If InStr(OLink.href, "topic_id=") > 0 Then
            Dico(OLink.href) = ""
        End If
    Next OLink

    [A2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)

    Set IEDOC = Nothing
    IE.Quit
    Set IE = Nothing
    Set Dico = Nothing

End Sub
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Cueillette d'URL
#66
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-11-2012 19h31
Salut le forum

Un bout de code pour le principe de récupération.
For Each OLink In IEDOC.Links
    If InStr(OLink.href, "?id=") > 0 Then
        'Traitement
    Next OLink
End With

Mytå




Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: formule
#67
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 16-11-2012 00h01
 Salut le forum

Un petit tuto : Utilisation de la méthode Intersect

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: erreur 1004 suite à copie d'une macro
#68
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 17-09-2012 20h45
 Salut le forum
Pour joindre un fichier, tu envois ton fichier (sans données confidentielles)
sur http://cjoint.com/ , et tu recopies le lien obtenu à ton prochain message.

La taille des documents téléchargés est pour le moment limitée à 2048 Ko (8192 Ko si durée de 4 jours).

Mytå


Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: recuperation de donees web
#69
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 06-09-2012 13h49
 Salut le forum

Dongiovani, présentement le forum ne touche plus au requête de site de Turf.

Regarde les liens suivants :

Lien #1 : Arrêt des requêtes
Lien #2 : Arrêt des requêtes

Mytå



Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: Saisie Automatique grâce à une base de donnée.
#70
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 29-08-2012 18h22
 Salut le forum

En A2 à recopier vers le bas
=INDEX(Pharmacies!$A$1:$C$13;EQUIV(Compagnon!$B2;Pharmacies!$B$1:$B$13;0);1)
En C2 à recopier vers le bas
=INDEX(Pharmacies!$A$1:$C$13;EQUIV(Compagnon!$B2;Pharmacies!$B$1:$B$13;0);3)
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

« 1 ... 4 5 6 7 8 9 10 ... 18 »