Discussion :

[HABILER]

Bonjour à tous

Dans une directory c:/Pers j'ai un fichier nommé 1234 - ABCDE
Ce qui me donne c:/1234 - ABCDE
Mon but est de permuter 1234 et ABCDE pour me donner c:/ABCDE - 1234

Mais en exécutant le code ci-dessous le résultat est c:/ ABCDE - 1234 avec un espace netre / et A

Qui peut m'aider à résoudre le problème ?

Merci d'avance

Habiler

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
Sub Perm_Mat_Name()
 
Dim OldFolderName, NewFolderName As String
Dim objFileSystem As Object
 Dim newName As String
 Dim newNameSplit As String
 Dim splitMatrNom() As String
 
Set objFSO = New FileSystemObject
Set mysource = objFSO.GetFolder("C:\PERS")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    Dim i As Long
    For Each Folder In mysource.SubFolders
 
 
    splitMatrNom = Split(Folder.Name, "-")
  '  Debug.Print splitMatrNom(1)
 
      'For i = LBound(splitMatrNom) To UBound(splitMatrNom)
     newNameSplit = splitMatrNom(1) & " - " & splitMatrNom(0)
     Debug.Print newNameSplit
        If Folder.Name <> newName Then Folder.Name = newNameSplit
        'Next i
    Next Folder
 
End Sub

[EricDgn]

Bonjour,

Ligne 17:

Code :

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

    splitMatrNom = Split(Folder.Name, " - ")

Cordialement.

[fraflt69]

Bonjour Habiler

Changer

Code :

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

1
2
newNameSplit = splitMatrNom(1) & " - " & splitMatrNom(0)
If Folder.Name <> newName Then Folder.Name = newNameSplit

en

Code :

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

1
2
newNameSplit = Trim(splitMatrNom(1)) & " - " & Trim(splitMatrNom(0))
Name Folder.Name as newNameSplit

Cdlt