Sub activesimple()
Dim I As Integer, MemD7 As String
'On Error GoTo gestionerreur
If MsgBox("ASSUREZ-VOUS QUE VOTRE SESSION", vbYesNo, "Demande de confirmation") = vbYes Then
AppActivate "ESSAI"
MemD7 = ""
'POSITIONNEZ-VOUS SUR LE MENU SIMPLIFIE IGOR SOUHAITE
For I = 3 To 44
' Si I = 7 alor on mémorise la valeur de la cellule
If I = 7 Then MemD7 = Cells(I, 4).Value
' Si I = 16 ou 17
If I = 16 Or I = 17 Then
' Si la veleur mémorisée est 3
If MemD7 = "3" Then
' On inscrit le nom et le prénom du mari
SendKeys Cells(I, 4).Value, True
attendre 0.6
SendKeys "~"
attendre 1
End If
Else
' Si I à une autre valeur que 16 ou 17
SendKeys Cells(I, 4).Value, True
attendre 0.6
SendKeys "~"
attendre 1
End If
Next
SendKeys "+{F3}"
attendre 1
For I = 45 To 52
SendKeys Cells(I, 4).Value, True
attendre 0.6
SendKeys "~"
attendre 1
Next
SendKeys "+{F6}"
attendre 1
For I = 53 To 53
SendKeys Cells(I, 4).Value, True
attendre 0.6
SendKeys "~"
attendre 1
Next
Exit Sub
gestionerreur:
MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon"
End If
End Sub
Sub attendre(sec%)
Dim deb&, fin&
deb = Timer
fin = deb + sec%
Do Until Timer >= fin
DoEvents
Loop
End Sub