macro copie des Parts dans un Product

[xav18000]

Bonjour à tous,

 

J'aimerais lancer une copie automatique des Parts d'un Product dans un sous-produit créé dans le même Product.

 

Comment faire pour que les éléments de ma sélection

 

Set selection1 = productDocument1.Selection

selection1.Search "Type=Part,all"

 

soient copiés dans le sous-produit que je créé dans la même macro

 

Set product1 = productDocument1.product

Set products1 = product1.Products

Set product2 = products1.AddNewComponent("Product", "Vieux_Produit")

 

Jusqu'à présent un simple Copy ne fonctionne pas.

Je crois que l'instruction suivante ne fonctionne pas pour extraire les éléments et ensuite les copier :

 

Set product(i) = selection1.Item(i).Value

product2.Addproduct(i)

 

Je vous remercie d'avance si vous avez une solution !

 

Xav