Discussion :

[MaryLucky]

Bonjour,

Tout d'abord je tient à vous remerciez de l'aide que ce forum m'apporte

Voilà mon problème, je cherche une solution et je ne trouves pas :

J'ai plusieurs classeurs montés de façon similaire. Dans chacun de ces classeur j,ai une feuille nommée ''A''.
J'aimerais faire un classeur avec toute les feuilles nommées ''A'' regroupées en onglet.
J'aimerais que ces feuilles se mettent à jour lorsque je change la valeur dans le classeur original.

Est-ce que c'est quelque chose qui se fait ?

Si oui j'ai ensuite une autre question !

Merci,

[EricDgn]

J'aimerais faire un classeur avec toute les feuilles nommées ''A'' regroupées en onglet.

càd. un classeur, avec autant d'onglets (= de feuilles) qu'il y a de classeurs ayant cette feuille "A" ?

[Palatinus]

bonjour,
ça se fait très bien en vba, par contre il te faudra (pas obligé mais plus commode) une feuille dédiée aux noms des fichiers et à leur chemin d'accès. Ou un classeur annexe qui les contienne.

Tu placeras dans ThisWorkbook l'évennement Workbook_Open, dans lequel tu places le bout de code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    ChDir "C:\Users\Invité\Desktop"
    Workbooks.Open Filename:="C:\Users\Invité\Desktop\A fusionner.xlsx"
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Workbooks("fusion.xlsm").Sheets(1)
Workbooks("A fusionner.xlsx").Close False

Ca c'est un code statique (il faut inscrire le chemin dans le code). Tu peux renseigner les chemins d'accès dans une feuille du classeur, et y faire référence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
For i = 1 To Workbooks("fusion.xlsm").Sheets("chemins").Range("A" & Rows.Count).End(xlUp).Row - 1
chemin = Workbooks("fusion.xlsm").Sheets("chemins").Range("A"&i).Value
nom = Workbooks("fusion.xlsm").Sheets("chemins").Range("B"&i).Value
ChDir chemin
Workbooks.Open Filename:=chemin & nom
Sheets("Feuil1").Select 
Selection.Name = "Fichier" & i
Sheets("Fichier" & i).Copy After:=Workbooks("fusion.xlsm").Sheets(1)
Workbooks("A fusionner.xlsx").Close False
Next i

Voila, ça devrait le faire, avec le chemin d'accès en colonne A et le nom du fichier en colonne B du fichier de fusion. Dis-moi s'il y a des choses que tu ne comprends pas là dedans.

[MaryLucky]

En fait je ne connais rien du tout en VBA

Mes classeurs ne sont pas tous dans le même dossier, ils sont sur plusieurs dossier différents dans un répertoire commun.
Est-ce que un dossier avec des raccourcis de mes classeurs ça fonctionnerais ?

[Invité]

Bonjour,

Pour compléter ce qui a été écrit :

Pour vous faciliter la vie pour constituer la liste des fichiers et leur emplacement, le fichier contenu dans ce récent message pourrait faire l'affaire en remplaçant les types de fichiers recherchés.
vba-ajouter-image-chemin-acces/ Il s'agit du fichier contenu dans ma dernière réponse. Les extensions des fichiers sélectionnées sont .jpg et . png.

Par ailleurs, je travaille actuellement pour un de mes clients sur à peu près la même problématique. Il s'agit d'agréger des situations sur une période glissante pour évaluer la tendance des coûts d'exploitation des différents groupes dans l'organigramme et calculer des indicateurs de performance.

A la solution proposée par Palatinus et s'il faut mettre à jour les historiques, il est nécessaire de contrôler la présence d'une version pour le fichier A. Le cas échéant, supprimer la version du fichier A avant d'injecter. Relativement à la mise à jour, il ne faut pas essayer de comparer cellule par cellule, il faut remplacer l'ensemble. Pour cela, il faut tenir à jour une date de "dernière mise à jour" dans les deux deux fichiers. Si la date du dernier fichier est postérieure à celle de l'historique, on remplace.

Par ailleurs :

- Si vous remplacez par paquets de ligne, il faudra sans doute prendre la précaution de briser les liaisons pouvant exister sur les cellules et ne garder que les valeurs, et supprimer les zones nommées pour éviter les conflits qui deviendront vite irritants.
- Si vous importez par onglets complets : il vous faudra peut-être supprimer en plus, le code VBA qui pourrait exister dans les modules des feuilles.

Ci joint, un modèle de boite de dialogue :

Lorsque la boite de dialogue s'affiche, on a déjà contrôlé les fichiers qui devaient et qui pouvaient être importés.
Cette boite de dialogue est liée à une matrice des champs à importer, car on n'a pas besoin forcément de tout récupérer. On s'affranchit également de la position des champs dans les différents fichiers car tout est réordonné avant injection. L'injection du fichier n'est pas permise si un champ prévu n'est pas trouvé.


Pièce jointe 206882

La boite de dialogue, ci-dessous, montre le paramétrage de la matrice :

Le client est sur SAP et les champs de ses requêtes, construites en mode arrière plan, sont des fois à géométrie variable suivant le contenu des données importées. Les colonnes "Occurrences" permettent d'aller chercher dans le fichier différentes occurrences de noms et de les remplacer et les formater par les valeurs de la première colonne.

Pièce jointe 206883


Cordialement.

[kiki29]

Salut, voir fusion fichiers xls*, txt d'un dossier en l'adaptant à ton contexte

[MaryLucky]

Merci beaucoup à vous tous, je vais regarder ça quand j'aurai quelques minutes

[prune78000]

Bonjour,

Je suis novice est j'ai besoin pour le boulot d'une macro pour fusionner plusieurs feuilles jusqu'à 60 feuilles dans une feuille récapitulatif.
Je ne sais pas comment faire...
Pouvez vous m'aider ci-joint un exemple d'un de mes fichiers

Je ne comprends pas votre explication, pouvez vous m'intégrer à mon tableau la formule, je pourrait ainsi la recopier à export.
Merci mille fois de votre aide car j'ai la pression de la hiérarchie et 66 onglets en 1 en copier coller cela va me prendre la journée...