Bonjour,
Jusqu'à dernièrement nous utilisions des postes équipés d'Office 2000, evrsion sur laquelle l'ensemble des macros lancées avaient été développées. Mais depuis le passage sur Office 2003 des bugs successifs sont apparus dont un que je n'arrive pas à résoudre.
Malgré les messages d'autres utilisateurs sur ce forum je n'ai pas réussi à trouver une sokution à l'anomalie donc j'espère que l'un d'entre vous aura l'idée géniale qui me permettra d'adapter ma macro à la nouvelle version.
Donc l'erreur qui apparaît m'indique que la méthode Paste de la classe Worksheet a échoué.
Le code de ma macro est le suivant et lors du débug le problème vient de la ligne Activesheet.Paste
Do While ActiveCell <> ""
NomAC = Range("A1").Value
If NomOnglet <> NomAC Then
NomOnglet = NomAC
GoTo SelectionOnglet
End If
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=NomAC
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(NomAC).Select
If NbLigneOnglet = 0 Then
Range("A" & NbLigneOnglet + 1).Select
Else
Range("A" & NbLigneOnglet).Select
End If
ActiveSheet.Paste
Sheets("PlanifVisites_Condi").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Range("A1").Select
NbLigneOnglet = 0
Loop
J'ai testé à nouveau cette macro sur un poste toujours équipé de la version 2000 d'Excel et cela fonctionne normalement donc j'imagine que le problème est plus subtil !
Merci d'avance pour vos réponses!
Caroline
Jusqu'à dernièrement nous utilisions des postes équipés d'Office 2000, evrsion sur laquelle l'ensemble des macros lancées avaient été développées. Mais depuis le passage sur Office 2003 des bugs successifs sont apparus dont un que je n'arrive pas à résoudre.
Malgré les messages d'autres utilisateurs sur ce forum je n'ai pas réussi à trouver une sokution à l'anomalie donc j'espère que l'un d'entre vous aura l'idée géniale qui me permettra d'adapter ma macro à la nouvelle version.
Donc l'erreur qui apparaît m'indique que la méthode Paste de la classe Worksheet a échoué.
Le code de ma macro est le suivant et lors du débug le problème vient de la ligne Activesheet.Paste
Do While ActiveCell <> ""
NomAC = Range("A1").Value
If NomOnglet <> NomAC Then
NomOnglet = NomAC
GoTo SelectionOnglet
End If
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=NomAC
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(NomAC).Select
If NbLigneOnglet = 0 Then
Range("A" & NbLigneOnglet + 1).Select
Else
Range("A" & NbLigneOnglet).Select
End If
ActiveSheet.Paste
Sheets("PlanifVisites_Condi").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Range("A1").Select
NbLigneOnglet = 0
Loop
J'ai testé à nouveau cette macro sur un poste toujours équipé de la version 2000 d'Excel et cela fonctionne normalement donc j'imagine que le problème est plus subtil !
Merci d'avance pour vos réponses!
Caroline