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....
Je travaille sur 2 tableurs simultanément.
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
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:
avec le même résultat dans tous les cas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Cells(21, 1).Select Range("A21").Select
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
Partager