Discussion :

[nicroq]

Bonjour a tous et merci pour votre aide;

j'ai une erreur dans mon code au niveau de .Copy.value je ne comprend pas pourquoi? pourriez vous m'aider?
si je mets que .copy cela marche tres bien mais lorsque je mets Copy.value j'ai erreur de xecution 424

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Set produit = Workbooks(nomfichier).Worksheets("Feuil1").Range("A1:A100").Find(what:="Composé", LookAt:=xlWhole)
    If produit Is Nothing Then Exit Sub
      Workbooks(nomfichier).Worksheets("Feuil1").Cells(produit.Row + 1, 5).Copy.Value _
    Workbooks(nomfichierperso).Worksheets("Semaine N°" & ComboBox3).Cells(1, 1)
Workbooks(nomfichier).Close True

merci bonne journée

[pijaku]

Bonjour,

Oui.
On ne copie pas la valeur.
On copie et on colle la valeur.
Pour coller (Collage spécial/Valeur), voir du côté de la méthode PasteSpecial :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PasteSpecial Paste:=xlPasteValues

[nicroq]

cela ne marche pas non plus avec pastespecial..
Dois je mettre ce code apres .copy?
merci cordialement

[pijaku]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks(nomfichier).Worksheets("Feuil1").Cells(produit.Row + 1, 5).Copy
Workbooks(nomfichierperso).Worksheets("Semaine N°" & ComboBox3).Cells(1, 1).PasteSpecial Paste:=xlPasteValues

[nicroq]

Merci!!!!!