Discussion :

[guigui99]

Bonjour,

J'explique mon pb. J'aimerai transformer une macro excel que possède par une belle interface graphique Matlab et du code .m.

Mon pb c'est que l'élément de base de cette macro est la récupération d'infos sur le net via la requête querytables en VBA.

Ma question est donc : comment faire avec Matlab et est-ce possible tout court ?

Merci pour votre aide les pros

Guillaume

[duf42]

Bonjour,

A priori ca devrait être possible, pourrais-tu nous montrer le type de requête que tu souhaites exécuter?

Duf

[guigui99]

Bonjour,

A priori ca devrait être possible, pourrais-tu nous montrer le type de requête que tu souhaites exécuter?

Duf

Bien-sûr ! C'est le début du code en espérant que ça t'aide mais j'en suis pas sûr...

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub Recup()
'
Dim sChemin As String
Dim sChemin2 As String
Dim Type_Manche As String
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
i = 3
j = 1
 
Sheets("recup").Select
Cells.Select
Selection.clear
Range("A1").Select
Sheets("pseudo_manche").Select
 
For i = 3 To 18 'début recup match 1 par pseudos
 
    Sheets("pseudo_manche").Select
    sChemin = "URL;http://www.accroprono.com/Prono_VoirResultatsAutreMatch.php?Pseudo2="
    sChemin2 = "&Manche="
    sChemin = sChemin & Range("A" & i)
    sChemin2 = sChemin & sChemin2
    sChemin2 = sChemin2 & Range("C21")
 
    Sheets("recup").Select
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        sChemin2, Destination:=Range("A" & j))
        .Name = "Manche=12176"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Merci à toi par avance

Guillaume

[guigui99]

Bonjour,

J'explique mon problème. J'aimerai transformer une macro Excel que je possède par une belle interface graphique MATLAB et du code .m.

Mon problème c'est que l'élément de base de cette macro est la récupération d'infos sur le net via la requête querytables en VBA.

Ma question est donc : comment faire avec MATLAB et est-ce possible tout court ?

Ci-dessous le début du code de ma macro pour vous donner un exemple =>

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub Recup()
'
Dim sChemin As String
Dim sChemin2 As String
Dim Type_Manche As String
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
i = 3
j = 1
 
Sheets("recup").Select
Cells.Select
Selection.clear
Range("A1").Select
Sheets("pseudo_manche").Select
 
For i = 3 To 18 'début recup match 1 par pseudos
 
    Sheets("pseudo_manche").Select
    sChemin = "URL;http://www.accroprono.com/Prono_VoirResultatsAutreMatch.php?Pseudo2="
    sChemin2 = "&Manche="
    sChemin = sChemin & Range("A" & i)
    sChemin2 = sChemin & sChemin2
    sChemin2 = sChemin2 & Range("C21")
 
    Sheets("recup").Select
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        sChemin2, Destination:=Range("A" & j))
        .Name = "Manche=12176"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Merci d'avance pour votre aide.

Guillaume

[duf42]

Bonjour,

As-tu essayé la fonction URLREAD?

Duf

[guigui99]

Absolument pas, je n'avais aucune idée de la fonction à utiliser... Je vais tester ça voire URLWRITE.

Merci