Discussion :

[hitorojo]

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.

[Philippe Tulliez]

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

[casefayere]

Bonjour le forum, Philippe, hitorojo

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

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

[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

[casefayere]

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

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)

[hitorojo]

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 :

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
 
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é