Import date sous format texte de fichier XLS
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
...Bonjour
Selectionner la colonne A
Clic droit
Choisir format cellule
choisir date
A+ François
Bonjour Olivier TP
Mettez 1 dans une cellule vide, copiez cette cellule
Puis sélectionnez vos dates et Collage spécial
A+
Edit : Salut fanfan38
Bonjour à tous !
Avez-vous étudié la piste Power Query, outil idéal pour lire, nettoyer, enrichir des données ?
Bonjour,
@fanfan38 cela ne fonctionne pas je ne sais pour quelle raison, c'est pour cela que j'ai mis les fichier en pièce jointe.
@JFL Power Qyery est super puissant, mais je cherche à créer un outil ou l'utilisateur exporte son fichier et l'importe avec un minimum de manipulation.
Par contre le fait de multiplier par 1 résous le problème...
Merci pour votre aide.
Bonjour à tous de nouveau !
Utiliser la fonctionnalité "Actualiser tout" ne me semble pas une tâche chronophage....
Sinon, une formule Microsoft 365 :
=EXCLURE(DANSCOL(A:A;3);1)+0@JFL ta solution est top. J'ai la chance de travailler sur 365 depuis quelques temps et ça va me faciliter la vie.
Bonne fin de journée à toi.
Bonjour à tous de nouveau !
Bien....
Je vous remercie de ce retour.