Bug d'une macro

[MARION]

Bonjour au forum.
j'ai un petit soucis avec la macro ci-dessous, elle ne fonctionne pas toujours trés bien parfois elle marche d'autres fois non (j'ai identifier ou été le problème.
Mes deux fichiers sont bien ouvert.
Si une personne peut me donner un petit coup de main
Merci d'avance.
Marion


Private Sub CommandButton2_Click()
'PERMET DE COPIER LES VALEURS DE GESTION A RUPTURE
Application.ScreenUpdating = False

Windows("GESTION.XLS").Activate
Rows("6:400").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A6:A400").Select
Selection.Copy
Sheets("FEUILLE DE CALCUL").Select
Range("A5").Select
'ça bug a partir de là
ActiveSheet.Paste
Range("A3").Select
Windows("PLANIFICATION.xls").Activate
Range("B4").Select
ActiveSheet.Paste
Range("C4").Select
Windows("GESTION.XLS").Activate
Sheets("GESTION").Select
Range("B6").Select
Application.CutCopyMode = False
Windows("PLANIFICATION.xls").Activate

End Sub

 

[Bernard]

Bonjour Marion et le forum

J'ai modifié le code en supposant que la feuille cible de "Workbooks("PLANIFICATION.xls")" est "Sheets("PLANIFICATION")".

Le bouton CommandButton2 est supposé être dans "Workbooks("PLANIFICATION.xls")"

Private Sub CommandButton2_Click()
'PERMET DE COPIER LES VALEURS DE GESTION A RUPTURE
Application.ScreenUpdating = False
Workbooks("GESTION.XLS").Activate
Sheets("GESTION").Select
Workbooks("GESTION.XLS").Sheets("GESTION").Rows("6:400").Sort Key1:=Range("A6"), Order1:=xlAscending
Sheets("GESTION").Range("A6:A400").Copy Sheets("FEUILLE DE CALCUL").Range("A5")
'ça bug a partir de là
Sheets("GESTION").Range("A6:A400").Copy Workbooks("PLANIFICATION.xls").Sheets("PLANIFICATION").Range("B4")
Workbooks("PLANIFICATION.xls").Activate
Sheets("PLANIFICATION").Select
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

 

[MARION]

Merci Bernard pour cette réponse, mais ça ne fonctionne pas.
le bouton qui déclanche cette macro est dans un Userform, positionner dans le fichier planification.
A+

 

[Bernard]

Re Marion

J'ai refait les deux classeurs :

Workbooks("GESTION.XLS") avec deux feuilles :
Sheets("GESTION")
Sheets("FEUILLE DE CALCUL")

et
Workbooks("PLANIFICATION.xls") avec une feuille :
Sheets("PLANIFICATION")

La macro fonctionne très bien.

Quelle est la réponse du débogage d'excel !

A+

Bernard

 

[MARION]

Ta macro marche c'est exact, c'est moi qui ne l'avait pas copié correctement.
Excuse moi, et merci beaucoup pour l'aide que tu ma apporté.
Gros bisous
A+ Marion