VBA - Classement chronologique colonne
Bonjour à tous,
La macro ci-dessous, copie un tableau dans un autre fichier.
Chaque fois que je lance cette macro les résultats se rajoutent les uns en dessous des autres dans ce fichier d'export. Ce qui est parfait.
J'ai cependant une question, est-il possible que chaque fois que les résultats s'exportent dans ce fichier, de classer la toute la colonne A par ordre chronologique ?
Merci par avance.
Christophe
Sub InjectionGlobal()
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet
Dim NbLg As Long
ActiveWorkbook.Unprotect Password:="20097"
'Application.ScreenUpdating = False
Set Ws = Sheets("Saisie_masse_0667_SIRH")
Chemin = ThisWorkbook.Path & Application.PathSeparator
Fichier = "Saisie_masse_0667_SIRH.xlsx"
If Dir(Chemin & Fichier) = "" Then
Ws.Visible = xlSheetVisible
Ws.Copy
Ws.Visible = xlSheetHidden
ActiveSheet.DrawingObjects.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Chemin & Fichier, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
Else
NbLg = Ws.Range("A" & Rows.Count).End(xlUp).Row
If NbLg > 1 Then
With Workbooks.Open(Chemin & Fichier)
Ws.Range("A2:L" & NbLg).Copy .Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Close savechanges:=True
End With
End If
End If
ActiveWorkbook.Protect Password:="20097"
End SubBonjour
dyscus a écrit :est-il possible que chaque fois que les résultats s'exportent dans ce fichier, de classer la toute la colonne A par ordre chronologique ?
Réponse : Oui, c'est possible ! Joins ton fichier et on te fera voir comment !
Bye !
Salut,
Je viens de préparer le fichier il est en PJ.
Lors du premier clic sur le bouton macro d'export, il créer le fichier excel Saisie_masse_0667_SIRH.xslx est insère les données à l'intérieur.
Il suffit de clique plusieurs fois sur ce bouton pour rajouter le contenu à la suite dans ce fichier fichier export.
Ce qu'il faudrait en fait c'est qu'une fois qu'il "colle" son export à la suite du précédent, il y ai à chaque fois un classement chronologique de toute la colonne A de Saisie_masse_0667_SIRH.xslx .
J'espère avoir été le plus détaillé possible, je reste disponible pour compléter.
Merci par avance.