Discussion :

[nicobox]

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

[fisherman]

voili un exemple

Code :

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

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

[nicobox]

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 ?

[fisherman]

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 :

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

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

[nicobox]

Vraiment merci !

[nicobox]

Auter question

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

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

[fisherman]

Code :

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

Workbooks(MacroFileName).Close SaveChanges:=False

essaye avec ca ??

[nicobox]

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

SaveChanges:=False