Automatisation de la création puis renomination d'un dossier et fichier excel

[maximilien59]

Bonjour a tous,

J'ai créé une table comportant une liste d'erreur correspondant à de nombreuse machines (machines 1,2,50....),ce que j'ai effectué jusqu'à présent est l'importation suite à un bouton "importer", la copie de la machine concernée sur un dossier partagé, créer manuellement un dossier avec numéro de la machine et date, puis renommer le fichier importer précédemment et l'insérer dans le nouveau dossier.

Je voudrai savoir si cela est possible de le faire automatiquement?

Je vous remercie

[pier.antoine]

Bonjour

A première vue, je dirais "Oui", malheureusement, votre procédure n'est pas vraiment claire à mes yeux, donc je ne peux pas vous aider plus.

Pierre

[maximilien59]

Envoyé par pier.antoine

Bonjour

A première vue, je dirais "Oui", malheureusement, votre procédure n'est pas vraiment claire à mes yeux, donc je ne peux pas vous aider plus.

Pierre

Peux-tu me dire ce qui est pas claire pour pouvoir t'eclaircir?

[marot_r]

Peux-tu mettre un exemple concret de ce que tu as fait ?

ex :
- exporté la machine 123 dans le fichier xyz dans le répertoire abc
- créé le sous répertoire alphaBetaGamma dans le repertoire jkl
etc...

A+

[maximilien59]

Envoyé par marot_r

Peux-tu mettre un exemple concret de ce que tu as fait ?

ex :
- exporté la machine 123 dans le fichier xyz dans le répertoire abc
- créé le sous répertoire alphaBetaGamma dans le repertoire jkl
etc...

A+

En fait, je voudrai exporter mes données "machines 123" en format excel, le nom du fichier deviendra "machines 123 date du 10-01-2012.xls" qui sera dans un nouveau dossier qui se nomera "machines 123", le tout en automatique

[maximilien59]

Je me suis peux-être mal exprimé,sorry

En fait, je voudrai que dès un clique sur un bouton "exporter", une boite de dialogue me demande quelle machine m'interesse et dès l'appuie sur ok, un repertoire avec le nom de la machine indiquée précedemment se créer et ce repertoire contient le fichier exporter.

Est-ce que cela est possible?

[marot_r]

Voici une fonction pour créer un répertoire.

Code :

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
Option Explicit
 
Private Sub Test_CreerUneHierarchieDeRepertoires()
    Call CreerUneHierarchieDeRepertoires("C:\Test1\Test2\Test3\Test4\")
End Sub
 
Private Sub CreerUneHierarchieDeRepertoires(prmCheminAccesFichier As String)
 
    On Error GoTo Err_CreerUneHierarchieDeRepertoires
 
    Dim cheminAccesFichier As String: cheminAccesFichier = prmCheminAccesFichier
 
    'Fait sauter le \ à la fin du chemin si il existe
    If Right(cheminAccesFichier, 1) = "\" Then
        cheminAccesFichier = Left(cheminAccesFichier, Len(cheminAccesFichier) - 1)
    End If
 
    'récupère le disque
    Dim disque As String: disque = Left(cheminAccesFichier, 1)
 
    'Supprime le disque du chemin
    cheminAccesFichier = Mid(cheminAccesFichier, 4)
 
    'Récupère la liste des répertoires qui compose le chemin
    Dim nomRepertoire As Variant: nomRepertoire = Split(cheminAccesFichier, "\")
 
    Dim chemin As String
 
    chemin = disque & ":"
 
    Dim i As Long: For i = LBound(nomRepertoire) To UBound(nomRepertoire)
        chemin = chemin & "\" & nomRepertoire(i)
        MkDir chemin
    Next i
 
Exit_CreerUneHierarchieDeRepertoires:
    Exit Sub
 
Err_CreerUneHierarchieDeRepertoires:
    Select Case Err.Number
        Case 75
            'OK, le répertoire existe déjà passe au suivant
            Resume Next
 
        Case Else
            MsgBox "Erreur : " & Err.Number & ", " & Err.Description, vbExclamation
    End Select
 
    Resume Exit_CreerUneHierarchieDeRepertoires
 
End Sub

Solution simple mais qui peut être améliorée :

créer un bouton.
Sur l'événement "Click" mettre

Code :

1
2
3
4
dim machine as string
machine=inputbox("Machine")
call CreerUneHierarchieDeRepertoires("C:\TonChemin\" & machine)
'ici le code pour exporter ta machine

A+

[maximilien59]

Désolé pour le retard.

Merci pour cette réponse.

Suite à l’exécution de ce code, j'ai l'erreur 3051 qui apparaît pourtant tout est fermé.

Pouvez-vous me donner la solution?

merci

[marot_r]

Sur quelle ligne de code ?

Quelle est l'erreur 3051 (je ne connais pas toutes les erreurs par coeur :-) ?

A+