Discussion :

[sat3367]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

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

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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