Macro Batch + Autoexec

Question

Bonjour le forum,

J'aurais besoin d'un conseil sur la faisabilité de la chose suivante:

Est il possible de créer une macro qui me lance un batch, le batch lui lancerai un script shell (traitement sed - grep via CYGWIN sur Windows 8) ?

dit d'une autre façon: exécuté un script shell Cygwin via excel (j'ai pensé à autoexec ou autopen...) en passant par une tâche planifiée ou autres...

Un peu dans le style de ce topic: 

http://www.commentcamarche.net/forum/affich-3907285-vba-lance-un-bat-qui-lance-un-init


Toutes autres manière de faire est la bienvenue.


Merci pour votre aide :)


ps: je sais c'est peut-être bizarre comme question ^_^

Configuration: Windows 8 / Firefox 18.0

Médéric · Answer

Personne n'a une idée ? :/

f894009 · Answer

Bonjour,
Doit tourner tous les jours a une heure donnee (tache planifiee)
Pourquoi passer par excel

Médéric · Answer

Bonjour f894009,

tourner à une heure donnée je sais pas si ça se fera....

mais le but et de lancer un traitement (sed-grep) Cygwin sur un fichier de log.csv par le biais d'excel (pour ne garder que les info utiles du fichier de log).

Hors lancé un script shell linux via excel (je ne pense pas que ce soit possible: sed ne serait pas compris par la CMD DOS.... normal en même temps).

le seul moyen auquel j'ai pensé, c'est donc de me créer un batch qui lancera mon script.sh (script.sh traité par cygwin)

en 2: faire par bouton, le calcul du temps d'appel (la ou tu m'as aidé sur ce post: http://www.commentcamarche.net/forum/affich-27070689-macro-calcul-horaires-excel-2010)

j'espère avoir été clair dans mon explication ^_^

Merciii !!

f894009 · Answer

Bonjour,

Une tache planifiee ira pour lancer le fichier batch (voir config tache planifiee)

fichier batch: une ligne pour lancer le script.sh et une ligne pour lancer le fichier xlsm en programmant le depart du code vba a l'ouverture du fichier (thisworkbook,  private sub workbook_open.

faire des essais pour s'assurer que le script.sh soit fini avant de lancer excel
(autrement il y a des solutions pour controler une fin de process)

Médéric · Answer

Re,

j'ai créé une macro, avant que tu répondes, qui lance un batch avec ça dedans:

@ echo off

C:
chdir c:\cygwin\bin
bash --login -i c:\cygwin\bin\script_sed.sh

et ce batch lance mon script linux :)

autoexec ou autopen ne sont plus utilisé sous 2010 ?

f894009 · Answer

Re,

autoexec ou autopen ne sont plus utilisé sous 2010 ? Peut-etre mais je vous ai parle du VBA dans ThisWorkbook.

Ouvrez la fenetre VBA

Double click sur ThisWorkBook

fenetre de droite: liste de choix Declaration---->Workbook

et vous avez la macro qui se lance a l'ouverture du classeur(WorkBook)

Private Sub Workbook_Open()

End Sub


A+

Médéric · Answer

je n'ai pas encore testé votre solution, mais Workbook_Open() ne fait pas la même chose que autopen ?

autre question:

Je cherche a faire une RECHERCHEV sur mon classeur (celui du calcul_temps_appel), qui me cherche dans la feuille FCIDFINAL le numéro "appelé" correspondant a l'ID dans la feuille TEST.
le résultat étant affiché a coté de la colonne TEMPS APPEL (feuille test)

j'ai essayé cela mais ça me retourne #N/A (Inconnu avec mon test):

=SIERREUR(RECHERCHEV($G$2;TEST;3;FAUX);"Inconnu")

Ps: 
$G$2:118392375E2111E2A15E88ACAC9C4D59 
TEST est la plage de données $A$2:$E$20 du la feuille FCIDFINAL

