Discussion :

[yakup.67]

Bonjour à tous,
je voulais savoir comment peut on traduire cette phrase en vb :
si le fichier excel essais.xls se trouvant dans le répertoire C:\TP existe alors
on supprime ce fichier excel.

J'en ai une autre : comment savoir si ce même fichier excel est ouvert ou pas en vb?

Merci d'avance à tous !!

[LeForestier]

bonjour,
A ta 1ére question

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Txt as string, Bf as string
Bf = "C:\TP\essais.xls "
Txt= Dir Bf
If Txt = "" then
    msgBox "Le fichier n'existe pas"
else
    msgBox " Le fichier existe"
    'Supprime le fichier
    Kill Bf
end if

Pour la 2ém je regarde
A+
Edit:
Ouvert dans la même instance de Excel ou pas ?

[pgz]

Bonjour.

si le fichier excel essais.xls se trouvant dans le répertoire C:\TP existe alors
on supprime ce fichier excel.

En utilisant la bibliothèque IWSH, du genre

Code :

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

1
2
3
4
5
Dim fso as IwshRuntimeLibrary.FileSystemObject
 
Set fso = New IWSH...filesystemobject
if fso.fileexists("C:\TP\essais.xls") then call fso.DeleteFile("C:\TP\essais.xls")
set fso = Nothing

J'en ai une autre : comment savoir si ce même fichier excel est ouvert ou pas en vb?

Si tu sais dans quelle application le classeur serait ouvert, c'est facile : consulter la collection Workbooks de l'appli.

Sinon, ... c'est compliqué.

Bon courage,

PGZ

[cavo789]

Bonjour.

En utilisant la bibliothèque IWSH, du genre

Code :

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

1
2
3
4
5
Dim fso as IwshRuntimeLibrary.FileSystemObject
 
Set fso = New IWSH...filesystemobject
if fso.fileexists("C:\TP\essais.xls") then call fso.DeleteFile("C:\TP\essais.xls")
set fso = Nothing

Si tu sais dans quelle application le classeur serait ouvert, c'est facile : consulter la collection Workbooks de l'appli.

Sinon, ... c'est compliqué.

Bon courage,

PGZ

C'est même carrément impossible : ouvert par qui ? Par toi sur ton PC ou par quelqu'un d'autre.

Si c'est par toi, tu peux analyser quelles sont les instances de MSExcel qui sont running sur ton PC (il peut y en avoir plusieurs). Pour chaque instance, tu peux déterminer quelles sont les classeurs ouvert et vérifier le Workbook.FullName.

Si c'est sur un autre PC, hum hum.... C'est carrèment impossible (du moins je crois).

Un test idiot : par programmation, essaie de renommer le fichier. Si cela fonctionne, c'est que personne ne l'a ouvert. Si pas OK, tu sais que quelqu'un est dedans.