Connexions au classeur - Date de dernière actualisation

Version imprimable

21/03/2014, 13h29
briceth

Connexions au classeur - Date de dernière actualisation

Bonjour,

Je suis actuellement en train de travailler sur des documents qui utilisent des liens avec des sources de données.
Ces liens sont actualisés régulièrement.
Lorsque je vais dans le menu "Connexions existantes" on retrouve la liste des liens avec la date de dernière actualisation pour chacun.
J'aimerai pouvoir faire figurer ces dates sur les documents.
Est-il possible de récupérer cette information via une formule ou via une variable en VBA ?

Merci par avance pour vos réponses :)
Brice
21/03/2014, 14h13
Daniel.C

Bonjour,

De quel type de connexion s'agit-il ? est-ce qu'il s'agit de la boîte "connexions" existantes" où je n'ai pas de champ date ou de la boîte "Connexions" ?
23/03/2014, 15h05
briceth

Bonjour,

Il s'agit dans l'onglet "Données", non pas de "Connexions existantes" situé dans la barre d'outil "Données externes", mais de la fonction "Connexions" située dans la barre d'outil "Connexions".

Lorsque l'on clique sur cette fonction, une fenêtre s'affiche et on retrouve 3 paramètres pour chaque connexion : "Nom", "Description" et "Dernière actualisation".

Et c'est cette dernière colonne "Dernière actualisation" où l'on retrouve la date que je souhaite pouvoir récupérer.

Merci par avance pour votre aide,
Brice

Bonjour,

J'ai l’impression que toutes les connections ne remplissent ce champ. Avec des connexions ODBC :

Code:

1
2
3
4
5
6
7
8
9
Sub test()
    With ThisWorkbook.Connections
        For i = 1 To .Count
            ligne = ligne + 1
            Cells(ligne, 1).Value = .Name
            Cells(ligne, 2).Value = ThisWorkbook.Connections(i).ODBCConnection.RefreshDate
        Next i
    End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test1()
    Dim Ligne As Long
    With ThisWorkbook.Connections
        For i = 1 To .Count
            Ligne = Ligne + 1
            If .Type = ODBCConnection Then
                Cells(Ligne, 1).Value = .Name
                Cells(Ligne, 2).Value = ThisWorkbook.Connections(i).ODBCConnection.RefreshDate
            ElseIf .Type = OLEConnection Then
                Cells(Ligne, 1).Value = .Name
                Cells(Ligne, 2).Value = ThisWorkbook.Connections(i).OLEConnection.RefreshDate
            End If
        Next i
    End With
    ThisWorkbook.Connections(1).Type
End Sub

Fuseau horaire GMT +2. Il est actuellement 14h03.