Probleme objet Requis VBA

[tydher]

Bonjour à tous.

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

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

 

[Pierrot93]

Re : Probleme objet Requis VBA

Bonjour,

essaye comme ceci :

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
@+

 

[tototiti2008]

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 :

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")

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 😉

 

[Papou-net]

Re : Probleme objet Requis VBA

Bonjour à tous.

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

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

Bonjour tydher,

Il me semble qu'il faut écrire :

Set WbName = ActiveWorkbook.name

A tester.

Cordialement.

Edit : bonjour tototiti, Pierrot

 

[tydher]

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

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.

 

[Pierrot93]

Re : Probleme objet Requis VBA

Re, bonjour toto, papou

enlève les guillemets :

Workbooks("xxx.xls").Sheets("yy").Range("A2:I175").Value = Workbooks(WbName).Sheets("yy").Range("A2:I175").Value

 

[tydher]

Re : Probleme objet Requis VBA

Ha oui, cela venais bien des guillemets, je n'y aurais pas penser.

Merci beaucoup et bonne journée

 

[Papou-net]

Re : Probleme objet Requis VBA

Message annulé, Pierrot a résolu le problème.

Cordialement.