XL 2016 Résumer de tableau

M@xu3L · 10 Octobre 2023

Bonjour tous le monde,

Je viens vers vous afin de savoir si c'est possible ou non mon idée. Je m'explique j'ai plusieurs tableau de données dans plusieurs fichiers ou la seule valeurs commune à ces tableaux serait la dates.
Serait-il possible de créer un fichier Excel qui va pouvoir chercher dans tous ces fichiers la dernières date inscrit dans ces fichiers?

Je ne sais pas si je m'exprime correctement ou pas mais n'hésiter pas a me dire pour plus d'info…

Cordialement

sylvanu · 20 Octobre 2023

M@xu3L à dit:
Et il n'y a pas moyen que le code evite les fichier ou il n'y a pas l'onglet résultats par exemple

Si, avec la fonction suivante :

VB:

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Elle renvie True si la feuille existe, False si elle n'existe pas.
Dans ma PJ "résumé d'utilisation" le code modifié donnerait :

Code:

    If Fichier <> FichierCourant Then
        Workbooks.Open Filename:=CheminFichier
        If FeuilleExiste("Résultats") = True Then   ' Vérification si feuille existe
            If Not IsError(Application.Match("Date", Sheets("Résultats").[B:B], 0)) Then
                DateMax =...

M@xu3L · 20 Octobre 2023

Pour t'aider je te donne un des fichier que j'utilise mais bien sur j'ai enlever tous ce qui était confidentiel

sylvanu · 20 Octobre 2023

Si cette ligne marche :

VB:

If Not IsError(Application.Match("Date", [B:B], 0)) Then

et pas celle là :

Code:

If Not IsError(Application.Match("Date", Sheets("Résultats").[B:B], 0)) Then

C'est que la feuille Résultats n'existe pas, ou qu'il y a une erreur de syntaxe.
Ou que le mot "Date" n'apparait pas en colonne B.

sylvanu · 20 Octobre 2023

M@xu3L à dit:
Pour t'aider je te donne un des fichier que j'utilise

Etes vous sur que dans tous les fichiers lus il y a bien une feuille "Résultats" ?

M@xu3L · 20 Octobre 2023

Effectivement je me suis arrêté sur le fait que sa ne lirai pas le fichier si il n'y a pas la date en colonne B mais il n'y avait pas le terme Résultats seule il y avait parfois autre chose d'écrit avec et donc bloquait tous merci beaucoup ^^

Et il n'y a pas moyen que le code evite les fichier ou il n'y a pas l'onglet résultats par exemple ^^??

sylvanu · 20 Octobre 2023

M@xu3L à dit:
Et il n'y a pas moyen que le code evite les fichier ou il n'y a pas l'onglet résultats par exemple

Si, avec la fonction suivante :

VB:

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Elle renvie True si la feuille existe, False si elle n'existe pas.
Dans ma PJ "résumé d'utilisation" le code modifié donnerait :

Code:

    If Fichier <> FichierCourant Then
        Workbooks.Open Filename:=CheminFichier
        If FeuilleExiste("Résultats") = True Then   ' Vérification si feuille existe
            If Not IsError(Application.Match("Date", Sheets("Résultats").[B:B], 0)) Then
                DateMax = Application.Max(Sheets("Résultats").[B:B])
                Workbooks(Fichier).Close SaveChanges:=False
                NomFichier = Fichier
                Cells(Lw, "A") = Mid(NomFichier, 1, Len(NomFichier) - 5)
                Cells(Lw, "B") = DateMax
                Lw = Lw + 1
            Else
                Workbooks(Fichier).Close SaveChanges:=False
            End If
        Else
            MsgBox "Feuille Résultats n'existe pas dans le fichier :" & Chr(10) & CheminFichier
            Workbooks(Fichier).Close SaveChanges:=False
        End If
    End If

J'ai rajouté un message si elle n'existe pas. Supprimez Msgbox... si message inutile.

M@xu3L · 20 Octobre 2023

sylvanu à dit:

Si, avec la fonction suivante :

VB:

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Elle renvie True si la feuille existe, False si elle n'existe pas.
Dans ma PJ "résumé d'utilisation" le code modifié donnerait :

Code:

    If Fichier <> FichierCourant Then
        Workbooks.Open Filename:=CheminFichier
        If FeuilleExiste("Résultats") = True Then   ' Vérification si feuille existe
            If Not IsError(Application.Match("Date", Sheets("Résultats").[B:B], 0)) Then
                DateMax = Application.Max(Sheets("Résultats").[B:B])
                Workbooks(Fichier).Close SaveChanges:=False
                NomFichier = Fichier
                Cells(Lw, "A") = Mid(NomFichier, 1, Len(NomFichier) - 5)
                Cells(Lw, "B") = DateMax
                Lw = Lw + 1
            Else
                Workbooks(Fichier).Close SaveChanges:=False
            End If
        Else
            MsgBox "Feuille Résultats n'existe pas dans le fichier :" & Chr(10) & CheminFichier
            Workbooks(Fichier).Close SaveChanges:=False
        End If
    End If

J'ai rajouté un message si elle n'existe pas. Supprimez Msgbox... si message inutile.

Parfait nickel merci beaucoup ^^

XL 2016 Résumer de tableau

M@xu3L

XLDnaute Junior

sylvanu

M@xu3L

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

M@xu3L

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

M@xu3L

XLDnaute Junior

Discussions similaires