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

guy72

XLDnaute Impliqué
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>DateColonne B
20191201174600
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> DateColonne B> Heure
20191201174600
Merci de votre aide



Cordialement
 
Dernière édition:

job75

XLDnaute Barbatruc
Il y avait un petit problème de B376 à B975, c'est corrigé dans ce fichier (2) :
VB:
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
 

Pièces jointes

  • Backup-B(2).xlsm
    151.4 KB · Affichages: 8
Dernière édition:

guy72

XLDnaute Impliqué
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

XLDnaute Barbatruc
Cette macro fonctionnera avec des textes ou des nombres en colonne A, utilisez-la :
VB:
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
 

Modeste geedee

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
Je ne sais pas si tu connais déjà cette ressource.
Si c'est le cas, ne tiens pas compte de ce message.
 

guy72

XLDnaute Impliqué
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
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
 

Discussions similaires