Discussion :

[bastien_moi]

bonjour

j'ai des fichier texte (un par jour) qui se nomme "yyyy mm dd.txt" avec comme contenu
15/10/2008 ; 00:00:48 ; ;53;49;29;60
15/10/2008 ; 00:01:48 ; ;52;50;30;58
.....
j'ai 1440 ligne par fichier +/- (1messure toute les minute) mon but est de recuperer le contenu du fichier, pour l'inserer dans une feuille existante et publier une 2eme feuil contenant un graphique pour avoir une page htm avec ce graphique

actuelement j'ai une macro

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Macro5()
 
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.PublishObjects.Add(xlSourceChart, _
    "l:\\Page.htm", "Graphique", _
        "Graphique 1", xlHtmlStatic, "temperature chaudiere_19844", "").Publish (True)
    ActiveSheet.ChartObjects("Graphique 1").Activate
End Sub

elle me permet de selectionné (avec la boite de dialogue ouvrir) un fichier et d'extraire son contenu et de publier le graphique

cette macro a été faite avec l'enregistrement et la fonction donnée externe

ce que je voudrais c'est quand on execute la macro qu'elle ouvre le fichier comportant la date du jours, sans demander de le selectionné

pouvez vous m'aider? j'ai des base en VB mais en VBA..... j'ai decouvert les macro hier donc je rame un peu

merci d'avance

[landi440]

Bonjour,
Rajouter dans la macro

Soit

Code :

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

1
2
Datedujour = Format(Date, "yyyy mm dd")
NomFichier = Datedujour & ".txt"

Soit

Code :

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

1
2
3
4
DateHier = Format(Date, "yyyy mm") & " " & Day(Date) - 1
NomFichier = DateHier & ".txt"
 
Workbooks.Open Filename:=NomFichier

[bastien_moi]

ton code fonctionne bien mais il ouvre le fichier texte dans un autre classeur, et ne separe pas les different champs separé par les ";" (point virgule)

en piece jointe j'ai mis un exemple de fichier texte, avec mon classeur xls pour que vous puissiez voir.

le fichier texte doit en faite etre importer en A2 de la feuil "valeur" (la ligne 1 comporte les titre des colone) et le graphe lui se trouve sur la feuille "graphique"

j'ai trouver plein de code pour ouvrir un fichier texte dans une nouvelle feuille mais pour l'importer a un endroit precis ....

est ce que quelqu'un peut m'aider?
merci d'avance

[decondelite]

Tu as le choix:
-soit tu utilise sa méthode, tu sépare tes différentes données par des tabulations dans ton fichier texte, et tu recopie les cellules du fichier texte (en fait ça n'ouvre pas un vrai classeur ça ouvre le fichier .txt, mais avec Excel)
-soit tu utilise la gestion des fichiers de VB/VBA (mot clés open, close, get, etc...), et là le fichier texte est lu dans la RAM et tu devras faire écrire Excel aux emplacements que tu souhaites

Ces 2 façons de faire marchent, mais personnellement je trouve la 2e plus "correcte", dans le sens que lorsque l'on veut accéder aux données d'un fichier c'est comme ça qu'on fait.

[bastien_moi]

voila je suis parvenu, en recuperant des bout de code sur le net, a faire ec que je voulais

je met le code pour "info" ca peut toujours aider quelqu'un

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
 
Sub Macro5()
    ActiveWorkbook.Worksheets(1).Select
    Range("A2:G1440") = ""
    FichierChoisi = "l:\log temp\" & Format(Now, "yyyy mm dd") & ".txt"
    If Not FichierChoisi = False Then
    FichierActuel = ThisWorkbook.Name
    Workbooks.OpenText Filename:=FichierChoisi, DataType:=xlDelimited, Tab:=False, Other:=True, otherchar:=";"
    Selection.CurrentRegion.Copy
    Windows(FichierActuel).Activate
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Delete
    Range("A1").Select
 
 
   End If
 
    Workbooks(Format(Now, "yyyy mm dd") & ".txt").Close
    ActiveWorkbook.PublishObjects.Add(xlSourceChart, _
        "C:\Documents and Settings\Administrateur\Bureau\Page.htm", "Graphique", _
        "Graphique 1", xlHtmlStatic, "temperature chaudiere_19844", "").Publish (True)
 
End Sub

[decondelite]

J'espère pour toi que tu comprends de A à Z ce code, sinon ça n'aura servi à rien d'avoir copié/collé.

[bastien_moi]

peut etre pas a 100% mais une bonne partie oui

merci !!