Merki :D

f894009 · Answer

je n'ai pas encore testé votre solution, mais Workbook_Open() ne fait pas la même chose que autopen ? Si

Pour la formule: sauf erreur de ma part, il faut inverser les colonnes: la colonne ou vous cherchez une valeur doit etre la premiere.

A+

Médéric · Answer

Bonjour,

j'ai mis ceci en F2.test: =RECHERCHEV($A$2;TEST;3;FAUX)

$A$2: cellule de la première colonne (de ma feuille1: TEST)
TEST: Plage de données de ma Feuille2: FCIDFINAL
3: index colonne de la feuille 2
Faux: valeur exacte

mais toujours la même erreur :/

Merci ! @+

f894009 · Answer

Bonjour,

Test: colonne A--->il y a deux espaces devant et pas sur fcidfinal colonne E et feuil1 colonne A

ci-joint votre fichier precedent avec explication pour ordre de colonnes

https://www.cjoint.com/?CBil7Pl8fOw

bon courage

Médéric · Answer

Bonjour,

merci pour le fichier :) 

comment avez-vous fait pour enlever les espaces sur toute la colonne A de TEST

fonction SUPPRESPACE, non ? car moi quand je l'applique sur mon fichier de base, en A2, j'ai le résultat: 0,00E+00. et un message d'erreur parlant de "référence circulaire".

Autre chose: Est-il possible de créer une macro qui boucle sur une RECHERCHEV (dans une nouvelle feuille), sur chaque ID de FEUIL1 (de votre fichier), pour m'afficher tous les appels de chaque ID ?

du style: 

ID: 118392375E2111E2A15E88ACAC9C4D59

N°Appelant     N° Appelé     Temps Appel:
    203                  231            00:00:07
     000                 00001        00:00:22
      ...                     ....               ....

avoir un historique des appels passés par ID d'appel.


 
Merci du temps accordé !

f894009 · Answer

Bonjour, 

comment avez-vous fait pour enlever les espaces sur toute la colonne A de TEST  "Facile" avec Donnees, outil de donnees, convertir et colonne non distribuee (tout ceci est faisable par macro) 

Autre chose: Il faudrait prevoir un onglet par Id et pas besoin d'enlever les espaces colonne Id puisque ce sera du VBA.

A+

Médéric · Answer

re, 

c'est vrai que dit comme ça c'est facile ......... ^^

Autre chose: Il faudrait prévoir un onglet par Id  

Le problème c'est que ce fichier sera exploité chaque jours, et que les ID sont générés aléatoirement; je ne les connais pas à l'avance. De plus, il pourrait y avoir des centaines d'onglets (lenteur du traitement par excel, non ?)


Merci !

f894009 · Answer

Re,

que les ID sont générés aléatoirement; je ne les connais pas à l'avance. Comment allez-vous faire pour coller un "nom" si c'est vraiment aleatoire (Id different pour un meme nom)

A+

Médéric · Answer

grâce au numéro d'appelant (source)

ce qu'il me faut c'est réunir certaines données des feuilles TEST et FCIDFINAL pour en extraire les infos intéressantes.

N° source + N° Destination + Temps d'appel

L'ID est mon seul moyen pour identifier les données correspondantes entre les 2 feuilles.

A moins qu'il y est une façon plus simple de faire cela....

f894009 · Answer

Re,

Serait-il possible d'avoir le du fichier source de vos infos????

A+

Médéric · Answer

Re,

c'est quelque peu indigeste a lire sans traitement ...

http://cjoint.com/?3BloaPMzQr3

merci !

f894009 · Answer

Re,
J'ai recupere le fichier, je regarde la chose.

A+

Médéric · Answer

Re,

ça marche !

bon courage pour la "lecture"....

++

Médéric · Answer

Bonjour,

ca donnerait quoi en code, pour faire une boucle sur une rechercheV a affiché dans test ?

