Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel concaténer des caractères avec cellule d'un autre classeur ...message d'erreur???

concaténer des caractères avec cellule d'un autre classeur ...message d'erreur???

4 réponses
Avatar
Fred
Bonjour,
J'ai un souci dans une macro...je voudrais concaténer le contenu d'une
cellule qui se situe sur un autre classeur B.xls en Feuil2...avec une
cellule de la feuil1 du classeur A.xls
Sur la macro en feuil1 du classeur A j'ai :

Sheets("Feuil1").Select
Dim i As Long
For i = 2 To [B65536].End(xlUp).Row
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2
Next i
Quand j'arrive sur la ligne : Cells(i, 2) = Cells(i, 2) & [B.xls].Liste!C2
j'ai le message d'erreur suivant
'Erreur d'exécution '424'....objet requis!
Je ne comprends pas pourquoi il y a cette erreur?
Merci de votre aide.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Remplace :
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2
par
Cells(i, 2) = Cells(i, 2) &
Workbooks("B.xls").Sheets("Feuil2").Range("C2")
Cordialement.
Daniel

"Fred" a écrit dans le message de news:
43726551$0$32757$
Bonjour,
J'ai un souci dans une macro...je voudrais concaténer le contenu d'une
cellule qui se situe sur un autre classeur B.xls en Feuil2...avec une
cellule de la feuil1 du classeur A.xls
Sur la macro en feuil1 du classeur A j'ai :

Sheets("Feuil1").Select
Dim i As Long
For i = 2 To [B65536].End(xlUp).Row
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2
Next i
Quand j'arrive sur la ligne : Cells(i, 2) = Cells(i, 2) & [B.xls].Liste!C2
j'ai le message d'erreur suivant
'Erreur d'exécution '424'....objet requis!
Je ne comprends pas pourquoi il y a cette erreur?
Merci de votre aide.





Avatar
Fred
Merci pour ta réponse....ça marche nickel!
Mais j'aurais aimé comprendre pourquoi ma macro avec les crochets ne
fonctionnait pas???

"Daniel" a écrit dans le message de news:
%
Bonsoir.
Remplace :
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2
par
Cells(i, 2) = Cells(i, 2) &
Workbooks("B.xls").Sheets("Feuil2").Range("C2")
Cordialement.
Daniel

"Fred" a écrit dans le message de news:
43726551$0$32757$
Bonjour,
J'ai un souci dans une macro...je voudrais concaténer le contenu d'une
cellule qui se situe sur un autre classeur B.xls en Feuil2...avec une
cellule de la feuil1 du classeur A.xls
Sur la macro en feuil1 du classeur A j'ai :

Sheets("Feuil1").Select
Dim i As Long
For i = 2 To [B65536].End(xlUp).Row
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2
Next i
Quand j'arrive sur la ligne : Cells(i, 2) = Cells(i, 2) &
[B.xls].Liste!C2 j'ai le message d'erreur suivant
'Erreur d'exécution '424'....objet requis!
Je ne comprends pas pourquoi il y a cette erreur?
Merci de votre aide.









Avatar
AV
Mais j'aurais aimé comprendre pourquoi ma macro avec les crochets ne
fonctionnait pas???


Simple erreur de syntaxe (méthode Evaluate)

au lieu de :
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2

écrire :
Cells(i, 2) = Cells(i, 2) & [[B.xls]Feuil2!C2]

AV

Avatar
Fred
Merci beaucoup pour votre aide!!!
Ah ces crochets!!!

"AV" a écrit dans le message de news:

Mais j'aurais aimé comprendre pourquoi ma macro avec les crochets ne
fonctionnait pas???


Simple erreur de syntaxe (méthode Evaluate)

au lieu de :
Cells(i, 2) = Cells(i, 2) & [B.xls].Feuil2!C2

écrire :
Cells(i, 2) = Cells(i, 2) & [[B.xls]Feuil2!C2]

AV