éélaboration d'une macro pour importation de donnée dans excel 2003

Version imprimable

11/08/2010, 14h13
wuging

éélaboration d'une macro pour importation de donnée dans excel 2003

Bonjour,
j'aimerais vous poser un problème que j'ai sur excel.
j'ai une liste de donnée sous cette forme dans un fichier texte(la date et la valeur à côté): 2010-01-01 16:30 8507.55181666667
cette liste s'étend sur trente ans et ce sont des valeurs horaires.
J'aimerais l'importer dans excel de cette manière: sur une feuille:
dans la colonne A la première année et dans la B les valeurs correspondantes
dans la C la deuxième années et dans la D les valeurs correspondantes.
et ainsi de suite pour toute les année de mon fichier texte.
remarque: l'année ne commence pas forcément le premier janvier à 00:30 mais peux commencer le premier avril à 00:30 ou bien le 31 mars à 23:30.
de même l'année ne finis pas forcément le 31 décembre à 23:30.

Et j'ai un autre problème dans ces valeurs il est possible qu'il ait des trous. c'est à dire: par exemple j'ai 2010-01-01 16:30 8507.55181666667 puis j'ai 2010-01-02 13:30 8507.55181666667
Je me demandais si il n'existerais pas un moyen de trouver ces trous et de rajouter entre les deux dates les dates horaires manquantes et pas de valeurs à coté.
Comme j'ai des milliers d'années à faire je cherche une macro pour executer la tache le plus vite possible.
Meci
11/08/2010, 14h51
Yoyo57

Bonjour,

Il existe déjà des message répondant à ce problème. Par exemple : récupérer des infos dans un .txt

bonjour,

sinon tu peux tjs essayer ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub test()
Dim WB As Workbook, dSh As Worksheet, oSh As Worksheet
Dim MaxY, MinY, CurY, R, X
 
Workbooks.OpenText "H:\DATA\test.txt", xlMSDOS, , xlDelimited, , , True, , , , , , , , ".", ","
Set WB = ActiveWorkbook
 
Set oSh = WB.Sheets(1)
oSh.Cells.EntireColumn.AutoFit
Set dSh = WB.Sheets.Add(after:=WB.Sheets(1))
 
MaxY = Year(Application.WorksheetFunction.Max(oSh.Range("A:A")))
MinY = Year(Application.WorksheetFunction.Min(oSh.Range("A:A")))
R = 1
 
Do Until oSh.Cells(R, 1) = ""
    CurY = Year(oSh.Cells(R, 1))
    dSh.Cells(R + 1, 1).Offset(0, (CurY - MinY) * 2).End(xlUp).Offset(1, 0) = oSh.Cells(R, 1).Text
    dSh.Cells(R + 1, 2).Offset(0, (CurY - MinY) * 2).End(xlUp).Offset(1, 0) = oSh.Cells(R, 2)
    R = R + 1
Loop
 
End Sub

11/08/2010, 15h34
wuging

juste encore un petit souci

c'est super ça marche, mais juste un petit souci il bloc à partir d'un certain moment parce que je pense que en fait mon fichier texte dépasse le nombre de cellule disponible, c'est à dire 65000

merci pour tout

sinon je pense que je vais faire une autre discussion pour résoudre mon autre petit problème

taille trop grande

Je sais que l'on arrive à faire des importation avec des fichier plus long,
voilà un code qui marche mais il importe faux au niveau des espaces. En fait il m e faudrait un mélange des deux codes celui ci et celui ecrit par mayekeul mais je mis connais pas du tous en vba

Code:

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
Option Explicit 
 
Sub ImportDonnees() 
 
Const IDX_DATE = 0 
Const IDX_VALEUR = 1 
Dim chemin As String 
Dim nf As Integer 
Dim ligne As String 
Dim varDate As String 
Dim varValeur As String 
Dim variables As Variant 
Dim numLigne As Integer 
Dim numColonne As Integer 
Dim ancAnnee As String 
 
numColonne = -1 
Cells.Clear 
chemin = ActiveWorkbook.Path & "\test.txt" 
If Dir(chemin) = "" Then MsgBox "fichier non trouvé": Exit Sub 
Close 
nf = FreeFile 
Open chemin For Input As nf 
Do Until EOF(nf) 
Line Input #nf, ligne 
variables = Split(ligne, " ") 
If Left(variables(IDX_DATE), 4) <> ancAnnee Then 
ancAnnee = Left(variables(IDX_DATE), 4) 
numColonne = numColonne + 2 
numLigne = 1 
End If 
Cells(numLigne, numColonne).Value = variables(IDX_DATE) 
Cells(numLigne, numColonne + 1).Value = variables(IDX_VALEUR) 
numLigne = numLigne + 1 
Loop 
Close nf 
End Sub

merci beaucoup

Bonjour,

ce code devrais mieux fonctionner

a noter qu'il ne fonctionnera que si la liste de départ est ordonnée.

sinon, on retrouvera plusieurs colonnes avec la m^me année

Code:

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
Sub ImportDonnees()
 
Const IDX_DATE = 0
Const IDX_VALEUR = 1
Dim chemin As String
Dim nf As Integer
Dim ligne As String
Dim varDate As String
Dim varValeur As String
Dim variables As Variant
Dim numLigne As Integer
Dim numColonne As Integer
Dim ancAnnee As String
 
numColonne = -1
Cells.Clear
chemin = ActiveWorkbook.Path & "\test.txt"
If Dir(chemin) = "" Then MsgBox "fichier non trouvé": Exit Sub
Close
nf = FreeFile
Open chemin For Input As nf
Do Until EOF(nf)
    Line Input #nf, ligne
    variables = Split(ligne, vbTab)
    If Left(variables(IDX_DATE), 4) <> ancAnnee Then
        ancAnnee = Left(variables(IDX_DATE), 4)
        numColonne = numColonne + 2
        numLigne = 1
    End If
    Cells(numLigne, numColonne).Value = variables(IDX_DATE)
    Cells(numLigne, numColonne + 1).Value = variables(IDX_VALEUR)
    numLigne = numLigne + 1
Loop
Close nf
 
'de rien beaucoup aussi!
 
End Sub

16/08/2010, 09h34
wuging

re

Merci beaucoup ça marche super

bonne journée
27/08/2010, 16h53
wuging

rebonjour

j'ai une petite question sur le même sujet,

j'ai un autre fichier texte de cette manière:

Fichier source: H:\Departements\Exploitation\Unite Conduite-interfaces\Hydrologie\Anhydre\H401_65.LCE
2001.05.07-11:00:00 0 ........ ........
2001.05.07-12:00:00 0.006 ........ ........
2001.05.07-13:00:00 0.006 ........ ........
2001.05.07-14:00:00 0.006 ........ ........
2001.05.07-15:00:00 0.006 ........ ........

j'aimerais qu'il m'importer de la même manière, mais pour que la date arrive au format date comme dans l'autre fichier et non en format texte et qu'il n'y ait pas tout qui soit importer mais seulement la date et les valeurs

Merci beaucoup
17/09/2010, 08h33
wuging

Comme personne ne m'a repondu et que c'est urgent je relance le sujet, je pense que c'est pas très compliqué mais moi je m'y connais pas.

merci d'avance