Discussion :

[Ptikir]

Bonjour,

j'ai un problème dans une macro excel. Je souhaite créé un répertoire si celui ci n'existe pas et j'obtiens le message d'erreur suivant :
"Erreur d'accès Chemin/Fichier"
L'erreur survient à cause du mkdir voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Dir(repertoirePJ & "\" & repertoirePJRang2) = "" Then
        MkDir (repertoirePJ & "\" & repertoirePJRang2)
        repertoirePJ = repertoirePJ & "\" & repertoirePJRang2
        Print #n, "le repertoire des PJ = " & repertoirePJ & vbCrLf;
End If

repertoirePJ & & "\" & repertoirePJRang2 =
U:\DSE\Employeurs\R.C. Employeurs\Fournisseurs\Océ TIDE\35_Contrôle facturation mensuel\2009

Estce un problème de longueur ou de caractère spéciaux?

Par exemple je ne reçoit pas d'erreur quand le chemin d'accès correspond à :
U:\DSE\Employeurs\S.F Employeurs\Ctrl Quotidien Lots Docs TIDE GFE\ATOS\TEST

Merci d'avance pour vos réponses.

[La Zélie]

Bonjour

U:\DSE\Employeurs\R.C. Employeurs\Fournisseurs\Océ TIDE\35_Contrôle facturation mensuel\2009

Estce un problème de longueur ou de caractère spéciaux?

Ta réponse est dans ta question

[ucfoutu]

Bonjour,

Bien que je préfère éviter également les caractères accentués ....

Question :
jusqu'où existe déjà le chemin :

U:\DSE\Employeurs\R.C. Employeurs\Fournisseurs\Océ TIDE\35_Contrôle facturation mensuel\2009

En d'autres termes : quelle est l'arboresence la plus longue existant déjà dans ce chemin. Mets-nous la en rouge.
(juste pour le cas où tu essaierais de créer un dossier (sous-répertoire) dans un sous-répertoire non déjà lui-même créé...

[Ptikir]

Bonjour,

Le chemin suivant est existant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
U:\DSE\Employeurs\R.C. Employeurs\Fournisseurs\Océ TIDE\35_Contrôle facturation mensuel\2009\04 avril

donc je pense effectivmeent que c'est un problème au niveau des caractère accentués

[Ptikir]

est ce que quelqu'u aurait une idée pour remplacer ces caractères accentués dans ma chaine?

Car je vais avoir beaucoup de difficulté à changer le nom de ces chemins d'accès. Peut on utiliser un replace pour remplacer les "é" par des Chr(XX)?

[Ptikir]

Bonjour le forum,

J'avais déposé unautre post pour mon problème.
En fait l'erreur n'était pas provoqué par des caractères spéciaux ou accentués!!! La solution est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If repertoirePJRang2 <> "" Then
    Print #n, repertoirePJ & vbCrLf;
    dossierExiste = Dir(repertoirePJ & "\" & repertoirePJRang2, vbDirectory) <> ""
        If dossierExiste = False Then
        Print #n, dossierExiste & vbCrLf;
                MkDir (repertoirePJ & "\" & repertoirePJRang2)
                repertoirePJ = repertoirePJ & "\" & repertoirePJRang2
                Print #n, "le repertoire des PJ = " & repertoirePJ & vbCrLf;
        End If
Else
        Print #n, "Le répertoire : " & repertoirePJ & "\" & repertoirePJRang2 & "existe déjà" & vbCrLf;
End If