Bonjour a tous,

Me voilà de nouveau pour un nouveau problème (décidément !!! ).
Alors je voudrais trier mes données par ordre croissant avec comme paramètre de tri ma colonne A. Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Tri_croissant()
 
Dim maplage As Range
   With ThisWorkbook.Worksheets("Export_FP_09-09-09")
 Set maplage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 28).End(xlUp))
   End With
   Set maplage = maplage.Offset(1).Resize(maplage.Rows.Count - 1)
   maplage.Sort Key1:=maplage.Cells(1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
 
End Sub
Le code fonctionne mais le problème est le nom du fichier. En effet mon fichier se nomme "Export_FP_09-09-09" cependant je voudrais que le code fonctionne quelque soit le nom du fichier. Ensuite le second problème est que si je n'enregistre pas ma macro dans le classeur "Export_FP_09-09-09" le code ne fonctionne pas. Car je l'enregistre dans un classeur "PERSONAL.xlsb pour que les macros que je crée soit accessible à partir de n'importe quel feuille.
Merci pour votre aide !!!