Discussion :

[hunteshiva]

Bonjour,

je cherche à sauvergarder mon fichier excel en local et sur le réseaux via une macro, le code suivant fonctionne

Code :

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

1
2
3
4
    ActiveWorkbook.SaveAs Filename:= _
        "C:\test.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Seulement si le fichier existe déja, il propose de le remplacer *normale*



Sauf que si l'utilisateur choisi "Non" ou "Annuler", ça plante ...



il me dit clairement que c'est le code qui ne lui convient pas ...



Existe-t-il des éxéptions à gérer? * mon amis ne me dit rien de ce coté..*
j'aimerais paramétrer l'enegistrement, histoire que l'utilisateur ne soit plus embété.

[Theze]

Bonjour,

Et en gérant l'erreur ?

Code :

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

1
2
3
4
 
On Error Resume Next
ActiveWorkbook.SaveAs "C:\test.xls"
If Err.Number <> 0 Then MsgBox "Opération annulée !"

Hervé.

[hunteshiva]

Ah, ça va tout de suite mieux *testé sur une macro de test*
je te confirme le bon fonctionnement sur mon appli dans la journée.

PS: j'aimerais quand même essayer de gérer tous les paramétres d'enregistrement

[Theze]

Re,

"SaveAs" est une méthode et non une fonction donc elle ne retourne rien, c'est alors pas possible de gérer le choix de l'utilisateur autrement (à mon sens) qu'en gérant l'erreur causée par le clic sur le bouton "Annuler" ou "Non".

Hervé.

[hunteshiva]

*merci pour tes recherches Theze*

Le soucis c'est que ça saute tout le code après

dans ma macro je sauvegarde plusieurs fois

Code :

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

1
2
3
4
5
6
7
'...
ActiveWorkbook.SaveAs Filename:= "C:\test1.xls"
'routine...
ActiveWorkbook.SaveAs Filename:= "C:\test2.xls"
'routine...
ActiveWorkbook.SaveAs Filename:= "C:\test3.xls"
'Fin

le soucis c'est que si je met ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'...
On Error Resume Next
 
ActiveWorkbook.SaveAs Filename:= "C:\test1.xls"
 
If Err.Number <> 0 Then MsgBox "Opération annulée !"
'routine...
ActiveWorkbook.SaveAs Filename:= "C:\test2.xls"
'routine...
ActiveWorkbook.SaveAs Filename:= "C:\test3.xls"
'Fin

il me shunt tout le reste de la macro
"test2.xls" et "test3.xls" ne sont pas sauvegardé...

j'ai vue qu'on pouvait utiliser un

Code :

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

On Error GoTo

le soucis c'est que je ne trouve pas de source clair pour ça

[Theze]

Bonjour,

Rajoute On Error Goto 0 pour annuler le gestionnaire d'erreur :

Code :

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

1
2
3
4
5
 
On Error Resume Next
ActiveWorkbook.SaveAs "C:\test.xls"
If Err.Number <> 0 Then MsgBox "Opération annulée !"
On Error GoTo 0

Hervé.