VBA - SaveAs - erreur d'exécution si le réseau n'est pas accessible

Question

Je tente d'enregistrer un fichier Excel dans un lecteur réseau avec le code ci-dessous. Le problème est que si le réseau n'est pas accessible, il génère une erreur d'exécution.

Pouvez-vous s'il vous plaît aider comment modifier le code - pour enregistrer le fichier sur le lecteur de réseau donné si le réseau accessable - sinon, sauf dans la machine locale (créer une copie dans le dossier de doucuments)

Merci

Dim datum_ As String 
Dim path_ As String 
datum_ = Format(Now, "yyyy-mm-dd hh-mm") 
path_ = "\\networkfolder" 

'Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" 
'Application.DisplayAlerts = True 

Answer 1

'.... code 
Application.DisplayAlerts = False 
On Error Resume Next 
ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" 
If Err.Number <> 0 Then ActiveWorkbook.SaveAs Filename:=myLocalPath_ & datum_ & ".xlsm" 
Application.DisplayAlerts = True 
On Error Goto 0 
' .... code 

Answer 2

Vous pouvez utiliser la gestion des erreurs, donc s'il y a une erreur, changez le chemin vers quelque chose de local.

Dim datum_ As String 
Dim path_ As String 
datum_ = Format(Now, "yyyy-mm-dd hh-mm") 
path_ = "\\networkfolder" 

On Error GoTo localPath 
'Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm" 
'Application.DisplayAlerts = True 

'rest of code here 
Exit Sub 

localPath: 
path_ = "insert local path here" 
ActiveWorkbook.SaveAs Filename:=path_ & datum_ & ".xlsm"