Discussion :

[digabriel]

Bonjour Le forum,

J'ai un problème, j'ai un fichier excel que je dois distribuer à des responsables d'équipe.
J'aimerais pouvoir récuperer les informations saisie dans les différents fichiers depuis un fichier central.

On m'a conseillé de passer par de la génération de fichier texte mais je ne sais pas du tout comment faire.

Est ce que quelqu'un peut me montrer sur un champs (le nom) avec l'envois & récupration ?

En vous remerciant !

Diga

[diude54]

Perso j'ai fait une appli qui récupère des données à partir de fichiers excel.
Ce que je fait c'est que je récupère les fichiers via un getopenfilename, je récupère les données et je les ferme à la fin de la macro.
Cela suppose que tu ai accès à ces fichiers, sur un serveur, ou si les personnes te l'envoie par mail.
Voici mon code (j'ai enlevé la partie qui traite les données
Ici je selectionne plusieurs fichiers excel et je les parcours un par un avant de les refermer

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
57
58
59
60
61
62
63
64
65
66
Sub recupdonnées()
 
Dim fdest As Worksheet
Dim Wksheet As Worksheet
Dim fsource As Excel.Workbook
Dim DerLigne As Long, nbligne As Long, ldest As Long, i As Long, j As Long, dcelpleine As Long
Dim nom As String
Dim test As Boolean
Dim feuillsource As String
Dim Classeursource As String
Dim Tableau As Variant
Dim l As Long
 
 
Application.ScreenUpdating = False
 
Set fdest = ThisWorkbook.Worksheets(1)
 
Tableau = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , , , True)
 
If IsArray(Tableau) Then
 
    For l = 1 To UBound(Tableau)
 
        Set fsource = GetObject(Tableau(l))
        Classeursource = fsource.Name
 
 
 
 
        For Each Wksheet In fsource.Worksheets
 
 
        On Error GoTo fsuivante
 
        Select Case Wksheet.Name
 
            Case Is = "Feuille de Saisie"
            Case Is = "Feuil1"
            Case Else
 
 
            End Select
 
fsuivante:
        Next Wksheet
 
    Next l
 
    fsource.Close False
 
 
Else
 
    Exit Sub
 
End If
 
 
 
fin:
 
 
Application.ScreenUpdating = True
 
End Sub