comparer 2 dates dans 2 fichiers excel

Bonjour
j ai un probleme comme beaucoup sur ce forum

je ne sais meme pas par ou commencer pour ecrire ce code

donc j aimerais comparer 2 dates dans 2 fichiers distincts

je m explique

fichier 1 feuille 1 cellule B1 (date)

fichier 2 feuille 1 cellule B5 (date)

si date ok alors on copie fichier 1 feuille 1 cellule B7 dans fichier 2 feuille 1 cellule B12

j ai essaye avec

Code:

---

1 2 3 4

if workbooks("d:\\fichier1.xls").worksheets(feuil1).range(b1).value= workbooks("d:\\fichier2.xls").worksheets(feuil1).range(b5).value then   ActiveCell.FormulaR1C1 = "=[fichier2]Feuil1!R8C2" Range("b13").Select

---

Citation:

---

Envoyé par sat3367

je ne sais meme pas par ou commencer pour ecrire ce code

---

Peut-être par là : http://bidou.developpez.com/article/VBA/

Citation:

---

j ai essaye avec

---

Il aurait mieux valu que tu fasses une copie du code que tu as tenté dans l'éditeur VBE.
Car le code que tu présentes ici n'est visiblement jamais passé par le VBE.

Citation:

---

fichier 1 feuille 1 cellule B1 (date)
fichier 2 feuille 1 cellule B5 (date)
si date ok alors on copie fichier 1 feuille 1 cellule B7 dans fichier 2 feuille 1 cellule B12

---

Il y a une première erreur qui saute aux yeux dans ton code : on ne mets pas de chemin dans l'indice de Workbooks.
Un Workbook n'est pas un fichier mais un classeur. La différence peut paraitre mince mais elle est réelle : un classeur, c'est un fichier chargé dans Excel.
Donc, si tes fichiers ne sont pas ouvert, ton code ne peut pas fonctionner.

Deuxièmement, quand on désigne une feuille par son nom dans WorkSheets, on met ce nom entre guillemets.
Idem pour les références de cellules dans un Range.

Et une structure If Then se cloture par un End If.

Bref, je crois que la lecture du document que j'ai mis en lien au début de ce message te serait très utile.

Code:

---

1 2 3

If Workbooks("fichier1.xls").Worksheets("feuil1").Range("B1").Value = Workbooks("fichier2.xls").worksheets("feuil1").Range("B5").Value Then Workbooks("fichier2.xls").Worksheets("feuil1").Range("B12").Value = Workbooks("fichier1.xls").worksheets("feuil1").Range("B7").Value End If

---

Citation:

---

Envoyé par sat3367

if workbooks("d:\\fichier1.xls").worksheets(feuil1).range(b1).value= workbooks("d:\\fichier2.xls").worksheets(feuil1).range(b5).value then

---

Si le fichier est ouvert pas besoin de mettre le chemin dans workbooks, si il n'est pas ouvert commence par l'ouvrir (workbooks.open)
Si tu ne met pas de guillemets feuil1 est considéré comme une variable et pas du texte, idem pour b1,b5

Code:

---

if workbooks("fichier1.xls").worksheets("feuil1").range("b1").value= workbooks("fichier2.xls").worksheets("feuil1").range("b5").value then

---

Citation:

---

on copie fichier 1 feuille 1 cellule B7 dans fichier 2 feuille 1 cellule B12

---

Code:

---

workbooks("fichier1.xls").worksheets("feuil1").range("b7").copy destination:= workbooks("fichier2.xls").worksheets("feuil1").range("b12")

---