Erreur 76 avec un MkDir

[phoque.r]

Bonjour,

j'ai le problème suivant:
je fais

chemin = ThisWorkbook.Path & "\Photos\" & Range("encours!a4")
MkDir chemin

Et il me fait une erreur 76 sur le MkDir.
c'est sur un fichier dont le code n'a pas été touché depuis 6 mois, et qui fonctionnait avant.
Quelqu'un sait me dire quel est le problème?
C'est assez urgent, c'est pour un truc d'entreprise

meric d'avance
phoque.r

 

[Staple1600]

Re : Erreur 76 avec un MkDir

Bonjour


Pourquoi n'utilses pas le moteur de recherche du forum ?

 

[phoque.r]

Re : Erreur 76 avec un MkDir

Ca ne me dit pas ce qu'est l'erreur 76! Et c'est ce que je veux, pour pouvoir la gérer

Merci

 

[kjin]

Re : Erreur 76 avec un MkDir

bonjour le fil,
Petite recherche --> erreur 76 = chemin d'accès introuvable
On s'en doutais un peu
A+
kjin

 

[kiki29]

Re : Erreur 76 avec un MkDir

Jour Bon, pour cela il y a l'aide en ligne

Onglet Aide Intuitive
Taper : erreurs récupérables
Cliquer sur Rechercher
Cliquer sur erreurs récupérables

 

[phoque.r]

Re : Erreur 76 avec un MkDir

merci

phoque.r

 

[kiki29]

Re : Erreur 76 avec un MkDir

Jour Bon, pour création d'un dossier utiliser plutot qqch comme

Option Explicit
Private Function CreerDossier(ByVal sChemin As String)
Dim i As Integer, sTmp As String, Ar() As String
    If InStr(sChemin, ":") = 0 Then
        Ar = Split(CurDir & "\" & sChemin, "\")
        MsgBox "Dossier créé dans : " & CurDir, vbOKOnly + vbInformation, "Achtung"
    Else
        Ar = Split(sChemin, "\")
    End If
    
    sTmp = Ar(0)
    ChDrive sTmp
    
    For i = LBound(Ar) + 1 To UBound(Ar)
        If Ar(i) <> "" Then
            sTmp = sTmp & "\" & Ar(i)
            On Error Resume Next
            MkDir sTmp
            On Error GoTo 0
        End If
    Next i
End Function