Automatiser une tache

Fermé

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 - 20 mars 2013 à 16:39
hakoko - 15 mai 2013 à 15:32

Bonjour,

Je voudrai telecharger le meme fichier toute les 30 seconde (par exemple), l'enregistrer dans le meme endroit avec le meme nom ( pour qu'il ecrase la version précedente )

comment le programmer ?? pouvez m'aider svp

A voir également:

Automatiser une tache
Deplacer barre de tache windows 11 - Guide
Gestionnaire de tache - Guide
Barre de tache - Guide
Fin de tâche explorateur windows écran noir - Forum Windows 10
Gestionnaire de tache windows 11 - Guide

40 réponses

Réponse 1 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
21 mars 2013 à 08:01

Bonjour,
Si vous etes toujours avec du VBA excel, regardez dans l'aide excel pour application.ontime et http://www.mdf-xlpages.com/modules/publisher/item.php?itemid=14

Bonne suite

Réponse 2 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
22 mars 2013 à 16:18

Bonjour,

Ce n'est pas des plus simple, de ce que j'ai pu voir sur internet. Pouvez-vous en mettre un a dispo sur https://www.cjoint.com/ que je puisse faire des tests

Merci

A+

Réponse 3 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 mars 2013 à 12:17

Bonjour,

Il faut toujours commencer par: comment est generer le fichier et est-ce parametrable.

Vos avez fait preuve de reflexion et perceverance. Mais juste pour mettre un peu d'ambiance avec vos collegues (mirage23 en particulier), fin 2012 elle avait demande a afficher des infos et le fichier etait un fichier .txt, donc peut-etre qu'elle savait, mais elle n'a rien dit.

A+

Réponse 4 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 mars 2013 à 14:07

Bonjour,

j'ai mis la main sur le manuel Eh! oui.

cependant maintenant j'ai un autre souci: Oui, lequel

http://www.commentcamarche.net/forum/excel-145/new#p27456894 qu'est-ce!!!

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 mars 2013 à 14:58

Re,

pouvez-vous mettre un fichier txt a dispo??

Réponse 6 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 27/03/2013 à 17:34

Re,

manip, ouverture fichier .txt avec espace en delimiteur de separation de colonnes, faite avec enregistreur de macro.

Workbooks.OpenText Filename:="D:\_cles\download.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
1), Array(15, 1), Array(22, 1), Array(29, 1), Array(36, 1), Array(43, 1), Array(49, 1), _
Array(55, 1), Array(62, 1), Array(68, 1), Array(75, 1), Array(80, 1), Array(87, 1), Array( _
94, 1), Array(101, 1), Array(109, 1), Array(115, 1), Array(122, 1), Array(130, 1), Array( _
138, 1), Array(144, 1), Array(151, 1), Array(158, 1), Array(165, 1), Array(171, 1), Array( _
179, 1), Array(185, 1), Array(191, 1), Array(199, 1)), TrailingMinusNumbers:=True

vous pouvez aussi vous inspirer du fichier de mirage23 pour ses imports .txt

genre:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin_Complet, Destination:=Range("$A$2"))

ensuite, vous faite votre programme comme si c'etait un fichier excel

A+

Réponse 7 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 mars 2013 à 18:26

Re,

code pour recevoir le fichier en colonne et format txt

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin_Complet, Destination:=Range("$A$1"))
        .Name = Fichier
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False      'pas d'ajustement des colonnes
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlMSDOS     'format txt msdos
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSpaceDelimiter = True  'delimiteur espace
        .TextFileColumnDataTypes = Array(xlTextFormat) 'definition format colonnes
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

A+

Réponse 8 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
28 mars 2013 à 10:51

Bonjour,

Ben oui, mais ou???

Réponse 9 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
28 mars 2013 à 12:23

Re,

quel est le message d'erreur???

Réponse 10 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
28 mars 2013 à 13:50

Re,

blague a part, vous parametrez bien le bon chemin pour le bon fichier???????

Réponse 11 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
28 mars 2013 à 13:59

Re,

