Discussion :

[evx136]

Bonjour

Besoin d'aide..... vous trouverez le code ci dessous qui simule les touches ALT m, ALT s, ALT r et ce successivement afin de déclacher une mise à jour de données.

j'ai fait un compteur pour passer toutes les feuilles du classeur une par une et sur chaque feuille déclancher la mise à jour.
Mon problème est que la mise à jour ne se fait que sur la dernière feuille du classeur
D'avance merci

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
Sub faire_clic()
 
'Dim ws As Worksheet
Dim w As Integer
ligne_copie = 0
cpt = Worksheets.Count - 1
For w = 1 To cpt
    maFeuille = w
    If w <> 1 Then
        Sheets(maFeuille).Activate
        If Trim(Range("a1").Value) = "" Then 'Si vide mettre  à jour
           Range("e3").Activate
            Call tempo
            Sheets(maFeuille).Activate
            faire_toucheClavier
        End If
    End If
Next
End Sub
Sub tempo()
  Application.StatusBar = "Merci de patienter"
  Application.Wait Now + TimeValue("00:00:01")
  Application.StatusBar = False
End Sub
Sub faire_toucheClavier()
SendKeys "%m", True
 
Call tempo
SendKeys "%s", True
 
Call tempo
SendKeys "%r", True
 
End Sub

[evx136]

je vais essayer de faire plus clair en ce qui concerne mes codes

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
 
Dim w As Integer
ligne_copie = 0
cpt = Worksheets.Count - 1
For w = 1 To cpt
maFeuille = w
If w <> 1 Then
Sheets(maFeuille).Activate
If Trim(Range("a1").Value) = "" Then 'Si vide mettre à jour
Range("e3").Activate
Call tempo ' appell de la Macro tempo
Sheets(maFeuille).Activate
faire_toucheClavier ' appel de la macro simul touche clavier
End If
End If
Next
End Sub

code pour le tempo

Code :

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

1
2
3
4
5
6
 
Sub tempo()
Application.StatusBar = "Merci de patienter"
Application.Wait Now + TimeValue("00:00:01")
Application.StatusBar = False
End Sub

Code pour la simul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub faire_toucheClavier()
SendKeys "%m", True
 
Call tempo
SendKeys "%s", True
 
Call tempo
SendKeys "%r", True
 
End Sub

Merci de votre aide

[nchal]

Salut,

J'ai cru t'avoir répondu mais non. :\
Je te proposais de passer par un For Each

Code :

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

1
2
3
4
5
6
Dim wsh as Worksheet
For each wsh in Thisworkbook.worksheets
    wsh.activate
    call tempo
    call faire_touche
next

Je te laisse le soin d'adapter tout ça comme il faut.

[SfJ5Rpw8]

bonsoir ,

c'est quoi cette manière de mettre à jour tes feuilles ... à quoi servent tes actions sur ces touches ? moins l'on se sert de sendkeys ... mieux c'est

[evx136]

Tout d'abord merci pour l'interet que vous portez à mon soucis.
Pour répondre à nchal ..... La boucle For Each ne fonctionne pas non plus.

Je continue à chercher de mon coté.

Pour répondre à BBIL.

C'est une base de données Nationale, qui est redéployée au niveau régional.
Nous devons la rafraichir tous les mois.
Pour rafraichir on se connecte à un serveur et on rafraichit via un menu.
(ADIN EXCEL) si tu connais.
voilà donc la raison de ces combinaisons de touche.
ALT m pour aller au menu complément
ALT s pour aller au sous menu
ALT r pour rafraichir la page.

Si il y avait qu'une page pas de macro
Mais j'ai 3 fichiers avec environ 40 pages.

autre précison sous Windows Xp et excel 97 tout fonctionnait

[evx136]

Je me permets de revenir vers le forum.

Perso je n'ai pas trouvé de solution.

Autre précision, ma combinaison de touche se fait mais juste sur la dernière feuille de ma boucle. par exemple de la feuille 1 à 20, les feuilles sont activées, une par une et à la dernière, mon action de simulation de touches se répète 20 fois.

Vraiment besoin d'aide