Discussion :

[GuyDuLac]

Bonjour à tous

Je créé un dossier temporaire pour y glisser un fichier que je copierai dans un autre dossier par la suite. J'aimerais par vba fermer ce dossier pour ensuite pouvoir le supprimer. En ce moment la suppression du dossier ne se fait pas parce qu'il est toujours ouvert.


voici mon code

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub ChoixType_AfterUpdate()
'Valide si c'est une procédure pour attacher un fichier
If Me.ChoixType = 2 Then
 
    'Créer un dossier temporaire et l'ouvrir
     CreerDossierTemporaire
 
    'Valide que le fichier a bel et bien été mis dans le dossier temporaire
    If MsgBox("Avez-vous mis l'attachement voulu dans le dossier temporaire?", vbYesNo, strTitre) = vbYes Then
        RecupereNomFichier
        RecupereExtension
        CopierFichier
        DoEvents
        Kill (Trim(VCheminFichier) & Trim(Me.FluTitre)) 'supprime le ficier temporaire
    End If
    SupprimeDossierTemporaire
 
End If
 
End Sub
 
 
 
Private Sub CreerDossierTemporaire()
VdossierTempo = "C:\" & Environ("Username") & CodeUnique2(Now())
MkDir (VdossierTempo)
DoEvents
lien_web_ouverture (VdossierTempo)
End Sub
 
 
 
Private Sub SupprimeDossierTemporaire()
 
DoEvents
RmDir (VdossierTempo)
End Sub
 
 
 
Private Sub RecupereNomFichier()
VCheminFichier = VdossierTempo & "\"
Me.FluTitre = Dir(VCheminFichier)
End Sub
 
 
Private Sub RecupereExtension()
VExtension = RecupereExtensionFichier(Me.FluTitre)
End Sub
 
 
Private Sub CopierFichier()
LaSource = VCheminFichier & Me.FluTitre
LaDestination = "C:\CloudGuy\Dropbox\GAL\FluxFichier\" & Trim(Str(Me.FluId)) & Trim(VExtension)
CopyFile LaSource, LaDestination
End Sub

[texas2607]

Salut,
si cela peut t'aider : http://warin.developpez.com/access/fichiers/

Fred