tant que ID en $A$2.test trouvé dans Feuil1

affiché (a coté du temps) en F2.test  le N° source correspondant a l'id (contenu dans Feuil1 et test)

si plus ID

passé a l'ID suivant et refaire une boucle rechercheV.

j'espère avoir été clair !

Merci

f894009 · Answer

Bonjour,
1/
ce qui me parait surprenant, c'est que vous ayez determine des temps conex/deconex avec des enregistrements qui sont supposes etre ranges par ordre croissant (li y a un numero d'ordre: ex 64740: 066866), mais ou les temps ne sont pas en ordre croissant

2/
Il y a une anomalie: l'appelant fcidfinal devient destination en feuil test!!!!!!!


A+

Médéric · Answer

Bonjour,

1/ 
pour les temps de co et déco je ne me sers pas de toutes les lignes, mais seulement celles avec feat_VSA=TWC (appel décroché) et callLegtype

L'ID me permet d'identifier l'appel correspondant etde  faire la corrélation entre les données qui m'intéressent entre les 2 types de lignes.

pour l'anomalie fcidfinal je m'en suis rendu compte, c'est moi qui est mal nommée ma colonne en test.

++

f894009 · Answer

Re,

1/ c'est de ces lignes dont je parles.


Pourquoi les lignes sont en doubles dans le fichier que vous avez mis a dispo

Pourriez-vous en remettre un a dispo en le compressant??

Médéric · Answer

Re, 

1/ 
dans les lignes calllegtype il y a a la fin des connectTime et disconnectTime (je calcule la dessus) et fait la correspondance grâce a l'ID 

je récupère les logs comme cela (je fait un traitement "cat" pour supprimer les doublons, avec cygwin) 

le fichier sans doublons: 

http://cjoint.com/?3BmlO04gW2c 

++

f894009 · Answer

Re,
Admettons que votre tri soit exacte, repetez ce que vous voulez voir trier par Id

SVP 

Merci

A+

Médéric · Answer

ok j'essaye de faire simple et clair ^^

créer une boucle sur rechercheV en vb,

faire ça: =RECHERCHEV($A$2;test1;2;FAUX)

mais en me parcourant toute la colonne A, et en me mettant le résultat en face de chaque ID dans la colonne F.

Algo:

tant que ID en $A$2.test trouvé dans Feuil1

affiché (a coté du temps) en $F$2.test le N° source correspondant à l'id (contenu dans Feuil1 et test)

si plus ID($A$2).feuil1 dans test

passé a l'ID.Feuil1 suivant et refaire une boucle rechercheV.

pour au final avoir dans colonne(F.TEST) le numéro appelé par la source(colonneC.test)

ca fait un récap pour avoir, date | heure | source | destination | temps d'appel

j'espère avoir été clair ! 


Merci pour l'aide apportée ! :)

f894009 · Answer

Re,

Ok, je regarde cela pour demain matin, si cela ne vous derange pas.

A+

Médéric · Answer

Re,


manquerais plus que ça me dérange.... alors que vous proposer de m'aider ^^

ça marche, n'hésitez pas si vous avez des questions, ou besoin de précisions ... 


Bonne après-midi !

f894009 · Answer

Bonjour,
Je suis desole, mais pour moi ca ne colle pas.

ci-joint un fichier avec les donnees de test et fcifinal
https://www.cjoint.com/?CBnh2T6zbwX

Vous avez des appelants et appeles dans la meme colonne (test)!!!!!!!

A+

Médéric · Answer

Bonjour,

c'est pas faux pour la correspondance... je vais me pencher dessus

Mais est ce que ma boucle rechercheV est faisable ? Parce que je ne vois pas du tout comment faire .... 


Merci !

f894009 · Answer

Re,
Faire ce que vous demandez est tres simple, mais il faut que les donnees soient coherantes, sinon c'est portnawak.

A+

Médéric · Answer

Re,

