Se connecter avec
S'enregistrer | Connectez-vous

vba word

Dernière réponse : dans Programmation

bonjour a tous,
cela fais un moment que je n'ai pas fais appel à votre aide, donc voici mon petit probleme.

A l'initialisation de mon userform je lui demande de verifier dans le lecteur "D" si il n'y a pas le dossier "temporaire " et dedans le fichier "test.doc".
pour ce faire :
  1. Private Sub UserForm_Initialize()
    

  2. if dir("D:\temporaire\test.doc") <> "" then
    

  3. msgbox "le fichier existe déjà"
    

  4. kill "D:\temporaire\test.doc"
    

  5. RmDir "D:\temporaire"
    

  6. else
    

  7. msgbox "le fichier n'existe pas"
    

  8. end sub


seulement, il me détruit bien le document mais au moment de détruire le dossier il me tape un erreur
sur acces chemin !!!!!!!!!

Donc ou est mon erreur ???? Celà fais un bon moment que je cherche mais je ne trouve pas
si quelqu'un peu m'aider, je suis preneur

Autres pages sur : vba word

Lassé par la pub ? Créez un compte
Expert Programmation

J'ai fait un petit topo sur l'existance d'un fichier, ici : http://www.presence-pc.com/forum/ppc/Programmation/exce...

Ce qui semble se passer : Dir semble ouvrir des descripteurs de fichiers à l'emplacement de ton test.doc donc dans le dossier contenant ce fichier. Comme il n'y a pas de "CloseDir", ces descripteurs restent instanciés jusqu'à je-ne-sais-quand et le dossier ne peut être supprimé.

Comme je n'ai pas les sources de VB, il est fort possible que ce ne soit pas ça.
Fred, dis-nous si ça marche avec la fonction FileExists proposée.

merci Zeb pour ta réponse mais ce coté là je l'ai déjà expérimenté mais rien......... par contre si j'utilise "curDir" il me détruit bien mon dossier "temporaire"mais si dans "D" il n'y a rien l userform n'apparait plus !!!!!

et si j essai ça 
  1. Private Sub UserForm_Initialize()
    

  2. if dir("D:\temporaire\test.doc" ) <> "" then
    

  3. msgbox "le fichier existe déjà"
    

  4. kill "D:\temporaire\test.doc"
    

  5. if curdir("D:\temporaire" ) <> "" then
    

  6. msgbox "le fichier existe déjà 2"
    

  7. RmDir "D:\temporaire"
    

  8. else
    

  9. msgbox "le fichier n'existe pas"
    

  10. end sub

je pense que je dois faire une erreur de syntaxe !!!!!!!!!
Expert Programmation

KangOl» Raté ! Le VB ignore complètement ce genre de chose :sarcastic: 

Freeman23» C'est ce que je proposais, mais fred014 me dit "mais ce coté là je l'ai déjà expérimenté mais rien." Je ne comprends pas où est le problème. Une idée ?

J'ai fait le test et j'ai bien le meme problème. Par contre avec FileSystemObject ca fonctionne.
  1. Public Sub test()
    

  2.  
  3.     Dim fichier         As Object
    

  4.  
  5.     Set fichier = CreateObject("Scripting.FileSystemObject")
    

  6.     fichier.deletefolder "d:\temporaire", True
    

  7. End Sub

Bonjour,
en effet cela fonctionne !!!! :whistle:  :whistle:  :whistle: 
voici mon code
  1. Sub Bouton1_QuandClic()
    

  2. If Dir("E:\temporaire") = "" Then
    

  3. MsgBox "le fichier existe pas"
    

  4. Else
    

  5. Dim fichier As Object
    

  6. MsgBox "le fichier existe "
    

  7. Set fichier = CreateObject("Scripting.FileSystemObject")
    

  8. fichier.DeleteFolder "E:\temporaire\*.*", True
    

  9. fichier.DeleteFolder "E:\temporaire", True
    

  10. End If
    

  11. End Sub

donc lorsque dans "E" il ya le dossier temporaire et le fichier ".doc" ,cela se supprime mais lorsqu'il n'y a rien cela bug une erreur .
il ne comprend pas que si il n'y a rien ben il ne fais rien
Pourquoi ???????

Excuse moi !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1. Sub Bouton1_QuandClic()
    

  2. Dim fichier As Object
    

  3. Set fichier = CreateObject("Scripting.FileSystemObject" )
    

  4. fichier.DeleteFolder "E:\temporaire\*.*", True
    

  5. fichier.DeleteFolder "E:\temporaire", True
    

  6. End Sub

comme ça c'est mieux :p  :p  :p 
Mais comment lui dire que si il n'y a rien ben il fait rien ???????
je n'arrive pas à mettre ma condition en forme

LOL

Oui bien sur !!!!
Mais si j ecris ceci:
  1. Sub Bouton1_QuandClic()
    

  2. Dim fichier As Object
    

  3. Set fichier = CreateObject("Scripting.FileSystemObject" )
    

  4. fichier.DeleteFolder "E:\temporaire", True
    

  5. set fichier = nothing
    

  6. End Sub

lorsqu'il n'y rien il me tape toujours la meme erreur .
il repare sur la recherche du dossier!!!!
Lassé par la pub ? Créez un compte

Créer un nouveau sujet