VBA - recherche d'une valeur copiée

[altefqhatre]

Bonjour,

J'aimerais rechercher une premier valeur dans un fichier, la copier, puis ouvrir un deuxième classeur et y effectuer une recherche de la première valeur...

ça peut paraître bête mais le code suivant ne passe pas:

    Workbooks.Open Filename:="test.xls", _
        UpdateLinks:=0
        
        
    Workbooks.Open Filename:="test2.xls"
    
    
    Cells.Find(What:="Date test", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Copy
    
   
    Workbooks("test.xls").Sheets("Sht").Activate
    
     Cells.Find(What:=[B][COLOR="Red"]Selection.Paste[/COLOR][/B], After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select

Il me renvoie l'erreur 438 "Propriété ou méthode non gérée par cet objet"

C'est sans doute le collage de la sélection qui pose souci, mais je sais pas comment le formuler.. :-S

D'avance merci beaucoup!

a++

 

[Gorfael]

Re : VBA - recherche d'une valeur copiée

Salut altefqhatre et le forum

J'aimerais rechercher une premier valeur dans un fichier, la copier, puis ouvrir un deuxième classeur et y effectuer une recherche de la première valeur...

Une proposition

Dim Cel as Range
'....
Workbooks.Open Filename:="test.xls", UpdateLinks:=0
Workbooks.Open Filename:="test2.xls"
set cel=Cells.Find(What:="Date test)
if cel is nothing then exit sub
set cel=cel.offset(0,1)
Workbooks("test.xls").Sheets("Sht").Activate
Cells.Find(What:=Cel).Select

A+