Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 07/10/2011, 16h46   #1
Invité de passage
 
Homme Nicolas
Administrateur systèmes et réseaux
Inscription : mai 2010
Messages : 2
Détails du profil
Informations personnelles :
Nom : Homme Nicolas
Localisation : France

Informations professionnelles :
Activité : Administrateur systèmes et réseaux
Secteur : Industrie

Informations forums :
Inscription : mai 2010
Messages : 2
Points : 1
Points : 1
Par défaut Message d'alerte résultant d'une requète.

Bonjour à tous!

Petite question, j'ai une macro pour faire en état des ventes sur plusieurs articles.
Pour chacun de ces articles, je fais un select sum(...)...
Tout marche très bien, sauf que lorsqu'il n'y a pas de résultat, il m'affiche à chaque fois un message -39 There are no data to receive.
Le but est de ne plus avoir ce message, en effet avec + de 16000 articles, c'est lourd!

J'ai essayé :
Code :
Application.DisplayAlerts = False
puis
Code :
Application.EnableEvents = False
Mais impossible de le faire taire! Qualqu'un connais une astuces??


Merci d'avance!

Nico
nvoisn est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/10/2011, 17h23   #2
Membre Expert
 
Avatar de Jean-Pierre49
 
Homme J-Pierre Catherine
Conception Calcul
Inscription : juillet 2007
Messages : 659
Détails du profil
Informations personnelles :
Nom : Homme J-Pierre Catherine
Âge : 57
Localisation : France, Maine et Loire (Pays de la Loire)

Informations professionnelles :
Activité : Conception Calcul
Secteur : Industrie

Informations forums :
Inscription : juillet 2007
Messages : 659
Points : 1 856
Points : 1 856
bonjour

Code :
1
2
3
4
5
If taRequete.RecordCount > 0 then
ta cellule CopyFromRecordset taRequete
 
 
End if
bon courage
__________________
Jean-Pierre Pensez à Voter pour les réponses qui vous ont aidés, d'avance merci
---------Et n'oubliez pas de mettre : ..quand c'est le cas !---------
Jean-Pierre49 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h32.


 
 
 
 
Partenaires

Hébergement Web