Discussion :

[gek_70]

Bonjour à tous,

Voilà mon problème je dois créer une macro de synchronisation d'un fichier excel local vers un serveur.

Le principe imposer: l'utilisateur génere la synchro à chaque sauvegarde d'ou le berforesave

Contrainte : le serveur est soumis a des droits d'accès en fonction du nom de l'utilisateur, qui peux etre n'importe qui (intérimaire,...)

Donc je dois rajouter une gestion d'erreurs a mon code en rapport aux droits d'accès.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Dim Today As String
 
Today = Str(Now)
 
Today = Replace(Today, "/", "-")
Today = Replace(Today, ":", "-")
Today = Replace(Today, " ", "_")
 
On erreur GoTo ErreurDroit
 
ThisWorkbook.SaveCopyAs "\\serveur\dossier ou j'ai pas les droits d'accés" & Today & " " & ActiveWorkbook.Name
 
ErreurDroit:
If Err.Number = 1004 Then MsgBox "Contacter l'administrateur systeme"
Exit Sub
 
End Sub

Le problème c'est que excel ne passe pas du tout par mon petit gestionnaire d'erreur il me dit "Erreur Execution '1004'....."
alors que je voudrai faire apparaitre un msgbox " Contacter l'admin" et exit sub

Je ne comprend pas ou mon code est faux

Merci d'avance aux personnes qui pourront m'aider

[Jean-Philippe André]

Salut,

on écrit

Code :

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

On Error

et non pas

Code :

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

On Erreur

[gek_70]

oupss !!!!
oui merci
effectivement ça marche mieux , mais quand même j'ai honte