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

teckmicro03

XLDnaute Nouveau
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 .
 
Dernière édition:

teckmicro03

XLDnaute Nouveau
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
 

Pièces jointes

  • FORUM30102022.xlsx
    113.1 KB · Affichages: 0

teckmicro03

XLDnaute Nouveau
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

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
 

Pièces jointes

  • vba pdf .JPG
    vba pdf .JPG
    218.2 KB · Affichages: 15

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec