Discussion :

[fred27600]

Bonjour,

Je suis nouveau sur ce groupe et novice en la matière.

J'aimerais pouvoir séparer ce genre de nom de ficher fichier en plusieurs cellule (20181127_bat_site_salle.xls)

J'ai réussi à récupérer cette liste depuis un lecteur réseau mais là je sèche. Je voudrais séparer chaque _ pour les mettre dans des cellules différentes.

pouvez-vous m'aider ?

Merci.

[BENNASR]

bienvenue au forum
code à tester sur une copie de ton travail ; aussi débutant et autodidacte
hypothèse : donnée figure en colonne A de la feuil1

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 test()
 
    Dim Tableau
    Dim i As Integer
    Dim j As Long
    With Sheets("feuil1")
    j = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To j
    Tableau = Split(.Cells(j, 1), "_")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
        Cells(j, i + 2) = Tableau(i)
    Next i
    Next j
    End With
 
End Sub

[MarcelG]

Bonjour Fred et bienvenu sur ce Forum, Bonjour Bennasr,

Bennasr,

Code :

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

 For j = 2 To j

?

Si l'on souhaite la décomposition du nom de classeur à partir de A1 puis dans les colonnes suivantes;, j'écrirais

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
Option Explicit
 
Sub test()
 
    Dim Tableau
    Dim i As Byte
 
    Dim lachaine As String
 
    With Sheets("feuil1")
            'Adapter xls ou xlsm
            lachaine = Replace(ThisWorkbook.Name, ".xlsm", "")
            Tableau = Split(lachaine, "_")
            For i = LBound(Tableau) To UBound(Tableau)
                .Cells(1, i + 1) = Tableau(i)
            Next i
    End With
 
    Erase Tableau
 
End Sub

[BENNASR]

bonsoir MarcelG
la demande de fred

J'aimerais pouvoir séparer ce genre de nom de ficher fichier en plusieurs cellule (20181127_bat_site_salle.xls)
J'ai réussi à récupérer cette liste depuis un lecteur réseau mais là je sèche. Je voudrais séparer chaque _ pour les mettre dans des cellules différentes.

je crois que la liste des nom de fichier sont déjà dans une colonne...peut être que cette partie du code que vous avez fournie nécessite une révision

Code :

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

lachaine = Replace(ThisWorkbook.Name, ".xlsm", "")

Alors si les noms sont déjà récupérés dans une colonne alors nous avons besoins de deux variable pour parcourir toutes les lignes et aussi toutes les parties de la chaine si n'ont pas la même taille.

Code :

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

For j = 2 To j

ça fonctionne sans aucun soucis
BONNE SOIREE

[MarcelG]

Bennasr,

OK pour les colonnes.
Mon code était à adapter, comme souvent.

Après la ligne

Code :

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

For j = 2 To j

S'il te plaît, pourrais-tu placer

Code :

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

Débug.Print "la valeur de j est " & j

et retourner le résultat reporté dans la fenêtre Exécution.
Merci
Il y a quelque chose qui m'échappe.

[BENNASR]

si le demandeur veux se débarrasser du '.xls' ; comme recommandé par Marcel ; et pour enregistrer comme titre de colonne "Partie1, 2 ... ainsi de suite :

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
Sub test()
 
    Dim Tableau
    Dim i As Integer
    Dim j As Long
    With Sheets("feuil1")
    j = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To j
    .Cells(j, 1) = Replace(.Cells(j, 1), ".xls", "")
    Tableau = Split(.Cells(j, 1), "_")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
        .Cells(j, i + 2) = Tableau(i)
        .Cells(1, i + 2) = ("Partie  " & i + 1)
    Next i
    Next j
    End With
 
End Sub

[unparia]

Relire ma première réponse.
Un split ne ferait qu'ajouter lenteur alors que l'outil convertir de Excel est très rapide et peut être appliqué d'un seul coup à toute la colonne.
Et si l'on veut en plus se débarrasser de l'extension, rien n'empêche de la mettre en oeuvre après un replace

[unparia]

Bonjour
Utiliser simplement l'outil de conversion de Excel (données -->> convertir)
Et si l'on tient à en faire une macro : voir le code qu'écrit l'enregistreur de macros en faisant ces gestes.