OVH Cloud OVH Cloud

Test sur existence ou création d'un répertoire

1 réponse
Avatar
Sky
Bonjour à tous,

Je sais qu'il est possible de créer un répertoire à partir de word grace à
la fonction mkdir mais peut-on effectuer une recherche d'un répertoire ?
En fait, je cherche à créer un code sous word qui me permettrait
d'enregistrer un fichier dans un répertoire précis et de créer ce dernier si
il n'existe pas ?

Je ne sais malheureusement pas par quel bout prendre cette problématique.

Merci de vos suggestions


--
Franck SCHRICKE

1 réponse

Avatar
AB
Bonjour,
Peut-être une piste ci-après :
Sub test()
On Error GoTo 100
ChDir "E:Mes documentsFinancement"
ActiveDocument.SaveAs ("E:Mes documentsFinancementessai")
Exit Sub
100 MkDir "E:Test"
ActiveDocument.SaveAs ("E:Testessai")
End Sub

Cette macro cherche à sauvegarder le document "essai" dans "Mes
documentsFinancement"
Si ce répertoire n'existe pas, elle crée sur E un répertoire "Test", et y
sauvegarde le fichier "essai"
AB



"Sky" a écrit dans le message de news:
42d52e8a$0$22282$
Bonjour à tous,

Je sais qu'il est possible de créer un répertoire à partir de word grace à
la fonction mkdir mais peut-on effectuer une recherche d'un répertoire ?
En fait, je cherche à créer un code sous word qui me permettrait
d'enregistrer un fichier dans un répertoire précis et de créer ce dernier
si il n'existe pas ?

Je ne sais malheureusement pas par quel bout prendre cette problématique.

Merci de vos suggestions


--
Franck SCHRICKE