Discussion :

[TaleMaker]

Bonjour,

J'ai créé un code pour créer des dossiers dans windows, ça fonctionne, mais le pbl, c'est qu'une fois créés, on ne peut plus du tout les supprimer, ni les déplacer, ni les renommer.

Les messages d'erreur sont soit après confirmation de la suppression : Cannot Delete XXX : Cannot find the specified file.
ou, avant même le traditionnel message de confirmation : Cannot delete file : Cannot read from the source file or disk.

Voilà le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Dossier()
    Dim Chemin As String, OldName As String, NewName As String, DR As String
    Dim Ligne As Integer, i As Integer
 
    'Détermine le chemin d'accès
    Chemin = Application.InputBox(Prompt:="Copier/Coller l'adresse du répertoire où se trouve l'export.")
        Range("P2") = Chemin
    Chemin = Chemin + "\"
 
    'Nettoie les colonnes éventuellement déjà utilisées
    Columns("CY:DJ").Select
    Selection.ClearContents
 
    Ligne = ActiveSheet.UsedRange.Rows.Count
    'DR = Mid(Cells(5, 4), 7, InStr(Cells(5, 4), ": ")) & "\"
 
    For i = 15 To Ligne
        For j = 103 To 115
            If Cells(i, j - 100) = "" Then
                Cells(i, j) = Cells(i - 1, j)
            Else
                Cells(i, j) = Cells(i, j - 100) & "\"
                'Chemin2 = Chemin & DR & Cells(i, 103) & Cells(i, 104) & Cells(i, 105) & Cells(i, 106) & Cells(i, 107) & Cells(i, 108) & Cells(i, 109) & Cells(i, 110) & Cells(i, 111) & Cells(i, 112) & Cells(i, 113) & Cells(i, 114)
                Chemin2 = Chemin & Cells(i, 103) & Cells(i, 104) & Cells(i, 105) & Cells(i, 106) & Cells(i, 107) & Cells(i, 108) & Cells(i, 109) & Cells(i, 110) & Cells(i, 111) & Cells(i, 112) & Cells(i, 113) & Cells(i, 114)
                MkDir Chemin2
                On Error Resume Next
            End If
        Next
        If Cells(i, 15) <> "" Then
            OldName = Chemin & "Documents\" & Cells(i, 18) & ".pdf"
            NewName = Chemin2 & Cells(i, 16) & Right(OldName, 4)
            On Error Resume Next
            Name OldName As NewName
        End If
    Next
 
End Sub

Le souci survient si on colle dans le programme une arborescence depuis un fichier excel, mais fonctionne si on crée les lignes à la main.

Merci d'avance,
Phil....

[aalex_38]

Bonjour,

As-tu vérifié si les noms des chemins que tu crées sont corrects ?
Le problème vient peut-être de la...

Code :

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

1
2
MkDir Chemin2
debug.print chemin2

[TaleMaker]

oui oui, ils sont corrects puisque :
1- Les dossiers sont bien créés dans les bons répertoires
2- Ils sont créés à partir d'une liste qui est la même pour tous, alors qu'il n'y a que certains répertoires que je ne peux plus supprimer.

[aalex_38]

Bonjour,

As-tu avancé sur la question ou le problème subsiste-t-il toujours ?

Je te posais la question des chemins et des noms de fichier car il m'est arrivé en VBA outlook de créer des fichiers bidons (par exemple nommés .PDF) et ensuite je ne pouvais plus supprimer les fichiers.

Si tu as un fichier, je veux bien le tester.

[Fouinard]

regarde si les fichiers ne sont pas utilisés par une application, j'ai eu des problemes avec un programme qui me créait des fichiers word et les ouvrait seulement quand je voulais les supprimer, cela me créait la liste des fichiers du répertoire avant de fermer word donc avec le fichier temporaire, une fois word fermé le fichier temporaire n'existant plus il me generait une erreur lorsqu'il tentait de le supprimer... juste une piste...

[TaleMaker]

alors, oui, j'ai tjs le problème. Le souci ne se situe pas avec les fichiers (en tout cas, je n'en ai pas encore constaté) mais essentiellement avec les dossiers, donc pas de problème d'extension.

Pour le souci de suppression, j'ai bien pensé qu'il pouvait y avoir un programme l'utilisant, mais ce n'est pas le cas : que ce soit au démarage, ou en passant par un autre poste, ces dossiers sont soit impossibles à supprimer, soit carrément inaccessibles.

Mais le problème ne survient qu'en important une liste de dossiers depuis notre système interne ; en créant le nom des répertoires à la main, ça marche. Et même si je copie d'abord la liste dans un fichier texte, ou sur word avant d'intégrer les valeurs dans mon programme, les mêmes dossiers se retrouvent impossibles à supprimer.

je joins le fichier au message. dans l'interface, les aprties grisées représentent la mise en forme des index générés par notre système.