Exécution application externe shell AppActivate

**Nico_stras** · 01/08/2007, 17h05

Bonjour,

Je souhaite créer un dossier, mais avant, s'il existe, le supprimer

Code :

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

1
2
3
            AppID = Shell("cmd /c rmdir /q /s " + strPathDirectory + "tmpXL\", vbHide)
            ' Là, il faut que j'attende la fin de l'exécution
            MkDir (strPathDirectory + "tmpXL")

Comment faire attedre la fin de l'exécution ?

J'ai essayé AppActivate(), mais je ne trouve pas les bons arguements.

Merci pour votre aide

Nicolas
strasbourg

**jfontaine** · 01/08/2007, 17h24

Il existe une API ShellWait qui lance une application mais attend la fin de son execution pour continuer le code

Sur ce lient tu trouveras le code
http://docvb.free.fr/codedetail.php?idc=23

**Garuda** · 01/08/2007, 18h26

Et pourquoi pas

Code :

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

1
2
3
4
5
Dim fs as object
Set fs = CreateObject("Scripting.FileSystemObject") 
fs.RmDir(strPathDirectory + "tmpXL") 
fs.MkDir(strPathDirectory + "tmpXL")

**Nico_stras** · 01/08/2007, 19h02

Envoyé par Garuda

Et pourquoi pas

Code :

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

1
2
3
4
5
Dim fs as object
Set fs = CreateObject("Scripting.FileSystemObject") 
fs.RmDir(strPathDirectory + "tmpXL") 
fs.MkDir(strPathDirectory + "tmpXL")

Parce que mon dossier n'est pas vide...

Mais je me permets de rebondir

Ce "CreateObject", comment connaitre les objets existants ? Est-ce du .Net ?

**Garuda** · 02/08/2007, 10h12

Envoyé par Nico_stras

Parce que mon dossier n'est pas vide...

Mais je me permets de rebondir

Ce "CreateObject", comment connaitre les objets existants ? Est-ce du .Net ?

On est pas dans un forum VBA, ici ???

**Nico_stras** · 02/08/2007, 12h05

Envoyé par Garuda

On est pas dans un forum VBA, ici ???

Si, justement, c'est pour ça que je m'interroge sur ces objets.
Est ce des objets internes à office ? VBA permet d'accéder à des objets .Net ?

**Nico_stras** · 01/08/2007, 18h28

Merci beaucoup.

N'y a-t-il pas une fonction en VBA de base ?
Ca fait quand même lourd comme traitement juste pour attendre ...

Vite codé, mais bon ... A tout hasard.