Macro ac conditions

[PepT]

bonjour
besoin d'un coup de main, je vous explique, jai 2 fichiers TRA.xls et Class.xls, pr chaque feuille ds Class.xls j'aimerai recupérer une valeur ds TRA.xls. jusque là tout va bien

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Dim toto As String
Workbooks.Open Filename:="D:\xxxx\yyyyy\TRA.xls"
ws.Activate
For i = 1 To Range("c1").End(xlDown).Row
If Cells(i, 3).Value = "TRA08F" Then
Windows("TRA.xls").Activate
Sheets("TRA08F").Select
'le pb est ici, jaimerai sélectionner la ligne j où ds la colonne B le "nom" = la celluleB2 du Class.xls. ds cette ligne selectionnée la cellule Cj est la copier ds Class.xls\feuilleactive
Selection.Copy
Windows("Class.xls").Activate
Cells(i, 5).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End If
Next i
Next ws

Pourriez vous m'aider? svp

 

[skoobi]

Re : Macro ac conditions

Re,

voici un nouveau code à mettre dans le fichier Class.xls:

Set Wb_TRAV = Workbooks("TRAV.xls")
For n = 2 To [B65536].End(xlUp).Row
  With Wb_TRAV.Sheets("TRA08E")
    Set nom = .Columns("B").Find(Range("B" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not nom Is Nothing Then
      For i = 0 To 10 'à ajuster on fonction du nombre de code que peut avoir une personne
        If Range("C" & n + i).Value = Wb_TRAV.Sheets("TRA08E").Name Then
          Range("D" & n + i).Value = nom.Offset(0, 1).Value
          Exit For
        End If
      Next
    End If
  End With
Next

comment fait-on pour ouvrir un fichier.xls qui a son nom ds une cellule?

Workbooks.Open("Chemin du répertoire\" & [B1] & ".xls")

 

[PepT]

Re : Macro ac conditions

MErci bcp jai tout adapté tout fonctionne, je revis!! Merci encore
bonne journée