Discussion :

[Palmero]

Bonjour,

J'ai besoin d'aide pour finaliser la création de fichiers dans mon serveur depuis un formulaire access.
Aujourd'hui je sais créer un dossier sous mon explorateur.
Par contre je voudrais pouvoir changer le nom de ce dossier en fonction de la réactualisation des champs qui constituent son nom, sans perdre les données déjà enregistrées sous ce dossier.
Pour être clair dans ma table j'ai 6 champs qui peuvent ou pas être renseignés. Ce sont les enregistrements de ces champs qui constituent le nom de mon dossier. Mais si je complète un champ
après avoir crée un dossier, ça m'en crée un autre et je voudrais que ça complète juste mon nom de dossier. Le champ NumeroMachine lui est toujours existant et inchangeable( clé primaire)

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
Private Sub Fichiers_Attachés_Click()
 
Dim Chemin, CheminBase, DossierExiste, rep, NM As String
Dim ND, MQ, MC, NS, CN As Variant
 
    MQ = Me.Marque
    MC = Me.Machine
    NS = Me.NumeroSerie
    MD = Me.Type
    CN = Me.CommandeNumerique
    NM = Me.NumeroMachine
 
    ND = MQ & "-" & MC & "-" & MD & "-" & NS & "-" & CN & "-" & NM
 
    CheminBase = "\\192.XXXX\erp\ERP JPPI\DATAS\DATAS MACHINES2"
    Chemin = CheminBase & "\" & ND
    DossierExiste = Dir(Chemin, vbSystem + vbDirectory + vbHidden) <> ""
 
    If DossierExiste = 0 Then
        rep = MsgBox("Le dossier Machine n'existe pas !! Voulez vous que je le crée ? Attention n'utilisez pas de caractères spéciaux !! Merci ", vbYesNo)
 If rep = 6 Then
            'création du dossier
                MkDir CheminBase & "\" & ND
 
                AffichageFichierAttache = "Fichiers Attachés Existants"
                Shell "C:\windows\explorer.exe " & Chemin, vbMaximizedFocus
            Else
                Exit Sub
            End If
 
    Else
 
 
        'AffichageFichierAttache = "Fichiers Attachés Existants"
        Shell "C:\windows\explorer.exe " & Chemin, vbMaximizedFocus
    End If
 
 
 
End Sub

Merci pour votre aide.

[Robert1957]

Bonjour Palmero,

Pour modifier le nom de répertoire tu trouveras ton bonheur ici : https://www.developpez.net/forums/d1...sier-deplacer/

Cette partie en particulier:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function fuRep()
Dim fso As Object, FD As Object
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set FD = fso.GetFolder("C:\TonAncienRépertoire")
 
FD.Name = "TonNouveauRépertoire" 
Set fso = Nothing
Set FD = Nothing
End Function

Cependant le problème que je vois est que pour faire cela tu dois connaitre le nom du répertoire d'origine, est-ce possible dans l'état de ton application?

Bonne journée

[Palmero]

Merci pour ta réponse

Mon nom de dossier n'est pas connu car j'ai plusieurs variables qui sont ou pas utilisées pour créer le nom du dossier.
Je vais tester ta proposition

[Palmero]

Je n'arrive à rien car je ne parviens pas à faire vérifier si le nom existe déjà.
Car si je modifie un champs ensuite je clique sur création de dossier alors il prends comme info que le nouveau champ va créer un nouveau dossier.
Je tente encore.

[Robert1957]

Bonjour Palmero,

C'est ce que je disais dans mon post, il est impossible de renommer un répertoire si au départ on ne connait pas le nom de ce répertoire et ceci est valable même si on fait l'opération manuellement. Tu as un problème de conception.

Bonne journée