Suppression d'un espace en vba
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:
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 |
