Discussion :

[js777]

Bonjour à tous,

J'ai mis du code dans une feuille de mon classeur contenant une requête vers une liste SharePoint s'affichant sous la forme d'un tableau :



Pour récupérer la date de dernière actualisation de ce tableau et l'afficher dans une cellule de la feuille j'ai mis ce code dans la feuille en question :

Code :

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

1
2
3
4
5
6
7
8
Private Sub RecupDateActua(ByVal Target As ListObject)
dateString = Format(Target.RefreshDate, "dd/mm/yyyy hh:mm:ss")
Range("M1") = dateString
End Sub
 
Public Sub test()
Call RecupDateActua(Sheets("Feuil1").ListObjects("Rondes__2"))
End Sub

Le problème c'est qu'à l'exécution de la macro "test" j'obtient cette erreur :



Si vous avez des pistes je suis preneur,

Je vous laisse mon fichier en PJ

[ARTURO83]

Bonjour,

Dans la pièce jointe il manque la colonne "Created".

Si j'ai bien compris:
Il semblerait d'après l'image déposée, que les dates de la colonne "Created" soient dégressives et donc que la plus récente soit en "K2", si c'est le cas, une simple formule en M1: =K2

Si ce n'est pas toujours le cas, il suffit de rechercher la date max, en M1: =MAX(K:K)

En vba dans un module standard:

Code :

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

1
2
3
Sub RecupDateActua()
    Range("M1").Value = Format(Application.WorksheetFunction.Max(Range("K2:K" & Range("K" & Rows.Count).End(xlUp).Row)), "dd/mm/yyyy hh:mm:ss")
End Sub

Cdlt

[js777]

Salut Arturo,

J'ai essayé ton code, j'ai eu un dépassement de capacité,

Et ce n'est pas exactement ce que je recherche, je veux afficher la date de dernière actualisation de la source de données, celle-ci étant sensée s'actualiser régulièrement cela permettrait un suivit sur son actualisation par des utilisateurs novice en excel,

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

1
2
3
4
5
6
Sub test()
    ActiveSheet.ListObjects("Rondes__2").Unlink 'on rompt les liaisons
    ActiveWorkbook.RefreshAll 'on rafraîchit le classeur
    Range("M1").value = Now()'on relève la date et l'heure et on l'applique à la cellule M1
   'recréer les liaisons
End Sub

Cdlt

[js777]

Update,

Voici la façon de faire que j'ai décidé d'adopter et qui me permet de récupérer la date à chaque actualisation des données de la source,

(Le code ci-dessous permet dans mon cas d'écrire la date de dernière actualisation dans la cellule R4 de la feuille Suivi journalier air)

Merci à Jean-Eric

Dans ThisWorkbook :

Option Explicit

Code :

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

1
2
3
Private Sub Workbook_Open()
    Call InitializeQueries
End Sub

Dans un module standard :

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
Option Explicit
 
Dim colQueries As New Collection
 
Sub InitializeQueries()
Dim clsQ As clsQuery
Dim WS As Worksheet
Dim QT As QueryTable
Dim lo As ListObject
    For Each WS In ThisWorkbook.Worksheets
        For Each QT In WS.QueryTables
            Set clsQ = New clsQuery
            Set clsQ.MyQuery = QT
            colQueries.Add clsQ
        Next QT
        On Error Resume Next
        For Each lo In WS.ListObjects
            Set QT = lo.QueryTable
            Set clsQ = New clsQuery
            Set clsQ.MyQuery = QT
            colQueries.Add clsQ
        Next lo
    Next WS
End Sub

Dans un module de classe (clsQuery) :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents MyQuery As QueryTable
 
Private Sub MyQuery_AfterRefresh(ByVal Success As Boolean)
    If Success Then Sheets("Suivi journalier air").Range("R4").Value = Format(VBA.Now, "yyyy-MM-dd hh:mm")
End Sub