Discussion :

[BAYRAL]

Bonjour à toutes et à tous,

Je souhaiterai pouvoir via une macro VBA tester l'existence d'un sous répertoire sur le réseau ou disque dur.
Si celui-ci existe, alors copie fichier à l'intérieur
sinon, création du sous-répertoire et copie du fichier.
Merci par avance de votre aide.

[stujava]

Voici un exemple pour t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Dir("C:\répertoire\sousrepertoire", vbDirectory) = "" Then
  Msgbox "Le répertoire n'existe pas"
  'Création du répertoire
  MkDir "C:\répertoire\sousrepertoire"
Else
  Msgbox "Le répertoire existe"
   'Copie dans le répertoire
    FileCopy "Source", "Destination"
End If

[PipoWIL]

Bonjour,
Voici une autre methode qui te permettra d'obtenir le même résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function test_Folder()
Dim fso As Object
Dim oFolder As Object
Dim Files As Object
Dim file As Object
Dim strPath_F As String
 
strPath_F = "C:\Temp\Nouveau"
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
On Error Resume Next
Set oFolder = fso.getfolder(strPath_F)      'si le folder n'existe pas, cette ligne donne une erreur 76 "Path Not Found"
 
If fso.folderexists(strPath_F) Then
    Debug.Print "oui, le folder existe"
Else
    Debug.Print "non, le folder n'existe pas"
    Set oFolder = fso.createfolder("C:\Temp\Nouveau")
End If
 
Set oFolder = Nothing
 
 
End Function

La méthode de stujava me semble plus simple et donc meilleure.