Comparaison de la valeur de 2 cellules dans 2 classeurs différents

Le
Amar Lacheheb
Bonsoir,
Je cherche à comparé la valeur de celllules dans 2 classeurs à l'aide de
code VBA.
Je voudrai faire cette comparaison directement sans activé les classeurs
l'un après l'autre.
Cela est-il possible?
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #5426951
Salut Amar,
Avec quelque bidouille sur ce code ca va aller
Je pense que d'avoir la valeur d'une cellule sans devoir ouvrir le fichier
va faire avancer ta macro
A+ si besoin
Youky

Sub Macro1()
'R8 est la ligne 8
'C1 est la colonne 1
'MsgBox Application.ExecuteExcel4Macro("'C:Documents and SettingsBruno
JEUNEMes documents[toto.xls]Tuiles'!R8C1")
'ou encore si les 2 fichiers sont dans lemm répertoire
Chemin = "'" & ThisWorkbook.Path & ""
Fichier = "[toto.xls]"
Onglet = "Tuiles'!"
ChampALire = "R8C2"
On Error Resume Next
MsgBox Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet &
ChampALire)
'MsgBox Application.ExecuteExcel4Macro(Chemin & "[toto.xls]Tuiles'!R8C2")
End Sub

"Amar Lacheheb" fsthln$npt$
Bonsoir,
Je cherche à comparé la valeur de celllules dans 2 classeurs à l'aide de
code VBA.
Je voudrai faire cette comparaison directement sans activé les classeurs
l'un après l'autre.
Cela est-il possible?
Merci de votre aide



Amar Lacheheb
Le #5426311
Merci pour ton aide
"Youky" %
Salut Amar,
Avec quelque bidouille sur ce code ca va aller
Je pense que d'avoir la valeur d'une cellule sans devoir ouvrir le fichier
va faire avancer ta macro
A+ si besoin
Youky

Sub Macro1()
'R8 est la ligne 8
'C1 est la colonne 1
'MsgBox Application.ExecuteExcel4Macro("'C:Documents and SettingsBruno
JEUNEMes documents[toto.xls]Tuiles'!R8C1")
'ou encore si les 2 fichiers sont dans lemm répertoire
Chemin = "'" & ThisWorkbook.Path & ""
Fichier = "[toto.xls]"
Onglet = "Tuiles'!"
ChampALire = "R8C2"
On Error Resume Next
MsgBox Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet &
ChampALire)
'MsgBox Application.ExecuteExcel4Macro(Chemin & "[toto.xls]Tuiles'!R8C2")
End Sub

"Amar Lacheheb" fsthln$npt$
Bonsoir,
Je cherche à comparé la valeur de celllules dans 2 classeurs à l'aide de
code VBA.
Je voudrai faire cette comparaison directement sans activé les classeurs
l'un après l'autre.
Cela est-il possible?
Merci de votre aide







Publicité
Poster une réponse
Anonyme