Copier le nom du fichier dans une case

Bonjour tout le monde,

J'ai une petite question, dans mon macro , j'importe les données d'un autres fichier mais j'aimerai recopier également le nom du fichier dans une case de mon fichier.

Voici l'extrait de mon macro :

Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ActiveWorkbook

If MsgBox("Ouverture du fichier", vbYesNoCancel) = vbYes Then
TheFile = Application.GetOpenFilename("Classeurs Excel(*.*),*.*")
Set wb2 = Workbooks.Open(TheFile)
End If

derlig2 = Workbooks(wb2.Name).Sheets("donnée").Range("A15536").End(xlUp).Row
derlig1 = Workbooks(wb1.Name).Sheets("compta").Range("A15536").End(xlUp).Row
Workbooks(wb2.Name).Sheets("donnée").Range(Cells(1, 1), Cells(derlig2, 54)).Copy
Workbooks(wb1.Name).Sheets("compta").Cells(derlig1 + 0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Workbooks(wb2.Name).Close
Workbooks(wb1.Name).Activate

Par exemple j'aimerai mettre le nom du fichier dans la case C1 de la feuille Historique

Je vous remercie d'avance

Laurene

Bonjour,

Il suffit que tu ajoutes l'instruction suivante avant fermeture de Wb2 :

Wb1.Worksheets("<Nom de la feuille historique>").Range("C1") = Wb2.Name

Remarque :

il est inutile d'écrire

Workbooks(wb2.Name).Sheets("donnée").Range("......

c'est équivalent à

Wb2.Sheets("donnée").Range("......

A+

Super , ca marche ! Merci beaucoup

Et merci pour la remarque également

Laurene

Je remonte le sujet car j'ai encore une question sur ce bout de programme , j'ai deux messages qui apparaissent une fois la recherche du fichier :

"Voulez-vous enregistrer les modifications apportées au fichier ' nom du fichier ' ? "

et le deuxième : " Le presse papier contient une trop grande quantité d'informations. Voulez vous avoir la possibilité de coller ses informations dans un autre document ultérieurement ? "

Est ce qu'il y a un moyen qu'il ne s'affiche plus car je répond systématiquement non pour les deux messages.

Merci

Laurene

Mettez Application.DisplayAlerts = False au début de votre code

et Application.DisplayAlerts = True tout à la fin de votre code (avant le End Sub )

Merci beaucoup Excel-Malin