Si erreur ...

[titiborregan5]

Bonjour à tous,
j'ai une macro qui fonctionne, et qui a été faite à 80% (voire +) par le forum...
Seulement un problème se pose!
Dans ma macro j'enregistre le document dans un dossier situé sur le réseau, afin que plusieurs personnes y aient accès.

Mais en ce moment, le réseau / serveur, rencontre des problèmes: inaccessible, déconnecté, plein,...
et donc la sauvegarde y est impossible!
Je cherche donc à mettre en place une formule du genre:
"If erreur enregistrement Then
activeworkbook.sendmail ...
else enregistrement
End If"

Après j'ai un autre souci avec le sendmail pour ce qui est de l'apparition du message d'alerte / confirmation... Je ne peux pas installer clickyes sur tous les ordinateurs en lien avec cette macro... Et le display ne marche pas...

Je suis avec Outlook et Excel 2000


D'avance, Merci à tous

Tibo

 

[Bernard_XLD]

Re : Si erreur ...

Bonjour

utilises une gestion des erreurs, le code de celle ci est 1004

Cordialement

Sub exemple()
On Error GoTo GereErreurs 'active la gestion des erreurs
Error (1000) 'provoque une erreur
MsgBox "L'erreur a été gérée et le process reprend à la suite", vbOKOnly + vbExclamation
Exit Sub 'sortie de sub
GereErreurs: 'gestion des erreurs
MsgBox "Code erreur : " & Err & Chr(10) & "Libellé : " & Error(Err), vbOKOnly
Resume Next 'reprend l'exécution à la ligne suivante (resume seul pour reprendre à la même ligne)
End Sub

Ps: en info, le premier error est utilisé en instruction et le deuxième en méthode, même nom mais le contexte définit une action différente
l'instruction error simule une erreur
la méthode error renvoie le libellé détaillé

 

[Bernard_XLD]

Re : Si erreur ...

pour outlook, pas de solution autre à ma connaissance que simuler un click, il faut utiliser un autre serveur de messagerie.

 

[titiborregan5]

Re : Si erreur ...

Bonjour Yeahou,
c'est quoi une gestion des erreurs?

On ne peut pas juste lui dire que si cette action donne une erreur faire ceci sinon faire cela?
Un peu comme marche le =si(...) dans Excel?

Pour Outlook je n'ai rien trouvé non plus, donc le message d'alerte s'affichera tant pis!

Merci

 

[Bernard_XLD]

Re : Si erreur ...

on peut le faire avec une gestion des erreurs à l'enregistrement sinon toute erreur arrête l'exécution
si tu ne veux gérer que celle ci, places on error goto gereerreurs juste avant l'enregistrement et aprés l'enregistrement ajoutes la ligne
on error goto 0 qui redonnera la main au système pour la gestion des erreurs

sinon il faut tester l'existence de ton chemin avant d'enregistrer

 

[titiborregan5]

Re : Si erreur ...

Bonjour,
ça fait qq jours maintenant que je galère sur ta réponse!
Voici mon code actuel, en sachant que le chemin indiqué est volontairement faux pour créer l'erreur!

chemin = "K:\XXX\test\YYY\"
objet = Cells(1, 2).Value
nom = "test erreur.xls"
If Dir(chemin) = "" Then
ActiveWorkbook.SendMail "aaa@bbb.fr", objet, False
Else: SaveAs (chemin & nom)
End If

Le code en lui même marche très bien (hormis tjs le clique du pop up pour l'envoi du mail), mais si l'adresse est bonne mais le disque réseau plein, je ne suis pas sur qu'il détecte l'erreur et envoie le mail.
Donc où et comment placer le "On error go to"?

Merci d'avance

Edit:
En fait ça marche si je fais comme ça (je pense que c'est la bonne solution?):

chemin = "K:\XXX\test\YYY\"
objet = Cells(1, 2).Value
nom = "test erreur.xls"
On Error GoTo gereerreurs 'active la gestion des erreurs
'If Dir(chemin) = "" Then
SaveAs (chemin & nom)
gereerreurs:
ActiveWorkbook.SendMail "aaa@bbb.fr", objet, False
On Error GoTo 0
'End If
End Sub