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

Probleme objet Requis VBA

  • Initiateur de la discussion Initiateur de la discussion tydher
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

tydher

Guest
Bonjour à tous.

Je souhaiterai remplir une feuille de mon fichier 2 par une plage de mon fichier 1.
J'ai donc ecrit

Code:
WbName = ActiveWorkbook.name
Application.Workbooks.Open("xxx.xls").Activate
Workbooks("xxx.xls").Sheets("yy").Range("A1:D161").Value=WbName.Sheets("Famille").Range("A1:D161").Value

Cependant, il me met l'erreur Objet requis sur ma derniere ligne et je n'arrive pas à comprendre pourquoi.

Merci d'avance pour vos réponses
 
Re : Probleme objet Requis VBA

Bonjour,

essaye comme ceci :
Code:
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.Workbooks.Open("xxx.xls").Activate
Workbooks("xxx.xls").Sheets("yy").Range("A1:D161").Value = wb.Sheets("Famille").Range("A1:D161").Value
bonne journée
@+
 
Re : Probleme objet Requis VBA

Bonjour tydher,

soit ta variable WbName est une variable de type String qui contient juste le nom du classeur, et tu dois utiliser la syntaxe :

Code:
WbName = ActiveWorkbook.name
Application.Workbooks.Open("xxx.xls").Activate
Workbooks("xxx.xls").Sheets("yy").Range("A1:D161").Value=Workbooks(WbName).Sheets("Famille").Range("A1:D161").Value
soit ta variable représente l'ensemble de l'objet classeur (déclarée "As Workbook") et tu dois utiliser Set pour affecter une variable objet (sans la propriété ".Name")

Code:
Set WbName = ActiveWorkbook
Application.Workbooks.Open("xxx.xls").Activate
Workbooks("xxx.xls").Sheets("yy").Range("A1:D161").Value=WbName.Sheets("Famille").Range("A1:D161").Value

Edit : Bonjour Pierrot 😉
 
Re : Probleme objet Requis VBA


Bonjour tydher,

Il me semble qu'il faut écrire :

Code:
Set WbName = ActiveWorkbook.name

A tester.

Cordialement.

Edit : bonjour tototiti, Pierrot
 
Re : Probleme objet Requis VBA

Merci de vos réponses rapide 🙂

Comme l'a suggéré Tototiti, il me manquais le Workbooks(Wbname) pour ma seconde feuille.
J'ai donc
Code:
WbName = ActiveWorkbook.name
Application.Workbooks.Open("xxx.xls").Activate
Workbooks("xxx.xls").Sheets("yy").Range("A2:I175").Value = Workbooks("WbName").Sheets("yy").Range("A2:I175").Value

Cependant, une autre erreur est apparu,
L'indice n'appartient pas à la selection, toujours sur la même ligne.
 
Dernière modification par un modérateur:
Re : Probleme objet Requis VBA

Re, bonjour toto, papou

enlève les guillemets :
Code:
Workbooks("xxx.xls").Sheets("yy").Range("A2:I175").Value = Workbooks(WbName).Sheets("yy").Range("A2:I175").Value
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
Réponses
2
Affichages
989
Rousseau Benoit
R
L
Réponses
1
Affichages
1 K
L
Réponses
6
Affichages
939
Réponses
4
Affichages
893
A
  • Résolu(e)
Réponses
4
Affichages
892
T
  • Question Question
Réponses
4
Affichages
5 K
tangiwankenobi44
T
A
Réponses
14
Affichages
1 K
Arnaud59000
A
N
Réponses
0
Affichages
822
nouun
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…