MsgBox "Tête en l'air, Tu as oublié de fermer Excel !...", vbOKOnly
Case Else
'retourne le message d'erreur d'ACCESS pour les autres erreurs
Resume Exit_FncExport
End Select
End Function
Bonne chance
Jean-Yves
"PatCatNat's" a écrit dans le message de news:cbgfi2$grh$
Bonjour,
J'exporte des données vers excel à partir access 97 et ouvre l'appli xls correctement.
Si j'oublie de refermer excel, et demande une nouvelle requête, access me renvoi une boîte dialogue :
Erreur d'exécution '70' : Permission refusée
J'aimerais afficher une boîte de dialogue un peu plus claire pour les utilisateurs comme par exemple :
"Tête en l'air, Tu as oublié de fermer Excel !..."
Quelqu'un pourrait-il me fournir le code VBA ?????
Merci
Patrice
Raymond [mvp]
Bonjour.
ce que tu pourrais faire, au lieu "d'insulter ta pauvre opératrice qui ne sais pas ce qui se passe, la pauvre petite" (!!!) c'est tester la présence d'excel. Dim xlApp As Excel.Application 'cocher la librairie On Error GoTo PasExcel Set xlApp = GetObject(, "Excel.Application") ' ici excel est déjà chargé ' faire la suite .............. PasExcel: ' ici il faut charger excel ' faire la suite -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:cbgfi2$grh$
Bonjour,
J'exporte des données vers excel à partir access 97 et ouvre l'appli xls correctement.
Si j'oublie de refermer excel, et demande une nouvelle requête, access me renvoi une boîte dialogue :
Erreur d'exécution '70' : Permission refusée
J'aimerais afficher une boîte de dialogue un peu plus claire pour les utilisateurs comme par exemple :
"Tête en l'air, Tu as oublié de fermer Excel !..."
Quelqu'un pourrait-il me fournir le code VBA ?????
Merci
Patrice
Bonjour.
ce que tu pourrais faire, au lieu "d'insulter ta pauvre opératrice qui ne
sais pas ce qui se passe, la pauvre petite" (!!!) c'est tester la présence
d'excel.
Dim xlApp As Excel.Application 'cocher la librairie
On Error GoTo PasExcel
Set xlApp = GetObject(, "Excel.Application")
' ici excel est déjà chargé
' faire la suite
..............
PasExcel:
' ici il faut charger excel
' faire la suite
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <patousky@tiscali.fr> a écrit dans le message de
news:cbgfi2$grh$1@news.tiscali.fr...
Bonjour,
J'exporte des données vers excel à partir access 97 et ouvre l'appli xls
correctement.
Si j'oublie de refermer excel, et demande une nouvelle requête, access me
renvoi une boîte dialogue :
Erreur d'exécution '70' :
Permission refusée
J'aimerais afficher une boîte de dialogue un peu plus claire pour les
utilisateurs comme par exemple :
"Tête en l'air, Tu as oublié de fermer Excel !..."
Quelqu'un pourrait-il me fournir le code VBA ?????
ce que tu pourrais faire, au lieu "d'insulter ta pauvre opératrice qui ne sais pas ce qui se passe, la pauvre petite" (!!!) c'est tester la présence d'excel. Dim xlApp As Excel.Application 'cocher la librairie On Error GoTo PasExcel Set xlApp = GetObject(, "Excel.Application") ' ici excel est déjà chargé ' faire la suite .............. PasExcel: ' ici il faut charger excel ' faire la suite -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news:cbgfi2$grh$
Bonjour,
J'exporte des données vers excel à partir access 97 et ouvre l'appli xls correctement.
Si j'oublie de refermer excel, et demande une nouvelle requête, access me renvoi une boîte dialogue :
Erreur d'exécution '70' : Permission refusée
J'aimerais afficher une boîte de dialogue un peu plus claire pour les utilisateurs comme par exemple :
"Tête en l'air, Tu as oublié de fermer Excel !..."
Quelqu'un pourrait-il me fournir le code VBA ?????
