Discussion :

[YanouW]

Salut à tous,

Je suis actuellement en train de créer un fichier pour mon entreprise de gestion des anomalies
l'objectif etant de créer un fichier vierge et de créer des copies pour chaque nouvelle vente (NIKE32, ADIDAS45, ADIDAS46,...)

J'aimerais que dès l'ouverture de celui-ci un userform s'ouvre:

1.Avec dans une listbox tous les fichier déja existant
si il existe que l'on puisse l'ouvrir, en double cliquant dessu ou en le selectionnant et validant le userform
2. Si le fichier n'existe pas, créer une copie depuis le fichier vierge de gestion des anomalies dans le meme dossier que les fichiers déja existant en indiquant le nom de la vente dans une case determiné et enregistrer sous le même nom.

Merci d'avance pour votre réponse

[Theze]

Bonjour,

Un début de piste :

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
 
Private Sub UserForm_Initialize()
 
    Dim Tablo() As String
    Dim I As Integer
 
    'appel de la fonction avec le chemin du dossier où se trouve ce classeur (adapter...)
    Tablo = RecupFichiers(ThisWorkbook.Path & "\")
 
    If Not (Not Tablo) Then
 
        For I = 1 To UBound(Tablo)
 
            ListBox1.AddItem Tablo(I)
 
        Next I
 
    End If
 
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
    'ouverture par double clic
    Workbooks.Open ListBox1.List(ListBox1.ListIndex)
 
End Sub
 
Function RecupFichiers(Chemin As String) As String()
 
    Dim Tbl() As String
    Dim Fichier As String
    Dim I As Integer
 
    'seulement les fichiers Excel (.xls, . xlsx, . xlsm, etc...)
   Fichier = Dir(Chemin & "*.xls*")
 
    Do While (Len(Fichier) > 0)
 
        I = I + 1
        ReDim Preserve Tbl(1 To I)
        Tbl(I) = Fichier
        Fichier = Dir()
 
    Loop
 
    RecupFichiers = Tbl()
 
End Function

[YanouW]

Merci Theze pour ta réponse sa ma bien servi