Bonsoir le Forum!!!

Je rencontre un souci avec cette procédure qui m'interverti la cellule A1 avec la cellule A2

Quelqu'un aurait-il une idée car je sèche complètement!!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public DonneesAdministratives As Workbook
 
Private Sub TrierDonneesAdministratives()
 
Set DonneesAdministratives = GetObject("G:\DonneesClients\DonneesAdministartives\DonneesAdministratives.xlsx")
 
DonneesAdministratives.Sheets(1).Sort.SortFields.Clear                         
DonneesAdministratives.Sheets(1).Range("A2:" & Range("A2").SpecialCells(xlCellTypeLastCell).Address).Sort Key1:=DonneesAdministratives.Sheets(1).Range("A2"), Order1:=xlAscending
 
End Sub
Merci de votre coup de pouce

Jeanvaljean44