Discussion :

[jadey]

Hello les gens,

Je dispose d'une macro excel avec le code suivant:

Code :

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
Sub ExtractData(SqlText As String, SheetName As String)
    ' Uncomment next line to get information on every SQL query run
    ' MsgBox SqlText, vbOKOnly, "SQL"
     MsgBox SqlText, vbInformation, "SQL"
 
    ' Removing existing spreadsheet
    If (WorksheetExists(SheetName)) Then
        Application.DisplayAlerts = False
        Sheets(SheetName).Delete
        Application.DisplayAlerts = True
    End If
 
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = SheetName
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;driver={Adaptive Server Enterprise};database=maBase;server=monHosta;port=5510;UID=monUser;Password=monPwd;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array(SqlText)
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = SheetName
 
        .Refresh BackgroundQuery:=False
    End With
 
    ActiveSheet.Cells.EntireColumn.AutoFit
 
End Sub

Cette macro marche sur certains poste mais manque de bol pas sur le mien.
à l'execution de la méthode ".Refresh" j'ai me prend un joli mais pas très parlant:

Erreur d'exécution '1004'
Erreur générale ODBC

La même configuration est deployées partout sur les machines du parc informatique et, avec mes collègues nous disposons de la même version excel avec à priori les mêmes logiciels, pilotes etc installés
Quelqu'un saurait-il m'orienter vers une début de piste?

Cordialement

[Nicolas JACQUIN]

Bonjour,
Peut-être un souci de connexion avec ton poste
A voir

[Invité]

Bonsoir,
Il n'y a pas 36 possibilités!

Soit pas de réseau et un petit tour sur internet de le dit tout de suite!

Soit le driver Odbc n'est pas installé!

Soit le port 5510 est fermé (par feu)

A priori ta machine devrait être sur le même nom de domaine que les autre smais sait on jamais!

[jadey]

A priori pas de soucis de reseau ou parfeu puisque j'arrive à me connecter avec un aqua data studio à la base
Pour le driver ODBC, si je regerde sur:
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers
J'ai bien:

Code :

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
Nom de la clé*:          HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers
Nom de la classe*:        <Sans classe>
Heure de dernière écriture*:   19/12/2014 - 18:07
Valeur 0
  Nom*:            SQL Server
  Type*:            REG_SZ
  Données*:            Installed
 
Valeur 1
  Nom*:            Sybase IQ
  Type*:            REG_SZ
  Données*:            Installed
 
Valeur 2
  Nom*:            iAnywhere Solutions 12 - Oracle
  Type*:            REG_SZ
  Données*:            Installed
 
Valeur 3
  Nom*:            SQL Anywhere 12
  Type*:            REG_SZ
  Données*:            Installed

Ce problème me chauffe les oreilles depuis bien un mois maintenant