Comparer le texte de deux cellules dans deux fichiers

[fredovba]

Bonjour,
comme indiqué dans le titre Je souhaite comparer deux cellules dans deux fichiers différents.
Si le texte est le même j'envoie un texte.

if cellule1 = cellule2 then
msgbox "xxxx"

j'ai essayé
cellule1 = Windows("xxx.xls").Activate
Range("B10").Select

cellule2 = Windows("yyyyy.xls").Activate
Range("C11").Select

mais ça ne fonctionne pas

merci de votre aide

 

[JNP]

Re : Comparer le texte de deux cellules dans deux fichiers

Bonjour Fredovba 🙂,
La syntaxe serait plutôt

Windows("xxx.xls").Activate
cellule1 = Sheets("Feuil1").Range("B10")
Windows("yyyyy.xls").Activate
cellule2 = Sheets("Feuil1").Range("C11")
ThisWorkbook.Activate

Bon WE 😎

 

[Staple1600]

Re : Comparer le texte de deux cellules dans deux fichiers

Bonjour


Un exemple (pour le fun )

2 fichiers ouverts dans le même répertoire, nommés fichierA et fichierB
(le code de la macro est dans le fichier: fichierA )

Sub compare2f()
Dim wbk1 As Workbook:       Set wbk1 = Workbooks("fichierA.xls")
Dim wbk2 As Workbook:       Set wbk2 = Workbooks("fichierB.xls")
Dim f1 As Range:            Set f1 = wbk1.Sheets(1).[B10]
Dim f2 As Range:            Set f2 = wbk2.Sheets(1).[C11]
 
MsgBox "Les cellules " & ((IIf(f1 = f2, "sont ", "ne sont pas "))) & "équivalentes.", vbInformation, "RESULTAT DE LA COMPARAISON"

End Sub

 

[fredovba]

Re : Comparer le texte de deux cellules dans deux fichiers

merci beaucoup, ça fonctionne