VBA - recherche d'une valeur copiée

altefqhatre · 17 Mars 2010

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:

Code:

    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 · 17 Mars 2010

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

Code:

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+

VBA - recherche d'une valeur copiée

altefqhatre

Guest

Gorfael

XLDnaute Barbatruc

Discussions similaires

VBA - recherche d'une valeur copiée

altefqhatre

Guest

Gorfael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency