copie de classeur et pb macro

[Francois73]

bonjour a toutes et à tous

j'ai créer un classeur excel "modéle" contenant plusueurs feuilles et plusieurs macro
j'ai besoin de le dupliquer (1 par client)

ma première macro me sert à copier/coller des données provenant d'un autre classeur (toujours le même portant le nom de "Données excel pour alpage" )

étant donné que le nom de mon classeur modéle change la macro n'arrive pas à coller les info

peut t'on s'affranchir de cela


ci dessous le contenu de ma macro

Sub LABO1()
'
' LABO1 Macro
' Macro enregistrée le 30/06/2010 par courbois_f
'

'
Windows("Données excel pour alpage.XLS").Activate
Cells.Select
Selection.Copy
Windows("modele lp alpage.xls").Activate
Sheets("labo").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
End Sub


merci pour votre aide

 

[Pierrot93]

Re : copie de classeur et pb macro

Bonjour françois,

pas sur, mais avec les éléments que tu donnes, si tu veux activer le classeur modèle dans lequel se trouve la macro en cours d'exécution, remplace la ligne ci-dessous :

Windows("modele lp alpage.xls").Activate

par :

ThisWorkbook.Activate

bon après midi
@+

 

[Francois73]

Re : copie de classeur et pb macro

merci


c'est tout bon avec la correction

bon aprés midi