Bonjour,,
J'importe des information venant d'un Export XLS.
Tout fonctionne sauf lorsque je veux travailler les date, elles restent au format texte, impossible de cibler des périodes.
J'ai essayé de convertir le fichier en XLSX, mais rien ne change. Auriez vous une manipulation ou une macro à intégrer à mon import pour solutionner mon probleme?
Option Explicit
Sub Choix_du_Fichier()
Sheets("Données").Visible = True
'Efface la précédente zone
Effacer
Dim FichierSource As Variant
Dim WbSource As Workbook
Dim ShCible As Worksheet
On Error GoTo Fin
Set ShCible = Sheets("Données")
FichierSource = Application.GetOpenFilename("Fichiers (*.xls),*.xls")
If FichierSource = False Then GoTo Fin
Application.ScreenUpdating = False
Set WbSource = Workbooks.Open(FichierSource)
With WbSource
.Sheets("1").Range("A1:AJ1000").Copy Destination:=ShCible.Range("A1")
.Close False
End With
...