Discussion :

[scons]

Bonjour
Voila j'ai un programme qui importe des fichiers excel dans une base de donées access.
En fait j'aimerai que durant le traitement si l'utilisateur appuye sur la touche echap le traitement s'arrete.
Je sais comment faire mais je n'est sans doute pas la bonne syntaxe en vba.
voici un bout de code, faite le moi savoir si vous en voulez un peu plus.

Code :

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

1
2
3
4
5
 
Select Case reponse 'suivant la reponse
 Case vbYes 'si oui
 MsgBox ("appuyer sur echap pour arreter la tache")
    While KeyPress <> 27

Voila merci

[Domi2]

Bonjour,

Pas testé.

Dans la section déclaration du module

Code :

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

Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Dans la procédure

Code :

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

If (GetAsyncKeyState(27) <> 0) Then 'Appui sur la touche Escape

Domi2

[scons]

Desolé mais je ne comprend pas ou tu dois placer la declaration de la function

[Domi2]

Re,

Dans l'entête du module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
 
Private Sub TaSub()
 
'Début de ta boucle
 
If (GetAsyncKeyState(27) <> 0) Then Exit Sub 'Appui sur la touche Escape
 
'Traitement dans la boucle

Domi2

[scons]

Merci pour ton aide, c'est bon j'ai pu placer le code au bon endroit et il semble bien s'executer.
Cependant je n'arrive pas a faire ce que je veu; je m'explique.
en fait mon programme ouvre un par tous le fichiers excel d'un repertoire afin d'en importer le contenu dans ma bas a acces.
L'import se faire par l'intermediaire d'une macro contenu dans un des fichiers excel du repertoires.


Pour arreter le traitement en cours faut t'il placer ton code dans la macro ou dans mon prog access?
Et puis inclure "GetAsyncKeyState(27)" dans un boucle et de ce fait sortir du prog en cas de pression de echap?

voila je sais pas si j'ai ete tras claire, n'hesite pas a me demander des precision si jam.
merci

[Domi2]

Bonjour,

Je "voyais" plutôt une procédure exécutant l'import des fichiers totalement dans Access.

Si depuis Access, tu ne fais qu'appeler une macro Excel, c'est à mon celle-ci que tu dois interrompre.

Il me semble me souvenir qu'il y'a des instructions spécifiques pour interrompre une macro Excel. Mais c'est plutôt sur le forum dédié qu'il faudrait poser la question.

Domi2

[scons]

ok je te remercie pour ta patience et pour ton aide.
je vais aller faire un tour sur les forums excel voir si je trouve mon bonheur.

[scons]

voici le lien vers le nouveaux post vba excel.

http://www.developpez.net/forums/sho...d.php?t=587648