Discussion :

[Invité1]

Bonjour,

Voilà je suis totalement novice en VBA et je voudrais savoir s'il y a une âme charitable qui peut m'aider sur mon problème.

En fait je génère souvent des fichiers .txt de données météo à partir du minitel (fichier joint meteo.txt pour exemple, c'est en fait une suite de captures d'écran du minitel heure par heure) puis je les remets manuellement sous forme de tableau excel (fichier joint meteo.xls) et c'est très fastidieux.

Je suppose que tout cela peut être automatisé à l'aide d'une macro. J'ai beau essayé de le faire moi même, mais je pars de vraiment trop loin au niveau de ce langage et j'ai pas vraiment le temps de m'y mettre.

Est-ce qu'une personne ayant le cœur sur la main pourrait me trouver un bout de code qui me permettrait de passer de mon fichier meteo.txt à mon fichier meteo.xls ?

Merci d'avance

[Krovax]

Bonjour,
Je suppose que tu sais le faire manuellement non?
Donnée/Données externe/importer des données (pour 2003)

Donc tu lance l'enregistreur de macro tu fait l'importation manuelle tu coupe l'enregistreur et tu regarde le code. Tu utilise l'aide F1 (sélection du mot clef puis F1) pour regarder ce que tu ne comprend pas. Ensuite si ce n'est toujours pas bon tu reviens sur le forum tu copies le code (en utilisant les balise adéquate sinon ) et tu explique ce qui ne va pas

Bonne chance

ps : un peu de lecture
Vos premiers pas dans l'éditeur de macros Excel

[jfontaine]

Bonjour,

Ci dessous un code qui fait le début de ce que tu souhaites.
A toi de le terminer en nous demandant de l'aide si besoin.

Code a analyser en t'appuyant sur la documentation que krovax t'a mis en lien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub Importation()
 
Dim StrLigne As String
Dim i As Long
Dim strSplit() As String
 
i = 2
 
Open "C:\meteo.txt" For Input As #1
 
Do While Not EOF(1)
 
    Line Input #1, StrLigne
    StrLigne = Trim(StrLigne)
    strSplit = Split(StrLigne, " ")
 
    Select Case LCase(Trim(Left(StrLigne, 5)))
 
        Case "relev"
            i = i + 1 'changement de ligne a la nouvelle date trouvée
            Range("B" & i).Value = strSplit(3) & "-" & strSplit(4)
            Range("C" & i).Value = strSplit(5)
 
        Case "tempé"
            Range("D" & i).Value = strSplit(UBound(strSplit) - 1) & " " & strSplit(UBound(strSplit))
 
        Case "humid"
 
 
        Case "vent"
 
 
        Case "préci"
 
 
    End Select
 
Loop
 
Close #1
 
End Sub