jexecute la macro sans apporter les modif de quelle macro parlez-vous

Réponse 12 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
25 avril 2013 à 11:22

Bonjour,

N'ayant pas le fichier, code pour un csv de chez moi, adapter le a votre fichier

    'importation
    'adapter chemin et nom de fichier
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\_cles\Trace.CSV", _
        Destination:=Range("$A$1"))
        'adapter nom de fichier
        .Name = "Trace"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        'mettre autant de 1 que de colonnes dans le ficher csv
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Bonne suite

Réponse 13 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
29 avril 2013 à 16:35

Bonjour,
si vous "deletez" ou renommez le fichier, est-ce-qu'il y a toujours une incrementation de la version??

Réponse 14 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
30 avril 2013 à 07:50

Bonjour,

Vous renommez ou vous supprimez le fichier un fois le traitement fait.

Réponse 15 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
3 mai 2013 à 11:53

Bonjour,

Votre macro ne rafraichit pas en permanance vos donnees!!!!!!!

Réponse 16 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
3 mai 2013 à 16:30

Re,

a quel endroit du code ?? il suffit peut-etre de synchronser.

Réponse 17 / 40

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 3/05/2013 à 17:35

Re,

ligne a ajouter:

'Efface le contenu de toutes les cellules de l'onglet actif
If UCase(Dir(Chemin_Complet)) = UCase(Fichier_Ext) Then

avant:
Cells.ClearContents

et

End If

avant:
'positionne sur cellule A1
Range("A1").Select

Réponse 18 / 40

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 3
21 mars 2013 à 10:36

bonjour f894009,

alors j'en pense avoir terminé avec Excel pour importer les données du moins jespers, mon nouveau souci porte sur des données que je doit importer d'un autre ordinateur.
cette ordinateur contient un logiciel qui procur une interface graphique, sur la quelle je peu choisir un certains nombre d'option tel que afficher les données sous fichier text, sauf que pour cette ordinateur il stoque pas les données ou je pourais les recuperer, il me les envoi via le web)
alors manuellement je fais par exemple: brows->data record->(choisir la date)-> l'afficher ou l'enregistrer. alors ce qui me faut c'est de plannifier cette action chaque instnant donné. afin d'avoir à chaque foi le fichier le plus recent.

mon gro souci c'est comment automatiser c'es taches ??

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 3
21 mars 2013 à 11:23

d'apres mes recherches ,ils m'ont dit que ça devais se faire en VB, please help me

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
21 mars 2013 à 15:50

Re,
Est-ce que par hazard, votre logiciel serait parametrable pour des envois de fichier en automatique a intervalle reglable. Avez-vous regarde la chose???

Réponse 19 / 40

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 3
Modifié par hakoko le 22/03/2013 à 09:52

Bonjour,

justement avec d'autre logiciel, j'ai pu le paramétrer à faire cette tache, sauf que pour d'autres ce n'est pas faisable, il faut à chaque foie le faire manuellement.
il me reste deux logiciels:
le premier stock des données sous format ".wlk" sauf que celui-ci ne donne pas de chemin pour les récupérer en entier , il faut a chaque foie importer les données, les enregistrer sous fichier.wlk ou bien les copier sous fichier texte .
le second, permet de télécharger les données via le web, sauf que la dernière url que j'ai , c'est celle de la page qui permet de choisir la date et l'heur, et donc même en VB j'ai pas encore réussi à automatiser le téléchargement des données temps réel.

Réponse 20 / 40

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 3
22 mars 2013 à 15:30

Re, j'ai trouver ou le premier stock les données. ils sont d'extension ".wlk" et il les stock ainsi :
2012-09.wlk
2012-10.wlk
2012-11.wlk
.................

et chaque fichier contient les données du mois.

est ce que je peut les importé sur mon classeur Excel?

Discussions similaires

document html

J'ai une tâche noir sur l'écran de mon iPhone

Tâche noir sur mon écran qui s’agrandit.

titre encadré

j'ai supprimer le processus EXPLORER

Discussions similaires

Newsletters