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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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