Fichier global vba

Version imprimable

24/07/2013, 11h32
bouduch

3 pièce(s) jointe(s)

Fichier global vba

Bonjour,

Je cherches à construire une macro qui me permettrai de copier mes tableaux les uns à la suite des autres dans un fichier global. Je vous joins les fichiers et le rendu que je souhaiterai.

J'essayes de sortir quelque chose mais ca ne marche pas comme je le souhaiterai si quelqu'un pouvais m'aider

Merci

Marion
24/07/2013, 12h52
QuestVba

Bonjour,

Citation:

J'essayes de sortir quelque chose mais ca ne marche pas comme je le souhaiterai

Tu aurais donc déjà une partie de code à montrer ?
24/07/2013, 13h04
Philippe Tulliez

Bonjour la collectivité,
J'aimerais construire le rez-de-chaussée de ma maison.
Je ne comprends rien à la construction mais voilà le plan de la maison, les planches, les briques, le ciment.
Si quelqu'un peut m'aider pendant ce temps là, je vais boire un café.
24/07/2013, 13h35
bouduch

1 pièce(s) jointe(s)

voila ce que j'ai déjà réalisée le code c'est ouvrir fichier
24/07/2013, 13h47
Philippe Tulliez

Bonjour,

Citation:

Envoyé par bouduch

voila ce que j'ai déjà réalisée le code c'est ouvrir fichier

Ce que l'on te suggère de faire, c'est d'afficher ici et en clair le code de ta procédure (entre les balises prévues à cet effet soit le dièse informatique « # »)
Il y a un tas d'intervenants sur ce site et j'en fais partie qui n'ouvre pas les classeurs proposés dès les premières questions. C'est totalement contraire à l'esprit d'un forum.

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
Sub ouvrir_fichiers()
 
 Dim intLignes, i As Integer
 Dim rep As String
 
 rep = "C:\Users\mgely\Desktop\globalforum"
 
 ChDir "C:\Users\mgely\Desktop\Excel"
 monfichier = Dir("*.xls*")
 
 While monfichier <> ""
 Workbooks.Open monfichier
 monfichier = Dir()
 'feuille "Table_Tâches"
    With monfichier
 
        'calcul du nombre de lignes
        FinLignes = Cells(65535, 1).End(xlUp).Row
        'de la ligne 11 à la fin avec un pas de 2
        For i = 11 To FinLignes Step 2
 
        Selection.Copy
        Windows("globalforum.xls").Activate
        Rows("10:10").Select
        ActiveSheet.Paste
 
        Next i
 
 
    End With
 
   Wend
 
 
 
 
 'Workbooks.Close
 
 End Sub

24/07/2013, 14h08
Philippe Tulliez

Bonjour,
Tu ne dis pas ce qui ne va pas dans ton code mais en relisant ta question initiale, j'ai cru comprendre que tu souhaitais regrouper dans une feuille, l'ensemble de feuilles se trouvant sur des classeurs différents.
Un début de piste ou sans doute la réponse sur cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)
Le premier "post" traite du regroupement de plusieurs feuilles se trouvant sur le même classeur et plus bas une réponse à une question posée par un intervenant et qui est proche de la tienne et qui consiste à rassembler les premières feuilles de classeurs se trouvant dans un même répertoire.
24/07/2013, 15h09
bouduch

Votre fichier est bien mais trop complexe pour ce que je cherches. Je veux juste un code qui me permet d'aller chercher mes fichiers et ensuite de coller les données de mes tableaux dans le global c'est tout

Bonjour,

Citation:

Envoyé par bouduch

Votre fichier est bien mais trop complexe pour ce que je cherches.

Le fichier est un classeur exemple.

Citation:

Je veux juste un code qui me permet d'aller chercher mes fichiers

Manifestement, tu n'as pas lu jusqu'au bout.
La procédure FileListInFolder qui est proposée dans le lien que je t'ai référencé renvoie un tableau avec la liste des classeurs présents dans le répertoire qui est passé comme argument à cette procédure
Exemple d'une procédure qui invoque la fonction FileListInFolder en lui passant comme argument le nom du répertoire (contenu dans la constante Rep)
Code:

1 2 3 4 5 6 7 8 Sub ListedesFichiers() Const Rep As String = "Z:\Développements\En cours" Dim FileTable() As String, Elem As Long FileTable = FileListInFolder(Rep) For Elem = 0 To UBound(FileTable) Debug.Print FileTable(Elem) Next End Sub
La variable dimensionnée FileTable contient donc la liste des classeurs de ce répertoire

Citation:

et ensuite de coller les données de mes tableaux dans le global c'est tout

La procédure ExportTable permet de copier dans une feuille une liste de données (de la même feuille ou provenant d'un autre classeur), il suffit de lui passer les bons paramètres.