Set C = Windows("Fichier.xls").sheets("F1")

Set C = Windows("WEb logiq 9 BT06 à BT09 au 8 avr 15_23022016.xlsx").Sheet("feuil1")

en fait je voudrais affecter à C une feuille et a R une autre feuille

sachant que chacune des feuilles est dans un fichier différent.

Set C = Windows("fichier1.xls").Sheet("feuil1")

Set R = Windows("fichier2.xls").Sheet("feuil1")

et j'ai beau chercher dans google je ne trouves pas quelqu'un saurait il comment faire ?

merci d'avance

c'est pour faire ça :

Set C = Workbooks("WE_logiq 9 BT06 à BT09 au 8 avr 15_23022016.xlsx").Sheet("feuil1")

Set R = Workbooks("13-05_ULS_machines seules.xls").Sheet("report 1")

Set Resultat = Workbooks("WE_logiq 9 BT06 à BT09 au 8 avr 15_23022016.xlsx").Sheet("feuil3")

On Error Resume Next

j = 1

For i = 2 To R.Cells(Rows.Count, "A").End(xlUp).Row

Set adresse = R.[A:A].Find(What:=C.Cells(i, "B"), LookAt:=xlPart)

If Not (adresse Is Nothing) Then C.Cells(i, "H") = "OK"

If (adresse Is Nothing) Then

R.Rows(i).Select

Selection.Copy

Resultat.Rows(j).Select

ActiveSheet.Paste

j = j + 1

Else

With Sheets("Feuil1")

Cells(i, "I") = "Existes dans la feuille 2"

End With

End If

Next

End Sub

Bonsoir,

Laisse tomber Windows ! Workbooks et Worksheets suffisent amplement.

Supprime tous les Select et Selection... de ton code, qui ne servent qu'à ralentir.

Utilise la balise Code pour montrer du code dans un Post.

Et autant que possible indente-le !

Cordialement.

Bien le bonjour,

J'ai donc une erreur '438' Propriété ou methode non gérée par cet objet sur la première ligne après la déclaration des variables :

Set C = Workbooks (".......

Si quelqu'un pouvait me dire ce qu'il ne va pas ?

Merci d'avance

Sub EOL()
Dim i As Integer
Dim j As Integer
Dim R As Worksheet
Dim C As Worksheet
Dim Resultat As Worksheet

Set C = Workbooks("WE_Logiq 9 BT06 à BT09 au 8 avr 15_23022016.xlsx").Sheet("feuil1")
Set R = Workbooks("13-05_ULS_machines seules.xls").Sheet("report 1")
Set Resultat = Workbooks("WE_Logiq 9 BT06 à BT09 au 8 avr 15_23022016.xlsx").Sheet("feuil3")

On Error Resume Next
j = 1
For i = 2 To R.Cells(Rows.Count, "A").End(xlUp).Row
    Set adresse = R.[A:A].Find(What:=C.Cells(i, "B"), LookAt:=xlPart)
    If Not (adresse Is Nothing) Then C.Cells(i, "H") = "OK"
    If (adresse Is Nothing) Then
        R.Rows(i).Copy
        Resultat.Rows(j).Paste
        j = j + 1
     Else
        With Sheets("Feuil1")
        Cells(i, "I") = "Existes dans la feuille 2"
        End With
    End If
Next

End Sub

Ok

Workbooks à la place de worksheets dans la déclaration de variable !!!!

je suis impardonnable.

Bonjour,

...Sheets...

Si tu mets un 's', ça devrait aller mieux.

Pour accéder à un objet individuel, on renvoie la collection à laquelle il appartient, à partir de l'objet parent, et on l'appelle en utilisant son nom ou son numéro d'index. C'est le cas général...

Cordialement.

Merci Mr Ferrand mais ça plante quand même tant pius je ferais des copier coller sur un 3 eme fichier car je réussis pas à lui dire à partir d'une simple macro de regarder la colonne D du fichier 1 et de la comparer avec la colonne A du fichier 2.

CA me semblait trop dur mais bon on va dire qu'il a remporter la premiere manche suite le prochain sujet ou là je pars du principe que j'ai copié mes deux fichiers dans un 3 eme fichiers.

Pffff

Mais merci beaucoup