Gestion sauvegarde fichier en réseau

Bonjour,

j'ai une macro qui me permet de sauvegarder mon fichier excel dans un dossier réseau avec un nom de fichier défini.

On Error GoTo suite

'Enregistre le devis sur serveur
    ActiveWorkbook.SaveAs Filename:="\\Oc-rh\Users\Marché à Bon de Commande\1- ESTIMATIONS\Secteurs\" & Range("I3") & "\" & Format(Date, "yyyymm") & "-" & Range("I5").Value
    

Le problème est qu'il arrive que je ne soit pas connecté à ce réseau. Du coup avec "On error Goto suite ", la macro exécute la suite :

suite:
'choix d'un autre chemin d'enregistrement
With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le répertoire"
        .Show

    repertoire = .SelectedItems(1)
End With

ActiveWorkbook.SaveAs Filename:=repertoire & "\" & Format(Date, "yyyymm") & "-" & Range("I5").Value

La sélection d'un autre dossier est demandé. Tout fonctionne, mais le problème c'est qu'avant de me demander de sélectionner un autre dossier il se passe du temps (+ d'une minute) et c'est trop long.

Est ce que quelqu'un aurait un solution pour réduire au maximum ce délai ?

Merci à vous.

Bonjour,

Voici un exemple pour vérifier l'existance du répertoire

Sub test_FolderExists()
' ajouter la réference Miscrosoft Scripting runtime
Dim fso As FileSystemObject
Dim Chemin As String
Chemin = "\\Oc-rh\Users\Marché à Bon de Commande\1- ESTIMATIONS\Secteurs"
Set fso = New FileSystemObject
    If Not fso.FolderExists(Chemin) Then
        MsgBox "N'existe pas"
    Else
        MsgBox "existe"
    End If
End Sub

sabV a écrit :

Bonjour,

Voici un exemple pour vérifier l'existance du répertoire

Sub test_FolderExists()
' ajouter la réference Miscrosoft Scripting runtime
Dim fso As FileSystemObject
Dim Chemin As String
Chemin = "\\Oc-rh\Users\Marché à Bon de Commande\1- ESTIMATIONS\Secteurs"
Set fso = New FileSystemObject
    If Not fso.FolderExists(Chemin) Then
        MsgBox "N'existe pas"
    Else
        MsgBox "existe"
    End If
End Sub

Merci pour ton aide. Le code marche très bien !