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
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
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:
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
Code:
merci bonne journée