XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect

Sub genere_nouveau_document(ByRef nouvelle_annee As Integer, ByRef annee_en_cours As Integer)

Dim cheminDossier As String, cheminComplet As String, newFileName As String

cheminDossier = ActiveWorkbook.Path + "/"
newFileName = "Suivi mails " & nouvelle_annee & ".xlsm"
cheminComplet = cheminDossier + newFileName

With ThisWorkbook
    .Save
    If Dir(cheminComplet) = "" Then  <---------  C'est ici que le code s'arrête lorsque la variable cheminComplet est du type https:\\ et fonctionne parfaitement avec C:\ ou Z:\ bref n'importe quelle lecteur local ou reseau.
        .SaveCopyAs Filename:=cheminComplet
    Else
        If MsgBox("Le fichier <<" & newFileName & ">> existe déjà. Êtes-vous sûr de vouloir l'écraser ?", vbCritical + vbYesNo, "Ecraser le fichier?") = vbYes Then
            .SaveCopyAs Filename:=cheminComplet
        Else: Exit Sub
        End If
    End If
End With

'****************************************************************************
'****** EFFACEMENT DES DONNEES EXISTANTES DANS LE NOUVEAU FICHIER CREE ******
'****************************************************************************

Workbooks.Open (cheminComplet) 'Ouverture du nouveau classeur de suivi mail créé

Dim sh As Sheets, feuil As Object
Set sh = ActiveWorkbook.Sheets

'Remise à zéro et mise en forme de l'ensemble des cellules des Tableaux dans chaque onglet mensuel
For Each feuil In sh
    If feuil.Name <> "Feuil2" Then
        feuil.Unprotect
        With feuil.Range("A10:J700")
            .ClearContents
            .Borders.Weight = xlHairline
            .BorderAround Weight:=xlMedium
        End With
        
        'Mise à jour des titres des feuilles
        feuil.Range("D3").Value = Replace(feuil.Range("D3").Value, annee_en_cours, nouvelle_annee)
        
        feuil.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
            False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
            AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
            :=True, AllowInsertingHyperlinks:=True, AllowFiltering:=True
    End If
Next

'Sauvegarde puis fermeture du nouveau fichier <<suivi mail>> créé.
Application.DisplayAlerts = False
Workbooks(newFileName).SaveAs ActiveWorkbook.Path & "\" & newFileName 'Ne pas utiliser la méthode .Save car sur le reseau elle n'enregistre pas au bon endroit
Application.DisplayAlerts = False
ActiveWorkbook.Close

MsgBox "Un nouveau fichier vierge nommé """ & newFileName & """ a été créé dans le dossier SUIVI MAILS." & Chr(10) & Chr(13) & Chr(10) & Chr(13) _
& "Des nouveaux dossiers ARRIVE et DEPART vierges ont également été créés pour l'archivage des mails de cette nouvelle année.", vbInformation, "Nouveau fichier créé"

'Création des dossiers et sous-dossiers (APPEL DE LA FONCTION creation_dossiers voir ci-dessous)
Call creation_dossiers(nouvelle_annee)

End Sub