Discussion :

[confortola]

Bonjour,
j'avais fait un simple VBA qui me permettait de renommer les fichiers qui se trouvaient dans la colonne A avec les nouveaux noms dans la colonne B
Or le Boss voudrait créer un nom plus complexe selon les bouts de nom qui se trouvent dans les colonnes de B jusqu'à F
Par exemple:
nom.txt doit devenir new_nom+A4+blanc+m-24_12+.doc

Pouvez vous me donner un coup de main.
Merci pour votre aide.
Bonne journée
Luca

[patricktoulon]

faie recherche sur r

1. application.index
2. join

regarde ce que fait ce code

Code :

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

1
2
3
4
Sub test()
 newdonne = Application.Index(Range("B1:F1").Value, 0)
MsgBox Join(newdonne)
End Sub

[Menhir]

Or le Boss voudrait créer un nom plus complexe selon les bouts de nom qui se trouvent dans les colonnes de B jusqu'à F

Le plus simple est que tu recomposes en colonne B le nouveau nom de fichier en utilisant une formule Excel (une simple concaténation avec des & devrait suffire).
Comme ça, tu n'as rien à changer à ton code.

Au pire, tu peux mettre cette concaténation dans ton code VBA.

[confortola]

Le plus simple est que tu recomposes en colonne B le nouveau nom de fichier en utilisant une formule Excel (une simple concaténation avec des & devrait suffire).
Comme ça, tu n'as rien à changer à ton code.

Au pire, tu peux mettre cette concaténation dans ton code VBA.

Déjà merci pour votre conseil.

J'ai suis arrivé à 2 macro attribuées à 2 boutons.
La première liste les fichiers du répertoire indiqué dans la case B1 (jusque là tout marche)
Par une formule je mets ensemble mes bouts du nom du fichier (là aussi c'est OK)
Mais quand je veux dupliquer les fichiers en les baptisant avec leur nouveau nom (qui se trouve dans la colonne H) puis les déplacer vers le répertoire qui est indiqué en C1 je n'y arrive pas.
Voilà comme j'ai procédé:

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
Sub mon_Nom2()
   Dim FSO As Object
   Dim path1 As String
   Dim path2 As String
   Dim tout1 As String
   Dim tout2 As String
   Dim AncienNom As String, NouveauNom As String
   Dim LastRow2 As Long
   Dim k As Long
    Set FSO = VBA.CreateObject("Scripting.FileSystemObject")
    LastRow2 = Range("A" & Rows.Count).End(xlDown).Row
    For k = 2 To LastRow2
    path1 = Range("B1").Value
    path2 = Range("C1").Value
    AncienNom = Range("A" & k)
    NouveauNom = Range("H" & k)
    tout1 = path1 & AncienNom
    tout2 = path2 & NouveauNom
    Name tout1 As tout2
    On Error Resume Next
    If Err = 75 Then Exit Sub
    Next k
End Sub

Je bute là où le code st en rouge!

Serait-il possible d'avoir encore quelques lumières

Merci
Luca

[unparia]

Bonjour
Que vient faire cette ligne de code :

Code :

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

Set FSO = VBA.CreateObject("Scripting.FileSystemObject")

alors que tu n'utilises pas l'objet FSO ?
Questions :
- que contiennent tes cellules B1 et C1 (mets-en ici le contenu) ?
-que contiennent en mode debug tes variables Anciennom et nouveaunom (montre-nous en ici le contenu) ?
-quel est le message d'erreur reçu ?

[Menhir]

Code :

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

    Name tout1 As tout2

Je bute là où le code st en rouge!

N'oublie pas les chemins.
Ils doivent soit être indiqué dans les noms de fichiers, soit que le file système soit positionné dans le bon répertoire.
https://msdn.microsoft.com/fr-fr/VBA...hdir-statement
https://msdn.microsoft.com/fr-fr/VBA...rive-statement

[patricktoulon]

re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub mon_Nom2()
    Dim AncienNom As String, NouveauNom As String
    With ActiveSheet
    For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        AncienNom = .Cells(i, 2) & .Cells(i, 1)
        NouveauNom = Join(Application.Index(.Range(.Cells(i, 3), .Cells(i, 6)).Value, 0), "")
        Debug.Print AncienNom & " vers  " & NouveauNom
        'Name AncienNom As NouveauNom
    Next i
End With
End Sub

[confortola]

Bonjour et merci pour votre aide.
Je poste donc la solution finale

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
Sub mon_Nom2()
    Dim AncienNom As String, NouveauNom As String
    Dim path1 As String, path2 As String, tout1 As String, tou2 As String
 
 
    path1 = Range("B1").Value
    path2 = Range("C1").Value
    With ActiveSheet
    For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        AncienNom = .Cells(i, 2) & .Cells(i, 1)
        NouveauNom = Join(Application.Index(.Range(.Cells(i, 3), .Cells(i, 7)).Value, 0), "")
        tout1 = path1 & AncienNom
        tout2 = path2 & NouveauNom
        FileCopy tout1, tout2
        Next i
   End With
End Sub

Bonne journée
Luca

re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub mon_Nom2()
    Dim AncienNom As String, NouveauNom As String
    With ActiveSheet
    For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        AncienNom = .Cells(i, 2) & .Cells(i, 1)
        NouveauNom = Join(Application.Index(.Range(.Cells(i, 3), .Cells(i, 6)).Value, 0), "")
        Debug.Print AncienNom & " vers  " & NouveauNom
        'Name AncienNom As NouveauNom
    Next i
End With
End Sub