[VBA-E] Lire des valeurs dans un fichier excel

Bonjour,

J'aimerais, en utilisant du code VBA, depuis un fichier Excel lire une valeur d'une cellule d'un autre fichier Excel qui ne doit pas etre ouvert.

Quelqu'un pourrait m'aider ?

Ca doit pas etre dur mais je trouve pas la syntaxe.

D'avance merci

voili un exemple

Code:

---

1 2 3 4 5 6 7

Dim file As Object Set file = CreateObject("Scripting.FileSystemObject") If file.FileExists("c:\fic.xls") Then Workbooks.Open Filename:="c:\fic.xls", ReadOnly:=True Windows("fic.xls").Visible = False end if

---

Ok merci, mais ensuite tu fais comment pour récupérer un valeur et la passer dans mon fichier ?

Par exemple, je veux récupérer la valeur de la cellule A5 du fichier fic.xls et la mettre dans une cellule de mon fichier ?

Par exemple, je veux récupérer la valeur de la cellule A5 du fichier fic.xls et la mettre dans une cellule de mon fichier ?

Code:

---

1 2 3 4

' premiere feuille du workbook Workbooks("nomDeMonWorkBook").worksheets(1).range("A1").value = Workbooks("fic.xls").worksheets(1).range("A5").value

---

Workbooks("nomDeMonWorkBook") généralement activeWorkbook aussi

Vraiment merci !

Auter question

quand je fais un Workbooks("essai.xls").Close

il me demande une confirmation de fermeture, comment faire pour eviter celà ?

Code:

---

Workbooks(MacroFileName).Close SaveChanges:=False

---

essaye avec ca ??

C'est bon j'ai trouvé il fallait rajouté après le close :

SaveChanges:=False