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

guy72

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

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
 

guy72

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

XLDnaute Barbatruc
Bonjour guy72, le fil, le forum,

Merci, dans la macro il suffit d'ajouter l'ouverture et la copie du fichier CSV :
VB:
Sub Convertir()
Dim c As Range, tablo, i&, x$, dat As Date
Application.ScreenUpdating = False
With ActiveSheet
    .Cells.Delete 'RAZ
    Set c = .Cells(1)
    On Error Resume Next
    With Workbooks.Open(ThisWorkbook.Path & "\201912A.csv") 'ouverture du fichier CSV
        If Err Then MsgBox "Fichier CSV introuvable !", 48: Exit Sub
        .Sheets(1).UsedRange.Copy c 'copier-coller
        .Close
    End With
    On Error GoTo 0
    With .UsedRange
        .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
        End With
    End With
    .Columns.AutoFit 'ajustement largeurs
End With
End Sub
Téléchargez et placez les fichiers joints dans le même dossier (le bureau).

Bonne journée.
 

Fichiers joints

guy72

XLDnaute Impliqué
Bonsoir,
Je reviens juste pour un petit changement dans la macro.
La macro convertie jusqu'à la ligne 2000, que faut-il faire pour convertir jusqu'à la dernière ligne
 

guy72

XLDnaute Impliqué
OK, impeccable, ça fonctionne, je ne sais pas ce que j'ai fait, j'ai du me mélanger dans les dossiers Excel et LibreOffice:oops:
Finalement, j'était avec la macro du fichier (Backup (2).xlm)
Merci encore
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas