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

teckmicro03 à dit:

Je vais tester ca je bosse sous excel 2010 , cdt

Cliquez pour agrandir...

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)

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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 .

Cliquez pour agrandir...

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

Cliquez pour agrandir...