Discussion :

[c.piette]

Bonjour à tous,

Je souhaite créer un petit programme excel, appelons le "MonProjet". Il me faut un formulaire (userform) permettant à l'utilisateur de charger/importer un fichier excel déjà mis en forme; du type: première colonne "Activité", deuxième "Date de dernière réalisation", troisième "Nom de l'agent aillant réalisé l'activité".

Ce fichier excel importé, permettrait d'alimenter/compléter la base de donnée déjà pré-existante de "MonProjet". En pratique, je souhaiterais voir apparaître ceci sur mon formulaire:





Mes questions sont les suivantes:

1) Comment adjoindre cette fonctionnalité à mon formulaire ?
2) Une fois le fichier excel chargé, où est-il ? Comment l'utiliser ? Comment accéder à ses informations/données ? Comment le supprimer une fois que les information importantes ont-été récupérée ?


Je vous remercie d'avance pour votre aide

[Theze]

Même réponse que dans l'autre forum :

Un début de piste. Sur ton formulaire tu pose 1 CommandButton nommé "CmdParcourir", un second CommandButton nommé "CmdUtiliser" puis un Label nommé "LblFichier" puis tu colle le code ci-dessous dans le module du formulaire puis tu le lance :

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
 
Private Sub CmdParcourir_Click()
 
    Dim Fich
 
    Fich = Fichier
 
    If Fich <> "" Then LblFichier.Caption = Fich
 
    If LblFichier.Caption <> "Aucun fichier sélectionné." Then CmdUtiliser.Enabled = True
 
End Sub
 
Function Fichier() As String
 
    '1 ouvrir un fichier
   '2 enregistrement de fichier
   '3 sélection de fichier
   '4 sélection de dossier
   With Application.FileDialog(1)
 
        .Show
 
        On Error Resume Next 'si annuler
 
        Fichier = .SelectedItems(1)
 
        If Err.Number <> 0 Then Fichier = ""
 
    End With
 
End Function
 
Private Sub CmdUtiliser_Click()
 
    Dim Cls As Workbook
 
    Set Cls = Workbooks.Open(LblFichier.Caption)
 
    'ici commence le code pour faire ce que tu veux avec le classeur que tu viens d'ouvrir...
 
End Sub

Hervé.

[c.piette]

Hervé,

Comme répondu sur l'autre forum, je joins une complément de code pour copier la feuille du classeur ouvert/chargé, coller son contenu dans une feuille du classeur actif (déjà pré nommée "Données Provisoires" et puis fermer le classeur chargé.

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 CmdUtiliser_Click()
 
              ' Transfert du contenu chargé dans une nouvelle feuille du classeur principal
 
        Dim Cls As Workbook, MainWB As Workbook
 
        Set MainWB = ThisWorkbook
        Set Cls = Workbooks.Open(LblFichier.Caption)
 
       ' Copie le contenu du fichier ouvert et le colle dans la feuille de données provisoires
 
        Cls.Sheets("Feuil1").Cells.Copy MainWB.Sheets("Données Provisoires").Range("A1")
 
        Cls.Close True 'Ferme le fichier "chargé
 
    End Sub