Comparer le texte de deux cellules dans deux fichiers

fredovba

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Comparer le texte de deux cellules dans deux fichiers

Bonjour Fredovba :),
La syntaxe serait plutôt
Code:
Windows("xxx.xls").Activate
cellule1 = Sheets("Feuil1").Range("B10")
Windows("yyyyy.xls").Activate
cellule2 = Sheets("Feuil1").Range("C11")
ThisWorkbook.Activate
Bon WE :cool:
 

Staple1600

XLDnaute Barbatruc
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 )

Code:
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
 

Discussions similaires