[XL-2003] Concaténer fichiers + opérations diverses

Version imprimable

22/09/2013, 11h45
hitorojo

[XL-2003] Concaténer fichiers + opérations diverses

Bonjour à tous !

Je suis novice dans l'utilisation des macros excel, mais on m'a demandé de faire un grand cru avec de l'eau au travail..

Il s'agit donc de faire une macro pour concaténer une partie d'une feuille spécifique excel de différents classeurs dans un seul nouveau classeur. Il faudrait que les classeurs excel soient choisis par l'utilisateur et non ceux du répertoire courant.

Ensuite au niveau des tâches réalisés, la macro doit extraire les codes libellés cours, libellé long du tableau référentiel de la feuille Extraction ( toujours cette feuille là quelque soit le classeur) donc logiquement les colonnes B C D et F G H sur toutes les lignes ou il y a quelque chose de renseigné.

On récupère le code du répertoire en colonne A, on laisse la colonne B pour les astérix*.
Si une ligne comporte les mêmes infos sur ses colonnes BCD et FGH on ne fait rien.
Si les colonnes BCD sont renseignées mais pas FGH alors on renseigne FGH avec les infos de BCD ( l'inverse on ne fait rien).
*Si une ligne ne comporte pas les mêmes infos entre les colonnes alors on ajoute un astérix devant.

Je vous ai mis les fichiers excel en PJ et le modèle de ce qui est attendu.

Regardez plutôt le classeur merci pour comprendre les règles énoncées.Par exemple bleu pas de changement, jaune les infos ont changées donc on ajoute une astérix, vert le code n'existait pas donc on le crée.

(Dans le fichier 1 j'ai réalisé des modifs donc il n'est plus en accord avec l'autre classeur rassurez vous !)

Dans les vrais classeurs les infos seront correctement alignées donc je sais que là c'est pas forcément logique mais c'est juste à titre de test :)

Merci beaucoup de votre aide ! Si vous avez des questions j'y répondrais du mieux possible.
22/09/2013, 12h09
Philippe Tulliez

Bonjour,
Ce n'est plus une question, c'est un véritable cahier des charges.
22/09/2013, 13h37
casefayere

Bonjour le forum, Philippe, hitorojo

Citation:

Ce n'est plus une question, c'est un véritable cahier des charges.

D'autant plus qu'aucun travail n'a été commencé, quand je lis

Citation:

Je suis novice dans l'utilisation des macros excel, mais on m'a demandé de faire un grand cru avec de l'eau au travail..

Même novice, hitorojo, tu as du apprendre le minimum qui te permette, au moins de démarrer quelque chose, allez ! un peu de volontariat, tu seras plus facilement aidé par la suite.

Bon courage
22/09/2013, 14h08
hitorojo

La seule macro que j'ai "réalisé" a été de convertir sur 12 caractères des identifiants qui étaient sur 6 ou 7 à la base.. Donc quelque chose qui n'a rien à voir en somme.

Je n'ai pas de cours de VBA ou autre à ma fac (je suis apprenti donc en gros on me file le taff qu'on ne veut pas faire sur le projet..) et pour le précédent travail, il existait une macro sur internet qui faisait quasiment çà, j'ai dû changer la longueur voulue c'est tout. Je suis démuni et j'ai vraiment besoin d'aide.

Merci d'avance
22/09/2013, 16h37
casefayere

Donc commençons par le commencement, quand tu écris :

Citation:

Il s'agit donc de faire une macro pour concaténer une partie d'une feuille spécifique excel de différents classeurs dans un seul nouveau classeur. Il faudrait que les classeurs excel soient choisis par l'utilisateur et non ceux du répertoire courant.

essayes le fichier joint, analyses-le, si ça te va, on verra pour la suite (si je comprends et si je suis compétent)

C'est plus que précis comme choix de répertoire et de fichiers, la grande classe !

