XL 2010 [Résolu] Formatage date différent

[guy72]

Bonjour,
Dans un fichier, dans la colonne A, j'ai la date et l'heure:
Time

2019/12/01 17:46

Etc ......




Dans le 2ème fichier, dans la colonne A

Colonne A>Date	Colonne B
20191201	174600

Etc ......




Ma question est:
Est-il possible de transformer la date et l'heure de la colonne A du 1er fichier, et de les séparer au format de celui du 2ème fichier ??
Exemple:
2019/12/01 17:46 en

Colonne A> Date	Colonne B> Heure
20191201	174600

Merci de votre aide



Cordialement

 

[job75]

Il y avait un petit problème de B376 à B975, c'est corrigé dans ce fichier (2) :

Sub Convertir()
Dim tablo, i&, x$, dat As Date
With ActiveSheet.UsedRange
    If Application.CountIf(.Columns(1), "*/*") = 0 Then Exit Sub 'si la macro a déjà été exécutée
    Application.ScreenUpdating = False
    .Replace ".", "." 'remplace le point par la virgule et convertit
    .Columns(1).EntireColumn.Insert 'insère une colonne
    .Cells(1, 0) = "Date"
    tablo = .Columns(0).Resize(, 2) 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        x = tablo(i, 2)
        If IsDate(x) Then 'sécurité
            dat = CDate(x)
            tablo(i, 1) = Mid(dat, 7, 4) & Mid(dat, 4, 2) & Left(dat, 2)
            x = Right(dat, 8)
            If InStr(x, ":") = 0 Then x = 0
            x = Format(Replace(x, ":", ""), "000000")
            If Left(x, 1) = "0" Then x = "'" & x 'conserve les zéros non significatifs
            tablo(i, 2) = x
        End If
    Next
    .Columns(0).Resize(, 2) = tablo 'restitution
    .Columns(0).Resize(, 2).AutoFit 'ajustement largeurs
End With
End Sub

 

[guy72]

Il y avait un petit problème de B376 à B975, c'est corrigé dans ce fichier (2) :

Ok, ça fonctionne, merci job75[/QUOTE]

 

[guy72]

Bonjour,
J'ai un souci:
1) J'ouvre un fichier .csv "Essai"
2) Je le convertis en tableau
3) J'ai copier la macro dans le fichier "Personal.xlsb"
4) J'enregistre mon fichier "Essai" sous le format "xlsm"
5) J'ouvre ce dernier
6) Je souhaite utiliser la macros pour ce fichier, mais elle ne fonctionne pas (pourquoi) 🙁

 

[job75]

Bonjour guy72,

6) Je souhaite utiliser la macros pour ce fichier, mais elle ne fonctionne pas (pourquoi) 🙁

Sans doute parce qu'en colonne A ce ne sont plus des textes mais des nombres, la 4ème ligne de ma macro arrête l'exécution.

Bon dimanche.

 

[job75]

Cette macro fonctionnera avec des textes ou des nombres en colonne A, utilisez-la :

Sub Convertir()
Dim tablo, i&, x$, dat As Date
With ActiveSheet.UsedRange
    If .Cells(1) = "Date" Then Exit Sub 'si la macro a déjà été exécutée
    Application.ScreenUpdating = False
    .Replace ".", "." 'remplace le point par la virgule et convertit
    .Columns(1).EntireColumn.Insert 'insère une colonne
    .Cells(1, 0) = "Date"
    tablo = .Columns(0).Resize(, 2) 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        x = tablo(i, 2)
        If IsDate(x) Then 'sécurité
            dat = CDate(x)
            tablo(i, 1) = Mid(dat, 7, 4) & Mid(dat, 4, 2) & Left(dat, 2)
            x = Right(dat, 8)
            If InStr(x, ":") = 0 Then x = 0
            x = Format(Replace(x, ":", ""), "000000")
            If Left(x, 1) = "0" Then x = "'" & x 'conserve les zéros non significatifs
            tablo(i, 2) = x
        End If
    Next
    With .Columns(0).Resize(, 2)
        .NumberFormat = "General" 'format Standard
        .Value = tablo 'restitution
        .AutoFit 'ajustement largeurs
    End With
End With
End Sub

 

[guy72]

D'accord je regarde ça cet après-midi Je te tiens au courant

 

[Modeste geedee]

Bonsour®

Bonjour,
J'ai un souci:
1) J'ouvre un fichier .csv "Essai"
2) Je le convertis en tableau
3) J'ai copier la macro dans le fichier "Personal.xlsb"
4) J'enregistre mon fichier "Essai" sous le format "xlsm"
5) J'ouvre ce dernier
6) Je souhaite utiliser la macros pour ce fichier, mais elle ne fonctionne pas (pourquoi) 🙁

ce serait plus simple de mettre ici le .csv, avant que Excel y f.... ses pattes "By Design"

 

[Staple1600]

Bonjour le fil

=>guy72
J'ai relu tout le fil
Et donc par association d'idée et grâce au clic-droit
Je suis arrivé ici

station-meteo.com - Diese Website steht zum Verkauf! - Informationen zum Thema station meteo.

Diese Website steht zum Verkauf! station-meteo.com ist die beste Quelle für alle Informationen die Sie suchen. Von allgemeinen Themen bis hin zu speziellen Sachverhalten, finden Sie auf station-meteo.com alles. Wir hoffen, dass Sie hier das Gesuchte finden!

www.station-meteo.com

Je ne sais pas si tu connais déjà cette ressource.
Si c'est le cas, ne tiens pas compte de ce message.

 

[guy72]

Bonjour le fil

=>guy72
J'ai relu tout le fil
Et donc par association d'idée et grâce au clic-droit
Je suis arrivé ici

station-meteo.com - Diese Website steht zum Verkauf! - Informationen zum Thema station meteo.

Diese Website steht zum Verkauf! station-meteo.com ist die beste Quelle für alle Informationen die Sie suchen. Von allgemeinen Themen bis hin zu speziellen Sachverhalten, finden Sie auf station-meteo.com alles. Wir hoffen, dass Sie hier das Gesuchte finden!

www.station-meteo.com

Je ne sais pas si tu connais déjà cette ressource.
Si c'est le cas, ne tiens pas compte de ce message.

Oui, j'utilise ce logiciel tous les jours, c'est celui qui créer un fichier csv en récupérant les données de la station "Oregon"
Mais comme je vais changer de station, et cette station n'utilise pas ce logiciel.

C'est la console qui créer le fichier csv, mais qui n'a pas le même formatage des dates et heures.
Il faut donc que je transforme ce fichier comme celui de l'ancienne station pour pouvoir utiliser le logiciel "GraphWeather".

Et pour les relevés sur Excel, je j'ouvre ce fichier csv avec Excel.
Voir par curiosité meteofloralies.free.fr

 

[guy72]

Impeccable !!! job75
Ça fonctionne !!!
Merci de ton aide et de ta patience

 

[guy72]

ce serait plus simple de mettre ici le .csv, avant que Excel y f.... ses pattes "By Design"

Je ne peux pas envoyer de fichier csv refusé

 

[job75]

Pour joindre un fichier csv zippez-le.

 

[guy72]

Pour joindre un fichier csv zippez-le.

Je ne sais pas faire

 

[job75]

Clic droit sur l'icône du fichier => Envoyer vers => Dossier compressé => télécharger sur XLD.

 

[guy72]

Voici le dossier