Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Traite_ Erreur

Traite_ Erreur

4 réponses
Avatar
gerard
bonsoir

j'ai fais une petite appli sous acces et j'appelle un dossier excel pour y
importer ses données.il doit etre dans le CurrentProject et ca fonctionne
sans prob. sauf quand il n'y est pas.
je veux prevoir cette possibilite, aussi avec

On Error GoTo Traite-Erreur je veux intercepter cette erreur et bien
pas du tout
voila une partie de mon code
Set ObjExcel = CreateObject("Excel.Application")
Chem = CurrentProject.path & "\" & "Dossier Toto.xls"
ObjExcel.Workbooks.Open (Chem) et la si le fichier n'est pas present ca
planteet pourtant plus bas j'ai un traitement d'erreur mais il n'y va pas

es ce qu'on appelle une erreur d'automation comment peut on la controler

merci
ge
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

j'ai fais une petite appli sous acces et j'appelle un dossier excel pour y
importer ses données.il doit etre dans le CurrentProject et ca fonctionne
sans prob. sauf quand il n'y est pas.
je veux prevoir cette possibilite, aussi avec

On Error GoTo Traite-Erreur je veux intercepter cette erreur et bien
pas du tout
voila une partie de mon code
Set ObjExcel = CreateObject("Excel.Application")
Chem = CurrentProject.path & "" & "Dossier Toto.xls"
ObjExcel.Workbooks.Open (Chem) et la si le fichier n'est pas present ca
planteet pourtant plus bas j'ai un traitement d'erreur mais il n'y va pas



Au lieu de traiter l'erreur, il est plus propre de vérifier l'existance du fichier...

If Dir(Chem) = "" Then
'existe pas
else
'ok...
end if


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Raymond [mvp]
Bonjour.

Il serait bon de tester la présence de ton classeur avant de lancer
l'automation et de la démonter si le fichier n'est pas présent. Regarde la
fonction Dir.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gerard" a écrit dans le message de
news:brasd9$14e$
bonsoir

j'ai fais une petite appli sous acces et j'appelle un dossier excel pour y
importer ses données.il doit etre dans le CurrentProject et ca fonctionne
sans prob. sauf quand il n'y est pas.
je veux prevoir cette possibilite, aussi avec

On Error GoTo Traite-Erreur je veux intercepter cette erreur et
bien

pas du tout
voila une partie de mon code
Set ObjExcel = CreateObject("Excel.Application")
Chem = CurrentProject.path & "" & "Dossier Toto.xls"
ObjExcel.Workbooks.Open (Chem) et la si le fichier n'est pas present ca
planteet pourtant plus bas j'ai un traitement d'erreur mais il n'y va pas

es ce qu'on appelle une erreur d'automation comment peut on la controler

merci
ge




Avatar
gerard
merci c'est bon

"3stone" a écrit dans le message de
news:3fd8fa0c$0$294$
Salut,

j'ai fais une petite appli sous acces et j'appelle un dossier excel pour
y


importer ses données.il doit etre dans le CurrentProject et ca
fonctionne


sans prob. sauf quand il n'y est pas.
je veux prevoir cette possibilite, aussi avec

On Error GoTo Traite-Erreur je veux intercepter cette erreur et
bien


pas du tout
voila une partie de mon code
Set ObjExcel = CreateObject("Excel.Application")
Chem = CurrentProject.path & "" & "Dossier Toto.xls"
ObjExcel.Workbooks.Open (Chem) et la si le fichier n'est pas present ca
planteet pourtant plus bas j'ai un traitement d'erreur mais il n'y va
pas




Au lieu de traiter l'erreur, il est plus propre de vérifier l'existance du
fichier...


If Dir(Chem) = "" Then
'existe pas
else
'ok...
end if


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
gerard
merci Raymond
"Raymond [mvp]" a écrit dans le message de
news:%
Bonjour.

Il serait bon de tester la présence de ton classeur avant de lancer
l'automation et de la démonter si le fichier n'est pas présent. Regarde la
fonction Dir.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"gerard" a écrit dans le message de
news:brasd9$14e$
bonsoir

j'ai fais une petite appli sous acces et j'appelle un dossier excel pour
y


importer ses données.il doit etre dans le CurrentProject et ca
fonctionne


sans prob. sauf quand il n'y est pas.
je veux prevoir cette possibilite, aussi avec

On Error GoTo Traite-Erreur je veux intercepter cette erreur et
bien

pas du tout
voila une partie de mon code
Set ObjExcel = CreateObject("Excel.Application")
Chem = CurrentProject.path & "" & "Dossier Toto.xls"
ObjExcel.Workbooks.Open (Chem) et la si le fichier n'est pas present ca
planteet pourtant plus bas j'ai un traitement d'erreur mais il n'y va
pas



es ce qu'on appelle une erreur d'automation comment peut on la controler

merci
ge