Discussion :

[briceth]

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

[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" ?

[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

[Daniel.C]

Bonjour,

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

Code :

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

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

[Daniel.C]

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
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