Enregistrement macro

[eduraiss]

Re bonjour le forum
voici un enregistrement macro, mon problème est que le non de fichier Windows("M2 Z2 SE 31.XLS").Activate change toute les semaines de nom donc cette macro ne peut pas fontionner
comment executer cette macro avec le classeur actif

Merci

ChDir "G:\GESTION EQUIPES\BASE EQUIPES"
Workbooks.Open Filename:="G:\GESTION EQUIPES\BASE EQUIPES\BASE PERSONELS.xls"
Sheets(" INTERIM POUR ERIC").Select
Cells.Select
Selection.Copy
Windows("M2 Z2 SE 31.XLS").Activate
Sheets("Données").Select
Cells.Select
ActiveSheet.Buttons.Add(1.5, 12.75, 75.75, 0).Select
ActiveSheet.Paste
Range("F12").Select

 

[chris]

Re : Enregistrement macro

Bonjour

Ajouter les lignes en bleu et enlever la ligne en rouge

x = ActiveWorkbook.Name

ChDir "G:\GESTION EQUIPES\BASE EQUIPES"
Workbooks.Open Filename:="G:\GESTION EQUIPES\BASE EQUIPES\BASE PERSONELS.xls"
Sheets(" INTERIM POUR ERIC").Select
Cells.Select
Selection.Copy
Workbooks(x).Activate
Windows("M2 Z2 SE 31.XLS").Activate
Sheets("Données").Select
Cells.Select
ActiveSheet.Buttons.Add(1.5, 12.75, 75.75, 0).Select
ActiveSheet.Paste
Range("F12").Select

 

[eduraiss]

Re : Enregistrement macro

Re

merci a toi c'est ok

Cordialement

 

[eduraiss]

Re : Enregistrement macro

Re bonjour

la macro ci dessous ne reste pas sur la feuille active mais affiche " INTERIM POUR ERIC" ce qui ne va pas

Comment faire merci

Application.ScreenUpdating = False
x = ActiveWorkbook.Name
'ActiveSheet.Select
ChDir "G:\GESTION EQUIPES\BASE EQUIPES"

Workbooks.Open Filename:="G:\GESTION EQUIPES\BASE EQUIPES\BASE PERSONELS.xls"
Sheets(" INTERIM POUR ERIC").Select
Application.Run "'BASE PERSONELS.xls'!TRIER"

Range("A2:F284").Select
Selection.Copy

Workbooks(x).Activate
ActiveSheet.Select
Sheets(" INTERIM POUR ERIC").Select
Range("A2").Select
'ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("BASE PERSONELS.xls").Activate

Range("C2").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("B4").Select
'Sheets.Activate
'ActiveSheet
Application.ScreenUpdating = True

 

[eduraiss]

Re : Enregistrement macro

re j'ai trouve en nomant la feuille en y comme le classeur

Meric a vous