Bonjour à tous et toutes
J'essaye avec la macro ci dessous de récupérer dans un classeur Tri divers infos dans plusieurs classeurs fermés.
Pour mes essais je me contente pour l'instant d'un seul classeur avec des valeurs facilement identifiables dans mon classeur Tri.
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
25
26
27
28
29
30
31
32 Sub Tri() Dim objShell As Object Dim objFolder As Object Dim Chemin As String Dim Fichier As String Cells.Select Selection.ClearContents Chemin = "C:\Users\JP\Desktop\Test\" 'Choix du 1er fichier Fichier = Dir(Chemin & "*.xlsx") 'on boucle sur tous les fichiers excel du répertoire choisi Do While Len(Fichier) > 0 If Fichier <> ThisWorkbook.Name Then With Sheets("Feuil1") 'Inscrit le nom des fichiers en colonne A Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = _ Fichier 'Inscrit le contenu de la cellule A3 en B Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = _ "='" & Chemin & "[" & Fichier & "]Feuil1'!A3" Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = _ "='" & Chemin & "[" & Fichier & "]Feuil1'!A1" _ & Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row End With End If Fichier = Dir() Loop End Sub
La récupération de la dernière cellule non vide des colonnes A me pose problème.
La valeur recopiée est "Ligne 12" alors que ce devrait être "FIN"
Je joint le classeur test
Merci d'avance pour votre aide
Partager