Après est-il nécessaire de les ouvrir véritablement pour la suite (c'est à dire pour copier les informations dedans) ?
Il y aura plus d'une soixante de classeurs en tout donc les ouvrir un par un est un peu long, c'est possible de les sélectionner tous à la fois ? ( un peu comme quand tu envoies des fichiers par messagerie tu peux avec la touche majuscule en sélectionner plusieurs)

En cherchant j'ai trouvé çà comme code qui ressemble à ce que je veux pour choisir plusieurs fichiers à la fois.. Mais la concaténation ne marche pas.
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 Dim Fichiers As Variant Dim i As Integer Dim wb As Workbook Dim donnees As Range Fichiers = Application.GetOpenFilename("Fichiers xls (*.xls), *.xls", , , , True) If IsArray(Fichiers) = True Then Application.ScreenUpdating = False For i = LBound(Fichiers) To UBound(Fichiers) Workbooks.OpenText Filename:=Fichiers(i), DataType:=xlDelimited, Tab:=True Set wb = ActiveWorkbook Set donnees = wb.Sheets(1).[A1].CurrentRegion donnees.Copy ThisWorkbook.Sheets(1).[A65536].End(xlUp)(2) wb.Close Set donnees = Nothing Set wb = Nothing Next i Application.ScreenUpdating = True End If
Donc en changeant l'extension dat d'origine en xls (bien celle là ou il y a une spécifique pour un fichier contenant des macros ?) cela me permet d'en choisir plusieurs... Après ca ne marche pas vu que je ne sais pas quoi modifer exactement dedans mais çà peut t'aider peut être.

En tout cas merci du coup de main c'est appréciable et apprécié :)

22/09/2013, 19h06
casefayere

Citation:

Après est-il nécessaire de les ouvrir véritablement pour la suite (c'est à dire pour copier les informations dedans) ?

possible mais ce n'est pas dans mes compétences

Citation:

Il y aura plus d'une soixante de classeurs en tout donc les ouvrir un par un est un peu long, c'est possible de les sélectionner tous à la fois ? ( un peu comme quand tu envoies des fichiers par messagerie tu peux avec la touche majuscule en sélectionner plusieurs)

Là, tu me fais peur, par contre ton code devrait pouvoir être adapté, je ne comprends pas cette ligne :

Code:

Workbooks.OpenText Filename:=Fichiers(i), DataType:=xlDelimited, Tab:=True

pourquoi OpenText ?, tu ne te contenterais pas d'ouvrir les fichiers excel ?
22/09/2013, 19h44
hitorojo

Moi aussi je me fais peur parfois.. Surtout en rentrant de soirée. Blague à part c'était le code d'origine je ne connais pas les modifications à apporter pour que çà marche avec Excel ( OpenExcel ? :/)

J'ai laissé volontairement de coté les copies (je ne veux pas foutre le bazar dans mes fichier, juste pour l'ouverture, essaies comme ça :

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
Dim Fichiers As Variant
Dim i As Integer
Dim wb As Workbook
Dim donnees As Range
 
    Fichiers = Application.GetOpenFilename("Fichiers xls (*.xls*), *.xls*", , , , True)
 
    If IsArray(Fichiers) = True Then
 
        Application.ScreenUpdating = False
 
        For i = LBound(Fichiers) To UBound(Fichiers)
 
            Workbooks.Open Fichiers(i)
            Set wb = ActiveWorkbook
            'Set donnees = wb.Sheets(1).[A1].CurrentRegion
            'donnees.Copy ThisWorkbook.Sheets(1).[A65536].End(xlUp)(2)
            'wb.Close
            'Set donnees = Nothing
            'Set wb = Nothing
 
        Next i
 
        Application.ScreenUpdating = True
 
    End If

fais une tentative tel quel

22/09/2013, 21h56
hitorojo

Les classeurs peuvent être choisis comme je le souhaite mais du coup ils s'ouvrent sans se fermer ensuite.

Bonjour,

Citation:

Envoyé par hitorojo

Les classeurs peuvent être choisis comme je le souhaite mais du coup ils s'ouvrent sans se fermer ensuite.

Bien sur, regardes ce que j'ai enlevé du code, dans cette partie, il faudra adapter :
Code:

1 2 3 4 5 6 7 8 9 10 For i = LBound(Fichiers) To UBound(Fichiers) Workbooks.Open Fichiers(i) Set wb = ActiveWorkbook 'Ce que tu veux prendre sur le fichier wb.Close'là tu le fermes Set wb = Nothing' inutile surtout en cours de boucle Next i

24/09/2013, 20h36
hitorojo

Okay je commence à comprendre un peu mieux déjà là au niveau de la sélection des fichiers.

Ensuite comment peut on faire pour récupérer le contenu de tout mon tableau pour un classeur donné ?
Sachant qu'aucun tableau n'a la même longueur et être sur que tout soit pris ? Je vois la condition mais pas du tout comment l'écrire en VB ( que la colonne B et que celle en F le soit également sur la ligne suivante).

Donc l'adaptation du donnees.copy pour le faire aller du début de mon tableau jusqu'à la fin.
27/09/2013, 21h57
Marc-L

Bonjour,

consulter pour commencer l'aide de CurrentRegion …