Récupérer le nom de fichier

[nelamari]

Bonjour,

J'ai plusieurs fichiers xls dans le répertoire: D:\Documents and Settings\pc\Mes documents\XLS et je souhaite ouvrir le fichier toto.xls et écrire le nom du fichier "toto.xls" dans la cellule(i,8) du même fichier du moment que cette dernière est vide.
ainsi de suite ouvrir le fichier titi.xls et écrire le nom du fichier "titi.xls" dans la cellule(i,8) du même fichier du moment que cette dernière est vide.

 

[Roland_M]

Re : Récupérer le nom de fichier

bonjour

ci-joint deux exemples

 

[nelamari]

Re : Récupérer le nom de fichier

c'est pas vraiment ca, ce que je souhaite plus c'est d'écrire le nom du fichier dans la cellule(1,8) du même fichier.
merci

 

[Roland_M]

Re : Récupérer le nom de fichier

voir autrement si cela convient avec une formule

 

[nelamari]

Re : Récupérer le nom de fichier

Voila un exemple de travail que je souhaite faire
le fichier toto.xls dans le zip va servir pour exécuter la macro.
Donc quand j'exécute la macro je trouve bien le titre du fichier dans la colonne 8
pour le fichier CSMT_CGMT08_0566_v1_3.xls mais par pour les autres.

 

[nelamari]

Re : Récupérer le nom de fichier

Je viens de trouver la solution Ci-joint le code corrigé

Sub Ecrit()
Dim Temp As String
Dim fichier As String
Dim i As Integer
Dim m As Integer

'lecture des fichier xls
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False

Do While Temp <> "bilan.xls"
'ouvrir le fichier
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
If Temp <> "toto.xls" Or Temp <> "bilan.xls" Then
        For i = 1 To 3
'Activer la feuil 1 est ecrire le nom du fichier dans les cellules de la colonne 8
                Sheets(i).Activate
                    For m = [A100].End(xlUp).Row To 2 Step -1
                    If Cells(m, 1).Value <> "" Then
                    Cells(m, 8).FormulaR1C1 = Temp
                    End If
                Next m
        Next i
End If
Workbooks(Temp).Save
Workbooks(Temp).Close
Temp = Dir

Loop
End Sub

Merci