Erreur 1004

[kalif]

Bonjour à toutes et à tous

J'ai une erreur 1004 à la ligne range de ce code

Application.Workbooks.Open "C:\monfichier.xls"
Sheets("Feuil1").Activate
Range("a1:d1000").Select

avec l'explication suivante: la methode Select de la classe Range à échouée.
Avez vous une idée sur la cause éventuelle, car moi je sèche.

Merci pour vos suggestions

bonne journée

kalif

 

[Wilfried]

Salut Kalif,

A quelle niveau exactemment cela de génère t-il ton code 1004.

Pour moi cela peut venir du faite que tu à peut-être une ou plusieurs cellule fusionner.

Envoye un exemple ce sera plus claire.

A++
Wilfried

 

[Pascal76]

bonjour

as-tu essayé un sheets("..").select au lieu de activate ???

Pascal

PS : D'un autre coté il est bien de vérifier si les select sont obligatoires. Dans la plupart des cas non et cela fait gagner beaucoup de temps au déroulement de la macro.

 

[kalif]

Re Bonjour à toutes et à tous

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Column = 3 Then
UserForm1.Show
Range("A1").Value = Range("Z1")
Application.Workbooks.Open "C:\monfichier"
Sheets("Feuil1").Select
Range("A1:I10000").Select
UserForm2.Show
Cancel = True
Exit Sub
End If
End Sub

Mon erreur 1004, se passe à la ligne de Range("A1:I10000").Select en Font Jaune.

Merci de vos correctifs.

Kalif