erreur de range class failed

[xtor]

Bonjour à tous ... Voici les faits (j'espère que malgré le beau soleil vous aurez un peu de temps pour m'aider).

Voila j'expose les faits
Je souhaite améliorer une macro réalisée par un collègue mais lorsque je l'exécute, mais elle est maintenant sous forme de bouton, j'obtiens le problème d'erreur run time error 1004 - Select method of Range class failed.

Voici les deux début de macros ... La mienne bloque sur cells.select

LA MIENNE :


Private Sub Generermontarif_Click()
'
' Macro recorded 28/07/2006 by bu
'
Dim vChemin As String
vChemin = Range("B8")
ChDir vChemin
Workbooks.Open Filename:= _
vChemin + "\PRCLIST.xls"
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveSheet.Name = "Tarif enveloppe personnalisé"


' PET Macro
' Macro recorded 15/06/2006 by he
'
Sheets(1).Select
Range("A1").Select
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="Enveloppes"
Cells.Select
Selection.Copy
Sheets("Tarif enveloppe personnalisé").Select


L'ORIGINALE :

Sub PET()
'
' PET Macro
' Macro recorded 15/06/2006 by hemmerlin
'

'
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="Enveloppes"
Cells.Select
Selection.Copy
Sheets("Tarif enveloppe personnalisé").Select


D'avance merci

Xtor

 

[porcinet82]

Re : erreur de range class failed

Salut xtor,

Sans voir le fihcier ca risque d'etre difficile de t'aider. Mets nous ton fichier ou un exemple de celui-ci en pièces jointes afin que l'on regarde ou se situe vraiment le problème.

@+