Discussion :

[mammmy]

Salut tout le monde,
Est ce que quelqu'un sait comment faire avec du code VBA excel pour avoir le nom du fichier copié dans les cellules de la première colonne????

Au fait, je copie plusieurs fichiers excel dans un seul et je voudrais avoir à chaque fois le nom du fichier copié dans la cellule de la première colonne.

Merci d'avance

[fring]

Bonjour,

Tu les copies comment ces données de différents fichiers, manuellement ou par VBA ?

[mammmy]

Par vba.

[fring]

donc...dans ton code tu spécifies quelque part le nom du fichier duquel tu vas extraire les données ?

Montre ton code stp

[mammmy]

Je spécifie le répertoire où sont stockés les fichiers excel à copier. Voici le code:

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
28
29
30
31
32
33
34
35
36
Sub Assemble()
Dim CL1 As Workbook, CL2 As Workbook 'classeur
Dim FL1 As Worksheet, FL2 As Worksheet 'feuille de calcul
Dim Fich As Variant, i As Byte, j$, Rep$, k As Long
 
 
    'Répertoire des fichiers à copier
    Rep = "C:\Documents and Settings\Bureau\test\"
    j = "fich1.xls"
    NomFichier = ActiveWorkbook.Name
    Set CL1 = ThisWorkbook
 
    'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "Cumul_Budget"
 
    Set FL1 = CL1.ActiveSheet 'Instance le la feuille
 
    'Crée le tableau des fichiers du répertoire
    Set Fich = application.FileSearch
 
    'Ouverture des fichiers du répertoire
    With Fich
        .LookIn = Rep
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                Set CL2 = Workbooks.Open(.FoundFiles(i))
                DoEvents
 
                'Parcours des feuilles de chaque classeur
                For Each FL2 In CL2.Worksheets
 
                    'Dernière ligne où coller les données copiées dans FL2
                    NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

Et donc pas vraiment le fichier exactement car c'est une boucle.

[fring]

Code :

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

1
2
3
4
For i = 1 To .FoundFiles.Count
                Set CL2 = Workbooks.Open(.FoundFiles(i))
                NomClasseur = CL2.Name
                DoEvents

NomClasseur contiendra...le nom du classeur

Concernant la recherche de la dernière ligne, je te conseille de procéder autrement, SpecialCells(xlCellTypeLastCell) risque un jour de t'envoyer au fond de la cave.

Code :

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

NoLigne = FL1.Range("A65535").End(xlUp).Row + 1