XL 2019 Problème tableau structuré et code vba

telemarrk à dit:

Bonsoir,

J'ai un souci avec ma mise en forme structurée. J'ai un code vba qui se lance au démarrage et qui me permet d'afficher les fichiers PDF présents dans mon dossier PDF se trouvant sur mon bureau, il fonctionne correctement.

Je sélectionne le tableau, je lui applique "Mettre sous forme de tableau" et j'enregistre pour finir.

Dès l'ouverture de mon fichier, les titres de colonne se trouvent en dernière ligne (voir capture), je pense que cela vient du code VBA qui fait un tri automatique sur la colonne d.


Je n'arrive pas à résoudre ce problème, quelqu'un peut-il m'aider ?


Merci.

Cliquez pour agrandir...

Bonsoir,
Le problème vient effectivement du tri.
Profitez des avantages du tableau structuré.
Corriger cette partie comme ci-dessous :
Cordialement,

Merci Gégé-45550, cela fonctionne.

Bonjour,

Juste par curiosité, tu as quoi qui apparaît dans la troisième colonne du tableau une fois qu'il est trié ?

Bonjour Gégé-45550,

Manipulation :


J'ai supprimé les colonnes, ajouté le code VBA, enregistré mon fichier et quitté.

À l'ouverture, il m'affiche un message de débogage que j'ai fermé et j'ai ensuite appliqué "Mettre sous forme de tableau" et cela fonctionne.


Merci pour ton aide.

Gégé-45550, tu as vu l'image "Capture2" de #5 ?...

---

1- telemarrk peux-tu poster une image du résultat sur un dossier contenant plus de deux fichiers pdf, s'il te plaît ?

2- Pourquoi avoir supprimé des colonnes et non simplement vidé le TS ?

Bonjour TooFatBoy, je te répond demain, là je suis de sorti

Merci. Bonne sortie.

@ demain

Bien vu TooFatBoy avec la colonne 3.


J'ai ajouté deux nouveaux documents PDF (Test 3 et 4).


Ils se placent bien à la suite, mais par contre en colonne 3, j'ai toujours le dernier fichier qui s'affiche.


Cela ne fonctionne pas.

Est-ce que tu peux nous poster le code que tu utilises pour remplir le tableau, s'il te plaît ?

Chez moi, ça ne semble pas poser ce problème à chaque fois...

vb :

Private Sub Workbook_Open()

Dim FolderPath As String
Dim FileSystem As Object
Dim Folder As Object
Dim File As Object
Dim Ligne As Long
Dim Feuille As Worksheet

'Référencer l'onglet "Factures"
Set Feuille = ThisWorkbook.Worksheets("Factures")

'Chemin du dossier contenant les fichiers PDF
FolderPath = "C:\Users\solan\Desktop\pdf"

'Créer une instance de l'objet FileSystemObject
Set FileSystem = CreateObject("Scripting.FileSystemObject")

'Référencer le dossier
Set Folder = FileSystem.GetFolder(FolderPath)

'Commencer à la ligne 6
Ligne = 6

'Boucler sur chaque fichier du dossier
For Each File In Folder.Files
'Vérifier si le fichier a l'extension .pdf
If LCase(Right(File.Name, 4)) = ".pdf" Then
'Colonne A : Nom du fichier
Feuille.Cells(Ligne, 1).Value = File.Name

'Colonne B : Date de dernière modification
Feuille.Cells(Ligne, 2).Value = FileDateTime(File.Path)

'Colonne C : Lien hypertexte
Feuille.Cells(Ligne, 3).Formula = "=HYPERLINK(""" & File.Path & """,""" & File.Name & """)"

'Colonne D : Date d'accès
Feuille.Cells(Ligne, 4).Value = File.DateLastAccessed

'Passer à la ligne suivante
Ligne = Ligne + 1
End If
Next File

'Ajuster automatiquement la largeur des colonnes
Feuille.Columns("A").EntireColumn.AutoFit

'Trier la colonne D à partir de D6 par ordre croissant
ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort.SortFields. _
Add2 Key:=Range("Tableau1[[#All],[Colonne4]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

' With Feuille.Range("D6" & Feuille.Cells(Rows.Count, "D").End(xlUp).Row)
' .Sort Key1:=.Cells, Order1:=xlAscending, Header:=xlNo
' End With

'Libérer les objets
Set FileSystem = Nothing
Set Folder = Nothing
Set Feuille = Nothing
End Sub

merde il a remplacé les : par un émoticone

telemarrk à dit:

il a remplacé les : par un émoticone

Cliquez pour agrandir...

Édite ton message et utilise la balise code avec le paramètre vb pour encadrer ton code.

Exemple (ne pas mettre les "_") :
[_code=vb_]
ici tu mets ton code
[_/code_]

code=vb
Private Sub Workbook_Open()

Dim FolderPath As String
Dim FileSystem As Object
Dim Folder As Object
Dim File As Object
Dim Ligne As Long
Dim Feuille As Worksheet

'Référencer l'onglet "Factures"
Set Feuille = ThisWorkbook.Worksheets("Factures")

'Chemin du dossier contenant les fichiers PDF
FolderPath = "C:\Users\solan\Desktop\pdf"

'Créer une instance de l'objet FileSystemObject
Set FileSystem = CreateObject("Scripting.FileSystemObject")

'Référencer le dossier
Set Folder = FileSystem.GetFolder(FolderPath)

'Commencer à la ligne 6
Ligne = 6

'Boucler sur chaque fichier du dossier
For Each File In Folder.Files
'Vérifier si le fichier a l'extension .pdf
If LCase(Right(File.Name, 4)) = ".pdf" Then
'Colonne A : Nom du fichier
Feuille.Cells(Ligne, 1).Value = File.Name

'Colonne B : Date de dernière modification
Feuille.Cells(Ligne, 2).Value = FileDateTime(File.Path)

'Colonne C : Lien hypertexte
Feuille.Cells(Ligne, 3).Formula = "=HYPERLINK(""" & File.Path & """,""" & File.Name & """)"

'Colonne D : Date d'accès
Feuille.Cells(Ligne, 4).Value = File.DateLastAccessed

'Passer à la ligne suivante
Ligne = Ligne + 1
End If
Next File

'Ajuster automatiquement la largeur des colonnes
Feuille.Columns("A").EntireColumn.AutoFit

'Trier la colonne D à partir de D6 par ordre croissant
ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort.SortFields. _
Add2 Key:=Range("Tableau1[[#All],[Colonne4]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Factures").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

' With Feuille.Range("D6" & Feuille.Cells(Rows.Count, "D").End(xlUp).Row)
' .Sort Key1:=.Cells, Order1:=xlAscending, Header:=xlNo
' End With

'Libérer les objets
Set FileSystem = Nothing
Set Folder = Nothing
Set Feuille = Nothing
End Sub


/code

encore loupé

il faut mettre les crochets