La méthode Select de la classe Range a échoué
Bonjour,
Le titre dit bien quel est mon problème, mais...ce que je ne parviens pas à comprendre, c'est pourquoi une fois ça marche, une fois ça marche pas et j'obtiens cette erreur... avec plusieurs instructions différentes, d'ailleurs !
Je m'explique....
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private Sub Importer_Click()
' ============================================= PROGRAMME PRINCIPAL ================
Set WB_Principal = ActiveWorkbook
Dim Fichier1, Fichier2 As String
FichierDB = ouverture_fichiers()
WB_Principal.Activate
Range("B65536").End(xlUp).Select ' recherche de la dernière cellule non vide de la colonne B
MONTANT1 = ActiveCell.Value
Workbooks(FichierDB).Activate
Range("A300").End(xlUp).Select ' recherche de la dernière cellule non vide de la colonne A
MONTANT2 = ActiveCell.Value
End Sub |
Je travaille sur 2 tableurs simultanément.
Dans le premier, la recherche de la dernière cellule non vide de la colonne B se passe sans problème
Dans le second, la recherche aboutit à l'erreur 1004 et au message annoncé : "La méthode Select de la classe Range a échoué".
J'ai essayé de remplacer cette instruction récalcitrante par plus élémentaire:
Code:
1
2
3
|
Cells(21, 1).Select
Range("A21").Select |
avec le même résultat dans tous les cas.
J'ai tendance à penser, à la lecture de plusieurs articles, que le problème se situe dans mon tableur 2, mais je ne vois pas où !
Quelqu'un peut-il m'aider ?
Merci d'avance à celui ou celle qui pourra :),
Mike
