Reprendre le nom du fichier pour une macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
G
Gepetto3
Membre fidèle
Membre fidèle
Messages : 167
Inscrit le : 30 octobre 2008
Version d'Excel : 2007 FR

Message par Gepetto3 » 18 décembre 2008, 13:47

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
s
souri84
Membre impliqué
Membre impliqué
Messages : 1'042
Inscrit le : 7 mai 2007
Version d'Excel : 2003 FR / 2007 UK

Message par souri84 » 18 décembre 2008, 21:20

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
Excel 2003 / Excel 2007
G
Gepetto3
Membre fidèle
Membre fidèle
Messages : 167
Inscrit le : 30 octobre 2008
Version d'Excel : 2007 FR

Message par Gepetto3 » 22 décembre 2008, 15:28

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message