[XL-2003] Sauvegarder un fichier excel [Résolu]

[hunteshiva]

Bonjour,

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

Code :

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 :

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 :

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 :

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 :

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 :

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é.

[hunteshiva]

Encore merci Theze

j'ai travaillé sur la GoTo

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
On Error GoTo Err_Save1:
    ActiveWorkbook.SaveAs Filename:= "C:\test1.xls"
Err_Save1:
 
'routine...
 
On Error GoTo Err_Save2:
    ActiveWorkbook.SaveAs Filename:= "C:\test2.xls"
Err_Save2:
 
'routine...
 
On Error GoTo Err_Save3:
    ActiveWorkbook.SaveAs Filename:= "C:\test3.xls"
Err_Save3:
 
'Fin

Bien que je rencontre des difficultés après, toutes les réponse au post sont la, donc