Date de modification
Bonjour
Après avoir créer ce macro, je sollicite votre appui pour insérer une dernière colonne où sera affichée la date de dernière modification de chaque fichier. Merci
Sub Synthèse()
'Macro permettant de créer une synthèse des succursales
'Effacement de la feuille
Cells.Delete
'Ecriture de la ligne de titre
Range("A1") = "Région"
Range("B1") = "Immeuble"
Range("C1") = "Nombre"
'Mise en forme de la ligne titre
Range("A1:C1").Interior.Color = 13434879
Range("A1:C1").Font.Bold = True
Chemin = "C:\Users\user nm\Desktop\Pojet Ges BD\succursales\"
Nomfichier = Dir(Chemin & "*.xlsx")
While Len(Nomfichier) > 0
Workbooks.Open Chemin & Nomfichier
AVL = ActiveSheet.UsedRange.Rows.Count - 1
Range("A2:B" & AVL).Copy
ThisWorkbook.Activate
DNF = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Range("A" & DNF & ":A" & ActiveSheet.UsedRange.Rows.Count) = Nomfichier
Workbooks(Nomfichier).Close savechanges:=False
Nomfichier = Dir
Wend
Columns("A:A").Replace ".xlsx", ""
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Bonjour Asarr21
En utilisant l’événement BeforeClose la macro suivante inscrit automatiquement la date de la dernière modification dans la cellule A1 de la première feuille de votre classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).[A1] = "Dernière modification le " & Format(Date, "dd/mm/yyyy")
End SubA Adapter suivant tes besoins
Merci, mais j'ai surtout besoin de créer dans la dernière colonne