Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 La méthode select de la classe range a échoué

bambi

XLDnaute Occasionnel
Bonjour à tous

J'ai un bout de macro qui a toujours très bien fonctionné mais qui aujourd'hui
me renvoie une erreur "1004 la méthode select de la classe range a échoué"

J'ai essayé tout ce que je suis capable de faire mais je n'arrive pas à résoudre ni à comprendre ce bug "spontané"

Difficile de vous joindre mon fichier aussi j'espère que vous aurez des suggestions avec le code vba qui bloque
C'est la ligne ci-dessous qui ressort JAUNE au débogage
Sheets("CDeT").Range("B" & Range("B65536").End(xlUp).Row + 1).Select
Cliquez pour agrandir...

VB: 
'Copie dans le presse papier l'ensemble des données nettoyées de Clean Feuille Txn
    Workbooks("Clean.xlsm").Activate
    Sheets("Txn").Range("A1").CurrentRegion.Copy


 'Ouvre le fichier T et colle le résultat à partir de la première case vide colonne B, feuille CDeT
     Workbooks.Open Filename:="D:\Mon Dossier de T\Racine\T.xlsm"
     Sheets("CDeT").Range("B" & Range("B65536").End(xlUp).Row + 1).Select
     ActiveSheet.Paste
     Workbooks("T.xlsm").Sheets("CDeT").Range("A1").Select

Merci de vos suggestions
 
Solution
J
bonjour
essayes
mais sans fichier pour tester....
Sheets("CDeT").Range("B" & Sheets("CDeT").Range("B65536").End(xlUp).Row + 1).Select


ou plutôt
Sheets("CDeT").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
Trier par date Trier par votes
J

JM27

XLDnaute Barbatruc
bonjour
essayes
mais sans fichier pour tester....
Sheets("CDeT").Range("B" & Sheets("CDeT").Range("B65536").End(xlUp).Row + 1).Select


ou plutôt
Sheets("CDeT").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
 
Vote positif 0 Vote négatif
Solution

bambi

XLDnaute Occasionnel
Merci énormément @JM27
Cela fonctionne.
J'ai buté tout le week-end sur ce problème alors je suis bien contente d'avoir enfin une solution.
C'est tout de même un mystère car la macro précedente a fonctionné des années
Bonne journée
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour bambi, JM27,

je te propose aussi ce code VBA :

VB: 
Sub Essai()
  'Copie dans le presse papier l'ensemble des données nettoyées de Clean Feuille Txn
  Workbooks("Clean.xlsm").Activate: [Txn!A1].CurrentRegion.Copy

  'Ouvre le fichier T et colle le résultat à partir de la première case vide colonne B, feuille CDeT
  Dim lig&: Workbooks.Open "D:\Mon Dossier de T\Racine\T.xlsm"
  Worksheets("CDeT").Select: lig = Cells(Rows.Count, 2).End(xlUp).Row + 1
  Cells(lig, 2).PasteSpecial xlPasteAll: [A1].Select
End Sub

si t'as besoin que des valeurs, tu peux remplacer xlPasteAll par xlPasteValues


note que pour ta ligne Workbooks("T.xlsm").Sheets("CDeT").Range("A1").Select

* inutile de sélectionner le classeur T.xlsm, car depuis le .Open tu es déjà dessus

* j'ai sélectionné la feuille "CDeT" au cas où y'en aurait d'autres dans le classeur,
et à cause du [A1].Select, cette feuille doit obligatoirement être sélectionnée.

soan
 
Dernière édition:
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@bambi

désolé, on s'est croisés, et j'ai corrigé un petit bug dans mon code VBA précédent ; donc je te laisse relire entièrement mon post #4, y compris la 2ème partie avec la note. au cas où tu n'aurais pas besoin de sélectionner A1, tu pourrais faire un coller sans devoir sélectionner la feuille "CDeT" ; mon code VBA aurait alors été celui-ci :​

VB: 
Sub Essai()
  'Copie dans le presse papier l'ensemble des données nettoyées de Clean Feuille Txn
  Workbooks("Clean.xlsm").Activate: [Txn!A1].CurrentRegion.Copy

  'Ouvre le fichier T et colle le résultat à partir de la première case vide colonne B, feuille CDeT
  Dim lig&: Workbooks.Open "D:\Mon Dossier de T\Racine\T.xlsm"
  With Worksheets("CDeT")
    lig = .Cells(Rows.Count, 2).End(xlUp).Row + 1
    .Cells(lig, 2).PasteSpecial xlPasteAll
  End With
End Sub

(ou avec xlPasteValues si seules les valeurs suffisent)

soan
 
Dernière édition:
Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel
@soan
Tes deux macros fonctionnent parfaitement .
Je selectionne le A1 car j'ai besoin de voir le résultat une fois collé et d'être sur cette feuille CDeT
Merci beaucoup de t'être donné la peine de regarder
Je garde toutes tes macros de côté
Bonne journée

PS: j'ai mis xlPastValues
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
XL 2019 la méthode AutoFilter de la classe range a échoué
Réponses
5
Affichages
300
Phil69970
H
  • Question
XL 2016 la méthode Add de l'Objet Listrows à échoué
2
Réponses
29
Affichages
1 K
patricktoulon
H
  • Question
XL 2016 La méthode Range de l'objet value à échoué
Réponses
8
Affichages
571
Hamadou
H
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
530
robpellan52
R
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
404
Chaton77
C
  • Résolu(e)
XL 2016 erreur 1004 _ la méthode range de l'objet global a échoué
Réponses
5
Affichages
677
ced91300
C
J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
1 K
Joujita31
J
O
  • Résolu(e)
XL 2013 Erreur : La méthode 'range' de l''objet'_Global a échoué
Réponses
5
Affichages
611
kiki29
R
  • Question
XL 2021 Erreur d'exécution '-2147417848 (80010108). La méthode '-Default' de l'objet 'Range' a échoué après quelques saisies d'enregistrement
2
Réponses
23
Affichages
2 K
Rv_38
R
B
  • Question
Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste
Réponses
1
Affichages
443
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…