Fusionner plusieurs feuilles en une seule

Re,

que faut il modifier dans les classeurs pour résoudre ce bug ?

Merci

Astil

Bonsoir M12,

j'ai changé la ligne If Cells(Dte, 2) <> "" Then

par la ligne If IsNumeric(Cells(Dte, 2).value) Then

la consolidation se fait par contre j'ai des problèmes au niveau des dates au lieu du mois d'avril 2018 ça met avril 2014

et au résultat final il manque des dates ça s'arrête au 13 avril 2018 ?

ci joint le fichier

d'avance merci

bonne soirée

Astil

Bonjour M12,

je me permet de revenir vers vous, j'ai revu tous les classeurs, dans certaines cellules E2 ou il y a la date, j'avais mis la formule AUJOURDHUI, je pensais que c’était cela qui bloquait je l'ai donc supprimé.

j'ai remis la macro a l'identique et j'ai toujours cette erreur 13 incompatibilité de type

lorsque je remplace la ligne par la ligne If IsNumeric(Cells(Dte, 2).value) Then la consolidation se fait mais le mois consolidé est en 2014

Il y a un autre souci dans le tableau du mois consolidé, les lignes du classeur Cécile s’arrêtent au 13/04/2018 ?

Si vous voulez on peut faire un partage d'écran ou par téléphone pour plus de comprehension.

Mille merci pour votre patience et merci d'avance pour votre réponse.

Astil

Bonjour,

Il y a plusieurs choses qui ne peuvent plus fonctionner

1)- pour la date (si tu relis les anciens post, je précise bien qu'il faut se mettre en calendrier 1904 depuis les options d'Excel)

2)- les onglets doivent être numérotés en Feuil1 --> Lundi - Feuil2 --> Mardi etc (là encore le problème peut être réglé)

en remplaçant dans le module "GÉNÉRER" cette partie depuis le For j=1 to 7

For Each ws In Worksheets
       If VBA.LCase(ws.Name) Like "*di*" Then
    Sheets(ws.Name).Select
    Dl = Range("D" & Rows.Count).End(xlUp).Row
    Range("B8:N" & Dl).Copy
    Sheets("Feuille1").Activate
    Lr = Range("D" & Rows.Count).End(xlUp).Row + 1
    Cells(Lr, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
  Next ws
  Columns("B:B").Select

3)- Pour la ligne

If Cells(Dte, 2) <> "" Then

remplacer par

If Cells(Dte, 2) <> "" and If Cells(Dte, 2) <> "Date" ThenThen

ou

If IsDate(Cells(Dte, 2).value) Then

Sur les anciens classeurs ODS, il n'y avait pas de données autre que des Dates dans la colonne DATE, ce qui n'est plus le cas

4)- La consolidation ne peut fonctionner car sur le premier montage, c'étais 3 personnes différentes, là c'est toujours Cécile

D'où le fait au départ de donner de bonnes infos et d'avoir toujours des classeurs identiques, sinon

merci M12,

ça me met une fenêtre

qui surligne la ligne : For Each ws In Worksheets dans le module generer

que faire ?

Merci

Astil

Re

A ton avis, "Variable non définie"

Dim ws As Worksheet

tout au-dessus après Option Explicit

De toute façon, cela ne regroupera pas les 4 classeurs ODS, ce sont les mêmes employés

Re M12,

ca fonctionne mais je n'ai pas la totalité de mes classeurs dans le tableau

alors que j'ai 13 classeurs dans le dossier "Classeurs Semaine" ?

je n'ai joint que trois classeurs mais en réalité j'en ai 13 mais le fichier est trop lourd !

Merci d'avance

Astil

Re,

Teste avec ceci

28planning.rar (477.90 Ko)

Re,

ca fonctionne avec les 4 classeurs.

avec mes 13 classeurs, ça me génère un classeur nommé décembre 1895 avec aucune donnée dedans ?

Merci

Astil

Re M12,

ci joint les 13 classeurs.

ainsi tu auras peut être une meilleure visibilité de ce qui bloque ?

sinon ça fonctionne parfaitement avec les 4 classeurs de Cécile.

Merci d'avance et désolé.

Astil

Re M12,

j'ai fais des test sur 2 PC, je suis toujours en décembre 1895 et aucune cellule n'est remplie dans le tableau mensuel résultant de la consolidation ?

qu'est ce qu'il faut faire ?

cordialement

Astil

Re M12,

je ne sais toujours pas pourquoi le fichier final qui devrait s'appeler avril-2018 se nomme décembre-1895 et que le tableau est vide ?

j'ai besoin de tes lumières !

un immense merci

Astil

Re,

Je viens de faire un test avec le dernier classeur de recap envoyé en zippé et tes classeurs et j'ai bien le mois d'avril 2018 qui sort, BREF

Je vais regarder ce WE, car je crois que la manoeuvre est mauvaise dés le départ.

  • Je vais commencer déjà par récupèrer toutes les classeurs ODS pour les regrouper en un seul
  • Un tri par Nom et par Date ascendant qui se nommera avec le nom du mois à considérer
  • Seulement là, dégrouper par nom depuis cette RECAP et les mettre en classeur individuel

- Plus rapide à mon avis

Re M12

vraiment merci de ta patience et pour ton expertise.

je viens de m'apercevoir qu'il manque 3 fichiers que je joins a ce message.

Merci d'avance

Astil

Bonjour,

Voici la modification qui fonctionne chez moi

Par contre, voir ces deux classeurs qui comportent des erreurs

semaine du 30 avril au 6 mai 2018 - Copie.ods

date du Mardi --> à corriger en E2

planning 9 au 15 avril 2018.ods

date du dimanche à ajouter en E2

Bonjour M12,

Un très très grand merci pour ce super boulot, tu as travaillé cette nuit ?

Par contre peux tu me dire si la feuille 1 ou feuil 1 a encore une utilité dans les classeurs ?

il ne me semble pas d'après ce que j'ai lu dans la macro !

encore un grand merci

Astil

Re,

Non, plus d'utilité, tu peux la supprimer

Bonjour,

Une petite amélioration, vu que j'avais du temps cette nuit

avec une barre de progression

Bonsoir M12,

Merci pour la petite amelioration que je viens d'avoir la surprise de découvrir.

j'ai une petite question, j'ai trois fichiers.ods d'une remplaçante, la consolidation se passe bien par contre ca génère un fichier avec une date en 2022.

j'ai regardé au niveau des dates c'est bien paramétré !

je ne vois pas pourquoi il met cette date du 25/06/2022.

Cordialement

Astil

Bonjour,

C'est le problème de gestion du calendrier 1900 ou 1904

si tu ôtes 1462 jours de la date en 2022 tu auras la date en 2018

Alors si les ODS ont été concus sur Open Office, la date est obligatoirement en calendrier 1904

si c'est sur Excel c'est l'un ou l'autre, tout dépend si l'option est cochée dans les options avancées

Rechercher des sujets similaires à "fusionner feuilles seule"