XL 2010 Recopier des données (bloc) de plusieurs feuilles dans une seul !!!

teckmicro03 · 30 Octobre 2022

bonjour , je veux recopier les donnes de chaque feuille journaliere1 , 2,3 ect (voir fichier) = total 336 pour une année Entiere !

de la cellule A2 a L2 et de A23 a L23 ( pour chaque feuille ) (bloc)

dans le onglet (Gestion des donnees integrale ) les couleur pour donnes les emplacements des donnees en fonction de cheque feuille journaliere !!

Bloc de de donnees a recopier la suite automatiquement ( par bouton ou autre ) ?

Merci beaucoup pour votre aide , j'essaye plein de chose , en mode manuelle , mais 336 fois pour cette manip !!!!

Cordialement

Je reste a votre écoute .

teckmicro03 · 31 Octobre 2022

teckmicro03 à dit:
Je vais tester ca je bosse sous excel 2010 , cdt

de retour , juste un coup de pouce , j 'ai enlever certaines de feuille de trop ,vu que la macro vide la fichier de saisie et l'integre la feuille de gestion integrale , pour l'autre macro pour exporter en PDF , j'ai un message erreure et je me demande si mais le code au bon endroit dans VBA ! Merci bien cdt

Staple1600 · 31 Octobre 2022

Re

@teckmicro03
Pour le message d'erreur (export PDF), relire le commentaire explicite (en gras et en vert) dans le code VBA proposé.

NB: Comme dit précédemment, pour conserver le code VBA, le classeur doit être enregistré en *.xlsm
(voir le message#7)

teckmicro03 · 31 Octobre 2022

Staple1600 à dit:
Re

@teckmicro03
Pour le message d'erreur (export PDT), relire le commentaire explicite (en gras et en vert) dans le code VBA proposé.

NB: Comme dit précédemment, pour conserver le code VBA, le classeur doit être enregistré en *.xlsm
(voir le message#7)

Ok je regade ca ! Merci

teckmicro03 · 1 Novembre 2022

Staple1600 à dit:

Re

Une suggestion pour faire suite à la macro du message#10
Test OK sur le classeur exemple
(version d'Excel utilisé : Excel 365)
NB: Supprimer l'espace surnuméraire (à la fin) dans le nom de la feuille Formulaire de Saisie
Dans cette version, on fait un export en PDF de la saisie journalière

Enrichi (BBcode):

Sub test_C()
Dim Chemin As String
Dim t, rng As Range: Set rng = Sheets("Formulaire de Saisie").Range("A2:L23")
Chemin = "C:\Users\STAPLE\Documents\" ' Modifier selon votre configuration
t = rng.Value2
Feuil15.Cells(Rows.Count, 1).End(3)(2).Resize(UBound(t, 1), UBound(t, 2)).Value = vArr
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' facultatif export de la saisie journalière en PDF
Sheets("Formulaire de Saisie").Copy After:=Sheets(Sheets.Count)
Range("A1:L30") = Range("A1:L30").Value
Sheets("Formulaire de Saisie (2)").Copy
mise_en_page ActiveSheet
ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:=Chemin & "test_" & Format(Date, "ddmmyyyy") & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False
Sheets("Formulaire de Saisie (2)").Delete
On Error Resume Next
rng.SpecialCells(2, 3).ClearContents
End Sub
Sub mise_en_page(F As Worksheet)
F.PageSetup.PrintArea = "$A$1:$L$30"
    With F.PageSetup
        .LeftHeader = "JOURNALIER"
        .CenterHeader = "Page &P"
        .LeftMargin = Application.InchesToPoints(0.236220472440945)
        .RightMargin = Application.InchesToPoints(0.236220472440945)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintQuality = 600
        .Orientation = xlLandscape
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

Staple1600 à dit:
Bonjour , je trouve votre pas votre derniere message , si vous voyez celui la ! , parfait , y a eu du changement dans les feuilles mais ca devrait marche , mais toujour erreure ? , merci de votre aide .

comme je suis novice dans les commande VBA , j'ai essayer defaire une macro simple , mais la votre est mieux car le fichier seras date a chaque fiche de saisie ! Merci de votre aide . Cdt

Staple1600 · 1 Novembre 2022

Bonsoir @teckmicro03

Tu as bien supprimé l'espace en trop dans le nom de la feuille ?
(Comme préconisé dans ce message)

Staple à dit:
NB: Supprimer l'espace surnuméraire (à la fin) dans le nom de la feuille Formulaire de Saisie
Dans cette version, on fait un export en PDF de la saisie journalière

XL 2010 Recopier des données (bloc) de plusieurs feuilles dans une seul !!!

teckmicro03

XLDnaute Nouveau

teckmicro03

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

teckmicro03

XLDnaute Nouveau

teckmicro03

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires