Reprendre le nom du fichier pour une macro

Hello,

Voila je désire copier des cellules dans un fichier toujours nomer ("ACCESOIRES V2.xls"). qui lui est ouvert.

Ensuite coller ces cellules dans un fichier dont le nom change.

Mais c'est dans ce fichier que j'ai mis la macro copie (ci-dessous)

En gros il faudrai que la macro reprenne le nom du fichier sur laquelle elle est enregistrer.

Ligne en rouge.

Sub copie()

'

' copie Macro

Windows("ACCESOIRES V2.xls").Activate

Sheets("Liste_de_commande").Select

Range("B16:H30").Select

Selection.Copy

Windows("resumer accesoiresV4.xls").Activate

Range("B3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Salut,

essaies avec ceci:

Sub copie() 
' 
' copie Macro 
dim nomFichier as string

nomFichier = thisworkbook.name
Windows("ACCESOIRES V2.xls").Activate 
Sheets("Liste_de_commande").Select 
Range("B16:H30").Select 
Selection.Copy 
Windows(nomFichier).Activate 
Range("B3").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 
End Sub 

Souri84

Hello,

Merci beaucoup

C'est exactement ce qui ne jouais pas. et que je ne savais comment faire

Un grand Merci a toi, et a vous autres.

Bonne fête de noel et bonne année

Rechercher des sujets similaires à "reprendre nom fichier macro"