Discussion :

[besdu06]

Bonjour,

Avec le code ci dessous, dans le même répertoire "BO" je me retrouve avec les fichiers .UDO ET le répertoire "User" créé indépendamment. Ce que je voudrais c'est que les fichiers .UDO se retrouvent DANS le répertoire "User" créé en lançant une seule fois la commande:

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
Private Sub CmdSvgdeUDO_Click() 
Dim FSys 
Dim u As String 
Dim Source, Destination As String 
 
u = Environ("username") 
Set FSys = CreateObject("Scripting.FileSystemObject") 
 
Source = "X:\My Business Objects Documents\Universes\*.udo" 
Destination = "S:\...\BO" 
 
FSys.CreateFolder "S:\...\BO\" & u 
FSys.CopyFile Source, Destination, True 
Set FSys = Nothing 
MsgBox "Répertoire et fichiers bien crées !", vbInformation 
 
End Sub

...et ca je ne sais pas faire...vous auriez une petite idée?

Je vous remercie

[Tofalu]

Modifiez destination de telle sorte que la variable contienne le nom de l'utilisateur :

Code :

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

Destination = S:\...\BO\" & u

[besdu06]

Bonjour Tofalu,

J'ai suivis votre conseil mais lorsque j'exécute j'ai la ligne

Code :

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

FSys.CopyFile Source, Destination, True

qui est surligné en jaune.

Cependant, le répertoire "user" est crée mais sans les fichiers .UDO (ni dans le répertoire "user", ni dans le répertoire "BO").

Voici le code avec la modification que vous m'avez proposée :

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
Private Sub CmdSvgdeUDO_Click()
Dim FSys
Dim u As String
Dim Source, Destination As String

    u = Environ("username")
    Set FSys = CreateObject("Scripting.FileSystemObject")
          
    Source = "X:\My Business Objects Documents\Universes\*.udo"
    Destination = "S:\...\BO" & u    
    FSys.CreateFolder "S:\330_NICE\Portage Chartres\80- Centralisation_Bureautique\BO\" & u
    FSys.CopyFile Source, Destination, True
    Set FSys = Nothing
    MsgBox "Répertoire bien crée !", vbInformation
    
End Sub

Merci pour votre aide

[dumas.blr]

Bonjour,

J'écrirais plutôt

Code :

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

FSys.CopyFile Source, Destination & "\" , True

ainsi que c'est expliqué dans l'aide Access en ligne à copyfile

[besdu06]

Bonjour,

En fait il y a encore plus simple. Voici le code ci-dessous :

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
Private Sub CmdSvgdeUDO_Click()
Dim FSys
Dim u As String
Dim Source, Destination As String

    u = Environ("username")
    Set FSys = CreateObject("Scripting.FileSystemObject")
          
    Source = "X:\My Business Objects Documents\Universes\*.udo"
    Destination = "S:\...\BO\" & u
    
    FSys.CreateFolder "S:\...\BO\" & u
    FSys.CopyFile Source, Destination, True
    Set FSys = Nothing
    MsgBox "Répertoire et fichier bien crée !", vbInformation
    
End Sub

Dans la variable Destination, il faut ajouter un back slash + la variable u.

Merci pour toutes vos réponses, elles ont été d'un très grand aide