Discussion :

[MeZxx]

Bonjour,

j'ai récupéré une macro Excel (Voir pièce jointe) que je voudrai améliorer/optimiser...n'étant pas trop calé en VBA j'ai besoin d'aide...


La macro fonctionne de la façon suivante :

- Un timer aléatoire de 20 à 40 mins est lancé en boucle.
- Quand le timer est fini, les cellules de la colonne A:A (A1:A9) sont copiées dans un fichier texte
- En parallèle, une heure précise est définie (13H00). Quand cette heure arrive, une série de cellules (L10:O14 vers L15:O19) sont dupliquées sur la même feuille (en plus de l'export vers .txt).

Ce que je souhaite ajouter :

- A la fin du timer de 20/40 mins un auto calcul se lance (type F9) avant l'export des données (A1:A9) vers le txt.
- A l'issue du timer une fois le calcul auto et l'export effectué la macro devra analyser une cellule en A:A (exemple A1) et en fonction de sa valeur (qui sera générée par ALEA) elle lancera une application en .exe

Par exemple :

Si A1=1 > Lancement de l'application test_1.exe
Si A1=2 > Lancement de l'application test_2.exe
....

Merci d'avance pour votre aide... en espérant avoir été clair

[MeZxx]

50 vues et aucune réponse.... peu-être pas très clair mon affaire...

[mfoxy]

Bonjour,

En effet pas super limpide... Du moins pour ma part.

Vous pourriez aussi poster des captures d'écran et votre code plutôt qu'un fichier, que seule les membres les plus téméraires ouvriront (comme indiqué dans les règles du forum).
Vous trouverez certainement ainsi plus vite de l'aide.

Bav,

[MeZxx]

Si dessous le fameux code...


Auquel j'aimerai ajouté un calcul automatique (comme un F9) avant toutes autres actions.

Puis à la fin de cette macro, le lancement d'un application (.exe) en fonction du resultat d'un cellule (voir mes explications sur le post initial...)

Merci d'avance pour vos lumières !

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
Sub attends()
 
 
Dim f As Integer
Dim Cellule As Range
Dim Plage_C As Range, Plage_D As Range
 
Heure_Actuelle = Timer
Randomize
Nb_Seconde = Int((2400 - 1200 + 1) * Rnd + 1200)
 
 
Do
    If Not Time = "13:00:00" Then
        If Int(Timer - Heure_Actuelle) Mod Nb_Seconde = 0 Then
            f = FreeFile
            Open "C:\30minutes.txt" For Output As #f
            For Each Cellule In Range("A1:A9")
                Print #f, Cellule.Text
            Next
            Close f
        End If
    Else
        If Int(Timer - Heure_Actuelle) Mod Nb_Seconde = 0 Then
            f = FreeFile
            Open "C:\30minutes.txt" For Output As #f
            For Each Cellule In Range("A1:A9")
                Print #f, Cellule.Text
            Next
            Close f
        End If
        Set Plage_C = Range("L10:O14")
        Set Plage_D = Range("L15:O19")
        Plage_D.Value = Plage_C.Value
        Set Plage_C = Nothing
        Set Plage_D = Nothing
    End If
    DoEvents
Loop
 
End Sub