en admettant que les données soient cohérentes, ça donnerait quoi en code ?

j'ai fait cela (avec mon zéro de connaissance en vb), en simplifiant mon problème (recherche dans une feuille) ...


Sub Cherche()

Dim val1, val2, resultc
Dim r, r2, ra, rd
Dim cell, cell2
rd = 1 

r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A
r2 = Cells(65536, 2).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne B

For Each cell In Range(Cells(1, 1), Cells(r, 1)) 'balayage de la colonne A
If cell.Value = val1 Then 'si on trouve la 1ère valeur on  récupére son n° de ligne
ra = cell.Row

For Each cell2 In Range(Cells(ra, 2), Cells(r, 2)) 'balayage de la colonne B
If cell2.Value = val2 Then 'si on retrouve la 2nde valeur
resultc = cell2.Offset(0, 1).Value 'on stock la valeur de la cellule de la colonne C sur la ligne
'où a été trouvé la seconde valeur
Cells(rd, 4).Value = resultc '
rd = rd + 1
End If
Next cell2
End If
Next cell

End Sub


Merci

++

f894009 · Answer

Re,

(recherche dans une feuille) laquelle??
 
D'ou sortez-vous val1 et val2 !!!!!!!

Médéric · Answer

Re

ce que j'ai fourni comme "code" c'est plutôt un pseudo code de mon problème et appliquer sur une feuille (en réalité mon rechercheV doit se faire sur mes 2 feuilles.)

J'ai essayer de traduire mon rechercheV en VB.....

Val1 et Val2 sont des exemples (Val1: ID et Val2: contenu de la cellule en face d'ID)

Ça se trouve c'est totalement faux... J'ai découvert le VB la semaine dernière.

et je ne sais pas du tout comment m'y prendre

f894009 · Answer

Bonjour,

Si donnees coherantes: avec une adaptation possible suivant ces donnees

un exemple de code de recherche:

' Ecriture numero appele dans test colonne F
'
  '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
  'r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A excel 2003
  'r2 = Cells(65536, 2).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne B excel 2003
  '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Sub Cherche()
     Dim derlig, derlig1, NbId, plage As Range, plage1 As Range, cel As Range, cel1 As Range
     Dim val, val1, Idx
  
  
     With Worksheets("fcidfinal")
         'derniere ligne fcifinal colonne A
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
         'derniere ligne test colonne A
        derlig1 = Worksheets("test").Range("A" & Rows.Count).End(xlUp).Row
        'Definition en memoire plage de recherche fcidfinal
        Set plage = .Range("E2:E" & derlig)
        'Definition en memoire plage de recherche test
        Set plage1 = Worksheets("test").Range("A2:A" & derlig)
    
        For Each cel In plage 'balayage fcidfinal de la colonne A
            val = cel
            'test si existe dans plage feuil test
            NbId = Application.CountIf(plage1, val)
            'Existe??
            If NbId > 0 Then
                 ligtest = 1
                With Worksheets("test")
                    For Idx = 1 To NbId
                        'Recherche valeur exacte
                        ligtest = .Columns("A").Find(val, .Cells(ligtest, "A"), , xlWhole).Row
                        'Ecriture temps connex fcidfinal colonne D vers test colonne F
                        .Cells(ligtest, 6) = Worksheets("fcidfinal").Cells(cel.Row, 4)
                    Next Idx
                End With
             End If     'NbId
        Next cel
    End With        'fcidfinal
End Sub


Si cela est posible, il faudrait vous entretenir avec la personne qui gere l'ustensil qui genere votre fichier de donnees, car il y a des "anormalites" surprenantes et peut-etre que ce fichier est parametrable. Ca vous aiderait beaucoup.

A+



A+

Médéric · Answer

Bonjour,

je regarde cela et test pour vous faire un retour.

Merci beaucoup !

++

Macro Batch + Autoexec - Page 2

Discussions similaires

Newsletters