Transfère de donnée avec la mise en forme

Le 09/01/2018 à 08:07

Bonjour,

Je fais appel à vous car je bloque sur une macro que j'ai réalisé... aujourd'hui l'idée c'est de prendre les informations de trois fichiers séparés pour les regroupé en un seul à l'arrivé. Le problème c'est que la solution que j'ai pu trouver ne reporte pas les mises en formes mais seulement les valeurs (.value) et je recherche une alternative qui me permettrai de reporté l'intégralité de la donnée (donnée+mis en forme)

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier$
    chemin = "J:\"
    fichier = "Planning Produit.xlsx"
    Application.ScreenUpdating = False
    Set wkb = Workbooks.Open(chemin & fichier)
    ThisWorkbook.Sheets("S01").Range("A1:J61").Value = wkb.Sheets("S01").Range("A1:J61").Value
    ThisWorkbook.Sheets("S02").Range("A1:J61").Value = wkb.Sheets("S02").Range("A1:J61").Value
    ThisWorkbook.Sheets("S03").Range("A1:J61").Value = wkb.Sheets("S03").Range("A1:J61").Value
    ThisWorkbook.Sheets("S04").Range("A1:J61").Value = wkb.Sheets("S04").Range("A1:J61").Value
    ThisWorkbook.Sheets("S05").Range("A1:J61").Value = wkb.Sheets("S05").Range("A1:J61").Value
    ThisWorkbook.Sheets("S06").Range("A1:J61").Value = wkb.Sheets("S06").Range("A1:J61").Value
    ThisWorkbook.Sheets("S07").Range("A1:J61").Value = wkb.Sheets("S07").Range("A1:J61").Value
    ThisWorkbook.Sheets("S08").Range("A1:J61").Value = wkb.Sheets("S08").Range("A1:J61").Value
    ThisWorkbook.Sheets("S09").Range("A1:J61").Value = wkb.Sheets("S09").Range("A1:J61").Value
    ThisWorkbook.Sheets("S10").Range("A1:J61").Value = wkb.Sheets("S10").Range("A1:J61").Value
    ThisWorkbook.Sheets("S11").Range("A1:J61").Value = wkb.Sheets("S11").Range("A1:J61").Value
    ThisWorkbook.Sheets("S12").Range("A1:J61").Value = wkb.Sheets("S12").Range("A1:J61").Value
    ThisWorkbook.Sheets("S13").Range("A1:J61").Value = wkb.Sheets("S13").Range("A1:J61").Value
    ThisWorkbook.Sheets("S14").Range("A1:J61").Value = wkb.Sheets("S14").Range("A1:J61").Value
    ThisWorkbook.Sheets("S15").Range("A1:J61").Value = wkb.Sheets("S15").Range("A1:J61").Value
    ThisWorkbook.Sheets("S16").Range("A1:J61").Value = wkb.Sheets("S16").Range("A1:J61").Value
    ThisWorkbook.Sheets("S17").Range("A1:J61").Value = wkb.Sheets("S17").Range("A1:J61").Value
    ThisWorkbook.Sheets("S18").Range("A1:J61").Value = wkb.Sheets("S18").Range("A1:J61").Value
    ThisWorkbook.Sheets("S19").Range("A1:J61").Value = wkb.Sheets("S19").Range("A1:J61").Value
    ThisWorkbook.Sheets("S20").Range("A1:J61").Value = wkb.Sheets("S20").Range("A1:J61").Value
    ThisWorkbook.Sheets("S21").Range("A1:J61").Value = wkb.Sheets("S21").Range("A1:J61").Value
    ThisWorkbook.Sheets("S22").Range("A1:J61").Value = wkb.Sheets("S22").Range("A1:J61").Value
    ThisWorkbook.Sheets("S23").Range("A1:J61").Value = wkb.Sheets("S23").Range("A1:J61").Value
    ThisWorkbook.Sheets("S24").Range("A1:J61").Value = wkb.Sheets("S24").Range("A1:J61").Value
    ThisWorkbook.Sheets("S25").Range("A1:J61").Value = wkb.Sheets("S25").Range("A1:J61").Value
    ThisWorkbook.Sheets("S26").Range("A1:J61").Value = wkb.Sheets("S26").Range("A1:J61").Value
    ThisWorkbook.Sheets("S27").Range("A1:J61").Value = wkb.Sheets("S27").Range("A1:J61").Value
    ThisWorkbook.Sheets("S28").Range("A1:J61").Value = wkb.Sheets("S28").Range("A1:J61").Value
    ThisWorkbook.Sheets("S29").Range("A1:J61").Value = wkb.Sheets("S29").Range("A1:J61").Value
    ThisWorkbook.Sheets("S30").Range("A1:J61").Value = wkb.Sheets("S30").Range("A1:J61").Value
    ThisWorkbook.Sheets("S31").Range("A1:J61").Value = wkb.Sheets("S31").Range("A1:J61").Value
    ThisWorkbook.Sheets("S32").Range("A1:J61").Value = wkb.Sheets("S32").Range("A1:J61").Value
    ThisWorkbook.Sheets("S33").Range("A1:J61").Value = wkb.Sheets("S33").Range("A1:J61").Value
    ThisWorkbook.Sheets("S34").Range("A1:J61").Value = wkb.Sheets("S34").Range("A1:J61").Value
    ThisWorkbook.Sheets("S35").Range("A1:J61").Value = wkb.Sheets("S35").Range("A1:J61").Value
    ThisWorkbook.Sheets("S36").Range("A1:J61").Value = wkb.Sheets("S36").Range("A1:J61").Value
    ThisWorkbook.Sheets("S37").Range("A1:J61").Value = wkb.Sheets("S37").Range("A1:J61").Value
    ThisWorkbook.Sheets("S38").Range("A1:J61").Value = wkb.Sheets("S38").Range("A1:J61").Value
    ThisWorkbook.Sheets("S39").Range("A1:J61").Value = wkb.Sheets("S39").Range("A1:J61").Value
    ThisWorkbook.Sheets("S40").Range("A1:J61").Value = wkb.Sheets("S40").Range("A1:J61").Value
    ThisWorkbook.Sheets("S41").Range("A1:J61").Value = wkb.Sheets("S41").Range("A1:J61").Value
    ThisWorkbook.Sheets("S42").Range("A1:J61").Value = wkb.Sheets("S42").Range("A1:J61").Value
    ThisWorkbook.Sheets("S43").Range("A1:J61").Value = wkb.Sheets("S43").Range("A1:J61").Value
    ThisWorkbook.Sheets("S44").Range("A1:J61").Value = wkb.Sheets("S44").Range("A1:J61").Value
    ThisWorkbook.Sheets("S45").Range("A1:J61").Value = wkb.Sheets("S45").Range("A1:J61").Value
    ThisWorkbook.Sheets("S46").Range("A1:J61").Value = wkb.Sheets("S46").Range("A1:J61").Value
    ThisWorkbook.Sheets("S47").Range("A1:J61").Value = wkb.Sheets("S47").Range("A1:J61").Value
    ThisWorkbook.Sheets("S48").Range("A1:J61").Value = wkb.Sheets("S48").Range("A1:J61").Value
    ThisWorkbook.Sheets("S49").Range("A1:J61").Value = wkb.Sheets("S49").Range("A1:J61").Value
    ThisWorkbook.Sheets("S50").Range("A1:J61").Value = wkb.Sheets("S50").Range("A1:J61").Value
    ThisWorkbook.Sheets("S51").Range("A1:J61").Value = wkb.Sheets("S51").Range("A1:J61").Value
    ThisWorkbook.Sheets("S52").Range("A1:J61").Value = wkb.Sheets("S52").Range("A1:J61").Value
    wkb.Close False

   'planning ZAC

    chemin = "J:\"
    fichier = "Planning ZAC.xlsx"
    Application.ScreenUpdating = False
    Set wkb = Workbooks.Open(chemin & fichier)
    ThisWorkbook.Sheets("S01").Range("A62:J132").Value = wkb.Sheets("S01").Range("A1:J71").Value
    ThisWorkbook.Sheets("S02").Range("A62:J132").Value = wkb.Sheets("S02").Range("A1:J71").Value
    ThisWorkbook.Sheets("S03").Range("A62:J132").Value = wkb.Sheets("S03").Range("A1:J71").Value
    ThisWorkbook.Sheets("S04").Range("A62:J132").Value = wkb.Sheets("S04").Range("A1:J71").Value
    ThisWorkbook.Sheets("S05").Range("A62:J132").Value = wkb.Sheets("S05").Range("A1:J71").Value
    ThisWorkbook.Sheets("S06").Range("A62:J132").Value = wkb.Sheets("S06").Range("A1:J71").Value
    ThisWorkbook.Sheets("S07").Range("A62:J132").Value = wkb.Sheets("S07").Range("A1:J71").Value
    ThisWorkbook.Sheets("S08").Range("A62:J132").Value = wkb.Sheets("S08").Range("A1:J71").Value
    ThisWorkbook.Sheets("S09").Range("A62:J132").Value = wkb.Sheets("S09").Range("A1:J71").Value
    ThisWorkbook.Sheets("S10").Range("A62:J132").Value = wkb.Sheets("S10").Range("A1:J71").Value
    ThisWorkbook.Sheets("S11").Range("A62:J132").Value = wkb.Sheets("S11").Range("A1:J71").Value
    ThisWorkbook.Sheets("S12").Range("A62:J132").Value = wkb.Sheets("S12").Range("A1:J71").Value
    ThisWorkbook.Sheets("S13").Range("A62:J132").Value = wkb.Sheets("S13").Range("A1:J71").Value
    ThisWorkbook.Sheets("S14").Range("A62:J132").Value = wkb.Sheets("S14").Range("A1:J71").Value
    ThisWorkbook.Sheets("S15").Range("A62:J132").Value = wkb.Sheets("S15").Range("A1:J71").Value
    ThisWorkbook.Sheets("S16").Range("A62:J132").Value = wkb.Sheets("S16").Range("A1:J71").Value
    ThisWorkbook.Sheets("S17").Range("A62:J132").Value = wkb.Sheets("S17").Range("A1:J71").Value
    ThisWorkbook.Sheets("S18").Range("A62:J132").Value = wkb.Sheets("S18").Range("A1:J71").Value
    ThisWorkbook.Sheets("S19").Range("A62:J132").Value = wkb.Sheets("S19").Range("A1:J71").Value
    ThisWorkbook.Sheets("S20").Range("A62:J132").Value = wkb.Sheets("S20").Range("A1:J71").Value
    ThisWorkbook.Sheets("S21").Range("A62:J132").Value = wkb.Sheets("S21").Range("A1:J71").Value
    ThisWorkbook.Sheets("S22").Range("A62:J132").Value = wkb.Sheets("S22").Range("A1:J71").Value
    ThisWorkbook.Sheets("S23").Range("A62:J132").Value = wkb.Sheets("S23").Range("A1:J71").Value
    ThisWorkbook.Sheets("S24").Range("A62:J132").Value = wkb.Sheets("S24").Range("A1:J71").Value
    ThisWorkbook.Sheets("S25").Range("A62:J132").Value = wkb.Sheets("S25").Range("A1:J71").Value
    ThisWorkbook.Sheets("S26").Range("A62:J132").Value = wkb.Sheets("S26").Range("A1:J71").Value
    ThisWorkbook.Sheets("S27").Range("A62:J132").Value = wkb.Sheets("S27").Range("A1:J71").Value
    ThisWorkbook.Sheets("S28").Range("A62:J132").Value = wkb.Sheets("S28").Range("A1:J71").Value
    ThisWorkbook.Sheets("S29").Range("A62:J132").Value = wkb.Sheets("S29").Range("A1:J71").Value
    ThisWorkbook.Sheets("S30").Range("A62:J132").Value = wkb.Sheets("S30").Range("A1:J71").Value
    ThisWorkbook.Sheets("S31").Range("A62:J132").Value = wkb.Sheets("S31").Range("A1:J71").Value
    ThisWorkbook.Sheets("S32").Range("A62:J132").Value = wkb.Sheets("S32").Range("A1:J71").Value
    ThisWorkbook.Sheets("S33").Range("A62:J132").Value = wkb.Sheets("S33").Range("A1:J71").Value
    ThisWorkbook.Sheets("S34").Range("A62:J132").Value = wkb.Sheets("S34").Range("A1:J71").Value
    ThisWorkbook.Sheets("S35").Range("A62:J132").Value = wkb.Sheets("S35").Range("A1:J71").Value
    ThisWorkbook.Sheets("S36").Range("A62:J132").Value = wkb.Sheets("S36").Range("A1:J71").Value
    ThisWorkbook.Sheets("S37").Range("A62:J132").Value = wkb.Sheets("S37").Range("A1:J71").Value
    ThisWorkbook.Sheets("S38").Range("A62:J132").Value = wkb.Sheets("S38").Range("A1:J71").Value
    ThisWorkbook.Sheets("S39").Range("A62:J132").Value = wkb.Sheets("S39").Range("A1:J71").Value
    ThisWorkbook.Sheets("S40").Range("A62:J132").Value = wkb.Sheets("S40").Range("A1:J71").Value
    ThisWorkbook.Sheets("S41").Range("A62:J132").Value = wkb.Sheets("S41").Range("A1:J71").Value
    ThisWorkbook.Sheets("S42").Range("A62:J132").Value = wkb.Sheets("S42").Range("A1:J71").Value
    ThisWorkbook.Sheets("S43").Range("A62:J132").Value = wkb.Sheets("S43").Range("A1:J71").Value
    ThisWorkbook.Sheets("S44").Range("A62:J132").Value = wkb.Sheets("S44").Range("A1:J71").Value
    ThisWorkbook.Sheets("S45").Range("A62:J132").Value = wkb.Sheets("S45").Range("A1:J71").Value
    ThisWorkbook.Sheets("S46").Range("A62:J132").Value = wkb.Sheets("S46").Range("A1:J71").Value
    ThisWorkbook.Sheets("S47").Range("A62:J132").Value = wkb.Sheets("S47").Range("A1:J71").Value
    ThisWorkbook.Sheets("S48").Range("A62:J132").Value = wkb.Sheets("S48").Range("A1:J71").Value
    ThisWorkbook.Sheets("S49").Range("A62:J132").Value = wkb.Sheets("S49").Range("A1:J71").Value
    ThisWorkbook.Sheets("S50").Range("A62:J132").Value = wkb.Sheets("S50").Range("A1:J71").Value
    ThisWorkbook.Sheets("S51").Range("A62:J132").Value = wkb.Sheets("S51").Range("A1:J71").Value
    ThisWorkbook.Sheets("S52").Range("A62:J132").Value = wkb.Sheets("S52").Range("A1:J71").Value
    wkb.Close False

       'planning Eau

    chemin = "J:\"
    fichier = "Planning Eau.xlsx"
    Application.ScreenUpdating = False
    Set wkb = Workbooks.Open(chemin & fichier)
    ThisWorkbook.Sheets("S01").Range("A133:J203").Value = wkb.Sheets("S01").Range("A1:J71").Value
    ThisWorkbook.Sheets("S02").Range("A133:J203").Value = wkb.Sheets("S02").Range("A1:J71").Value
    ThisWorkbook.Sheets("S03").Range("A133:J203").Value = wkb.Sheets("S03").Range("A1:J71").Value
    ThisWorkbook.Sheets("S04").Range("A133:J203").Value = wkb.Sheets("S04").Range("A1:J71").Value
    ThisWorkbook.Sheets("S05").Range("A133:J203").Value = wkb.Sheets("S05").Range("A1:J71").Value
    ThisWorkbook.Sheets("S06").Range("A133:J203").Value = wkb.Sheets("S06").Range("A1:J71").Value
    ThisWorkbook.Sheets("S07").Range("A133:J203").Value = wkb.Sheets("S07").Range("A1:J71").Value
    ThisWorkbook.Sheets("S08").Range("A133:J203").Value = wkb.Sheets("S08").Range("A1:J71").Value
    ThisWorkbook.Sheets("S09").Range("A133:J203").Value = wkb.Sheets("S09").Range("A1:J71").Value
    ThisWorkbook.Sheets("S10").Range("A133:J203").Value = wkb.Sheets("S10").Range("A1:J71").Value
    ThisWorkbook.Sheets("S11").Range("A133:J203").Value = wkb.Sheets("S11").Range("A1:J71").Value
    ThisWorkbook.Sheets("S12").Range("A133:J203").Value = wkb.Sheets("S12").Range("A1:J71").Value
    ThisWorkbook.Sheets("S13").Range("A133:J203").Value = wkb.Sheets("S13").Range("A1:J71").Value
    ThisWorkbook.Sheets("S14").Range("A133:J203").Value = wkb.Sheets("S14").Range("A1:J71").Value
    ThisWorkbook.Sheets("S15").Range("A133:J203").Value = wkb.Sheets("S15").Range("A1:J71").Value
    ThisWorkbook.Sheets("S16").Range("A133:J203").Value = wkb.Sheets("S16").Range("A1:J71").Value
    ThisWorkbook.Sheets("S17").Range("A133:J203").Value = wkb.Sheets("S17").Range("A1:J71").Value
    ThisWorkbook.Sheets("S18").Range("A133:J203").Value = wkb.Sheets("S18").Range("A1:J71").Value
    ThisWorkbook.Sheets("S19").Range("A133:J203").Value = wkb.Sheets("S19").Range("A1:J71").Value
    ThisWorkbook.Sheets("S20").Range("A133:J203").Value = wkb.Sheets("S20").Range("A1:J71").Value
    ThisWorkbook.Sheets("S21").Range("A133:J203").Value = wkb.Sheets("S21").Range("A1:J71").Value
    ThisWorkbook.Sheets("S22").Range("A133:J203").Value = wkb.Sheets("S22").Range("A1:J71").Value
    ThisWorkbook.Sheets("S23").Range("A133:J203").Value = wkb.Sheets("S23").Range("A1:J71").Value
    ThisWorkbook.Sheets("S24").Range("A133:J203").Value = wkb.Sheets("S24").Range("A1:J71").Value
    ThisWorkbook.Sheets("S25").Range("A133:J203").Value = wkb.Sheets("S25").Range("A1:J71").Value
    ThisWorkbook.Sheets("S26").Range("A133:J203").Value = wkb.Sheets("S26").Range("A1:J71").Value
    ThisWorkbook.Sheets("S27").Range("A133:J203").Value = wkb.Sheets("S27").Range("A1:J71").Value
    ThisWorkbook.Sheets("S28").Range("A133:J203").Value = wkb.Sheets("S28").Range("A1:J71").Value
    ThisWorkbook.Sheets("S29").Range("A133:J203").Value = wkb.Sheets("S29").Range("A1:J71").Value
    ThisWorkbook.Sheets("S30").Range("A133:J203").Value = wkb.Sheets("S30").Range("A1:J71").Value
    ThisWorkbook.Sheets("S31").Range("A133:J203").Value = wkb.Sheets("S31").Range("A1:J71").Value
    ThisWorkbook.Sheets("S32").Range("A133:J203").Value = wkb.Sheets("S32").Range("A1:J71").Value
    ThisWorkbook.Sheets("S33").Range("A133:J203").Value = wkb.Sheets("S33").Range("A1:J71").Value
    ThisWorkbook.Sheets("S34").Range("A133:J203").Value = wkb.Sheets("S34").Range("A1:J71").Value
    ThisWorkbook.Sheets("S35").Range("A133:J203").Value = wkb.Sheets("S35").Range("A1:J71").Value
    ThisWorkbook.Sheets("S36").Range("A133:J203").Value = wkb.Sheets("S36").Range("A1:J71").Value
    ThisWorkbook.Sheets("S37").Range("A133:J203").Value = wkb.Sheets("S37").Range("A1:J71").Value
    ThisWorkbook.Sheets("S38").Range("A133:J203").Value = wkb.Sheets("S38").Range("A1:J71").Value
    ThisWorkbook.Sheets("S39").Range("A133:J203").Value = wkb.Sheets("S39").Range("A1:J71").Value
    ThisWorkbook.Sheets("S40").Range("A133:J203").Value = wkb.Sheets("S40").Range("A1:J71").Value
    ThisWorkbook.Sheets("S41").Range("A133:J203").Value = wkb.Sheets("S41").Range("A1:J71").Value
    ThisWorkbook.Sheets("S42").Range("A133:J203").Value = wkb.Sheets("S42").Range("A1:J71").Value
    ThisWorkbook.Sheets("S43").Range("A133:J203").Value = wkb.Sheets("S43").Range("A1:J71").Value
    ThisWorkbook.Sheets("S44").Range("A133:J203").Value = wkb.Sheets("S44").Range("A1:J71").Value
    ThisWorkbook.Sheets("S45").Range("A133:J203").Value = wkb.Sheets("S45").Range("A1:J71").Value
    ThisWorkbook.Sheets("S46").Range("A133:J203").Value = wkb.Sheets("S46").Range("A1:J71").Value
    ThisWorkbook.Sheets("S47").Range("A133:J203").Value = wkb.Sheets("S47").Range("A1:J71").Value
    ThisWorkbook.Sheets("S48").Range("A133:J203").Value = wkb.Sheets("S48").Range("A1:J71").Value
    ThisWorkbook.Sheets("S49").Range("A133:J203").Value = wkb.Sheets("S49").Range("A1:J71").Value
    ThisWorkbook.Sheets("S50").Range("A133:J203").Value = wkb.Sheets("S50").Range("A1:J71").Value
    ThisWorkbook.Sheets("S51").Range("A133:J203").Value = wkb.Sheets("S51").Range("A1:J71").Value
    ThisWorkbook.Sheets("S52").Range("A133:J203").Value = wkb.Sheets("S52").Range("A1:J71").Value
    wkb.Close False

           'planning VSD

    chemin = "J:\"
    fichier = "Planning  VSD.xlsx"
    Application.ScreenUpdating = False
    Set wkb = Workbooks.Open(chemin & fichier)
    ThisWorkbook.Sheets("S01").Range("A204:J264").Value = wkb.Sheets("S01").Range("A1:J61").Value
    ThisWorkbook.Sheets("S02").Range("A204:J264").Value = wkb.Sheets("S02").Range("A1:J61").Value
    ThisWorkbook.Sheets("S03").Range("A204:J264").Value = wkb.Sheets("S03").Range("A1:J61").Value
    ThisWorkbook.Sheets("S04").Range("A204:J264").Value = wkb.Sheets("S04").Range("A1:J61").Value
    ThisWorkbook.Sheets("S05").Range("A204:J264").Value = wkb.Sheets("S05").Range("A1:J61").Value
    ThisWorkbook.Sheets("S06").Range("A204:J264").Value = wkb.Sheets("S06").Range("A1:J61").Value
    ThisWorkbook.Sheets("S07").Range("A204:J264").Value = wkb.Sheets("S07").Range("A1:J61").Value
    ThisWorkbook.Sheets("S08").Range("A204:J264").Value = wkb.Sheets("S08").Range("A1:J61").Value
    ThisWorkbook.Sheets("S09").Range("A204:J264").Value = wkb.Sheets("S09").Range("A1:J61").Value
    ThisWorkbook.Sheets("S10").Range("A204:J264").Value = wkb.Sheets("S10").Range("A1:J61").Value
    ThisWorkbook.Sheets("S11").Range("A204:J264").Value = wkb.Sheets("S11").Range("A1:J61").Value
    ThisWorkbook.Sheets("S12").Range("A204:J264").Value = wkb.Sheets("S12").Range("A1:J61").Value
    ThisWorkbook.Sheets("S13").Range("A204:J264").Value = wkb.Sheets("S13").Range("A1:J61").Value
    ThisWorkbook.Sheets("S14").Range("A204:J264").Value = wkb.Sheets("S14").Range("A1:J61").Value
    ThisWorkbook.Sheets("S15").Range("A204:J264").Value = wkb.Sheets("S15").Range("A1:J61").Value
    ThisWorkbook.Sheets("S16").Range("A204:J264").Value = wkb.Sheets("S16").Range("A1:J61").Value
    ThisWorkbook.Sheets("S17").Range("A204:J264").Value = wkb.Sheets("S17").Range("A1:J61").Value
    ThisWorkbook.Sheets("S18").Range("A204:J264").Value = wkb.Sheets("S18").Range("A1:J61").Value
    ThisWorkbook.Sheets("S19").Range("A204:J264").Value = wkb.Sheets("S19").Range("A1:J61").Value
    ThisWorkbook.Sheets("S20").Range("A204:J264").Value = wkb.Sheets("S20").Range("A1:J61").Value
    ThisWorkbook.Sheets("S21").Range("A204:J264").Value = wkb.Sheets("S21").Range("A1:J61").Value
    ThisWorkbook.Sheets("S22").Range("A204:J264").Value = wkb.Sheets("S22").Range("A1:J61").Value
    ThisWorkbook.Sheets("S23").Range("A204:J264").Value = wkb.Sheets("S23").Range("A1:J61").Value
    ThisWorkbook.Sheets("S24").Range("A204:J264").Value = wkb.Sheets("S24").Range("A1:J61").Value
    ThisWorkbook.Sheets("S25").Range("A204:J264").Value = wkb.Sheets("S25").Range("A1:J61").Value
    ThisWorkbook.Sheets("S26").Range("A204:J264").Value = wkb.Sheets("S26").Range("A1:J61").Value
    ThisWorkbook.Sheets("S27").Range("A204:J264").Value = wkb.Sheets("S27").Range("A1:J61").Value
    ThisWorkbook.Sheets("S28").Range("A204:J264").Value = wkb.Sheets("S28").Range("A1:J61").Value
    ThisWorkbook.Sheets("S29").Range("A204:J264").Value = wkb.Sheets("S29").Range("A1:J61").Value
    ThisWorkbook.Sheets("S30").Range("A204:J264").Value = wkb.Sheets("S30").Range("A1:J61").Value
    ThisWorkbook.Sheets("S31").Range("A204:J264").Value = wkb.Sheets("S31").Range("A1:J61").Value
    ThisWorkbook.Sheets("S32").Range("A204:J264").Value = wkb.Sheets("S32").Range("A1:J61").Value
    ThisWorkbook.Sheets("S33").Range("A204:J264").Value = wkb.Sheets("S33").Range("A1:J61").Value
    ThisWorkbook.Sheets("S34").Range("A204:J264").Value = wkb.Sheets("S34").Range("A1:J61").Value
    ThisWorkbook.Sheets("S35").Range("A204:J264").Value = wkb.Sheets("S35").Range("A1:J61").Value
    ThisWorkbook.Sheets("S36").Range("A204:J264").Value = wkb.Sheets("S36").Range("A1:J61").Value
    ThisWorkbook.Sheets("S37").Range("A204:J264").Value = wkb.Sheets("S37").Range("A1:J61").Value
    ThisWorkbook.Sheets("S38").Range("A204:J264").Value = wkb.Sheets("S38").Range("A1:J61").Value
    ThisWorkbook.Sheets("S39").Range("A204:J264").Value = wkb.Sheets("S39").Range("A1:J61").Value
    ThisWorkbook.Sheets("S40").Range("A204:J264").Value = wkb.Sheets("S40").Range("A1:J61").Value
    ThisWorkbook.Sheets("S41").Range("A204:J264").Value = wkb.Sheets("S41").Range("A1:J61").Value
    ThisWorkbook.Sheets("S42").Range("A204:J264").Value = wkb.Sheets("S42").Range("A1:J61").Value
    ThisWorkbook.Sheets("S43").Range("A204:J264").Value = wkb.Sheets("S43").Range("A1:J61").Value
    ThisWorkbook.Sheets("S44").Range("A204:J264").Value = wkb.Sheets("S44").Range("A1:J61").Value
    ThisWorkbook.Sheets("S45").Range("A204:J264").Value = wkb.Sheets("S45").Range("A1:J61").Value
    ThisWorkbook.Sheets("S46").Range("A204:J264").Value = wkb.Sheets("S46").Range("A1:J61").Value
    ThisWorkbook.Sheets("S47").Range("A204:J264").Value = wkb.Sheets("S47").Range("A1:J61").Value
    ThisWorkbook.Sheets("S48").Range("A204:J264").Value = wkb.Sheets("S48").Range("A1:J61").Value
    ThisWorkbook.Sheets("S49").Range("A204:J264").Value = wkb.Sheets("S49").Range("A1:J61").Value
    ThisWorkbook.Sheets("S50").Range("A204:J264").Value = wkb.Sheets("S50").Range("A1:J61").Value
    ThisWorkbook.Sheets("S51").Range("A204:J264").Value = wkb.Sheets("S51").Range("A1:J61").Value
    ThisWorkbook.Sheets("S52").Range("A204:J264").Value = wkb.Sheets("S52").Range("A1:J61").Value
    wkb.Close False

MsgBox "Mise à jour effectuée"

End Sub
Le 09/01/2018 à 08:42

bonjour,

une proposition, (non testée). J'ai également simplifié ton code.

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier$, fichiers$, i%
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = s & Format(i, "00")
            wkb.Sheets(shn).Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Range("A1")
        Next i
        wkb.Close False
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 10/01/2018 à 08:37

Vraiment super pour la simplifications du code mais je rencontre un problème sur la ligne:

For Each fichier In fichiers

il me notifie d'une erreur de compilation Each

Le 10/01/2018 à 12:55

bonjour,

cela devrait aller mieux ainsi

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers$, i%
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = s & Format(i, "00")
            wkb.Sheets(shn).Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Range("A1")
        Next i
        wkb.Close False
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 15/01/2018 à 08:03

j'ai re essayé mais je rencontre toujours le même type d'erreur

désoler pour le temps que j'ai mit à répondre mais j'ai chercher de mon coté comment arranger la chose... mais sans trouver...

Le 15/01/2018 à 08:10

Bonjour

Existe t-il un si long espace entre les caractères ? 

fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")

PlanningICIVSD.xlsx

et dans le 1er post

fichier = "PlanningICIVSD.xlsx"

ou l'inversion de Next i avant Next fichier

crdlt,

André

Le 15/01/2018 à 10:34

bonjour

j'ai répondu trop vite, il y avait encore une erreur

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers, i%
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = s & Format(i, "00")
            wkb.Sheets(shn).Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Range("A1")
        Next i
        wkb.Close False
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 15/01/2018 à 13:00
shn = s & Format(i, "00")
            wkb.Sheets(shn).Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Range("A1")

Jecomprend pas la signification de "shn" ?

La marco bug à ces lignes la en indiquant, "Indice n’appartient pas a la sélection"

Je me demande si le problème ne viendrai pas du faite que mes onglet sont nommé : S01, S02....S52.

Et que dans la macro c'est un simple i= 1 to 52

Le 15/01/2018 à 13:12

bonjour,

décidément je n'avais pas les yeux en face des trous, j'espère que cette fois-ci c'est bon 

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers, i%
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = "S" & Format(i, "00")
            wkb.Sheets(shn).Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Range("A1")
        Next i
        wkb.Close False
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 16/01/2018 à 08:27

Ah super, j'ai testé se matin ! et on touche est presque à la perfection ^^

Le seul soucie c'est que la macro dans l'état actuelle réalise ceci :

Je prend les onglet du fichier 2 et je le copie sur les onglet du fichier 1 sur la plage voulu.

Le problème c'est que ensuite le fichier 3 va écraser les donnée du fichier 2 qui ont été coller sur le fichier 1 étant donnée qu'ils ont la même plage.

Je sais pas si tu as vu dans ma première macro mais je décalais la plage pour que chaque fichiers puissent être présent sur le fichier 1.

^^ je te remercie encore beaucoup de l'aide que tu apporte à mon petit projet !

Le 16/01/2018 à 10:39

bonjour,

désolé pour tous ces chipotages, 

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers, i%, nr
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = "S" & Format(i, "00")
            With wkb.Sheets(shn)
                nr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                If nr = 2 Then nr = 1
                .Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Cells(nr, 1)
            End With
        Next i
        wkb.Close False
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 16/01/2018 à 12:50

IL y a une petite erreur à cette ligne la :

  .Range("A1:J61").Copy ThisWorkbook.Sheets(shn).Cells(nr, 1)

J'essai de me débrouiller pour corriger ou arranger la macro ^^ mais j'ai pas assez de connaissance dans VBA surtout avec les technique que tu utilises.

Merci encore de ton aide

Le 16/01/2018 à 13:28

Bonjour,

aargh, je n'avais pas remarqué que les plages à copier différaient selon le fichier.

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers, i%, nr, k%, rtc
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    rtc = Array("A1:J61", "A1:J71", "A1:J71", "A1:J61")    'plage à copier selon fichier
    Application.ScreenUpdating = False
    k = 0
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = "S" & Format(i, "00")
            With wkb.Sheets(shn)
                nr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                If nr = 2 Then nr = 1
                .Range(rtc(k)).Copy ThisWorkbook.Sheets(shn).Cells(nr, 1)
            End With
        Next i
        wkb.Close False
        k = k + 1
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Le 17/01/2018 à 08:36

Les plages à coller aussi sont différentes, j'ai vu que tu avais inséré une ligne pour coller à la ligne suivante quand la ligne est pleine mais le soucie c'est que les lignes sont pas toujours remplies.

Ce matin j'ai testé la macro et un problème d’exécution la ligne au dessus du End With "erreur défini par l’objet ou l'application"

Merci encore pour ton aide ^^ je vais passez pour un chiant ! xD

Le 17/01/2018 à 13:11

Bonjour,

si tu as des plages variables à copier, j'ai adapté le code pour qu'il détermine le nombre de lignes à copier (se basant sur la colonne 1 de chaque feuille). A nouveau ce n'est pas testé, à voir si cela fonctionne comme tu souhaites.

pour l'autre problème, il s'agit d'un problème en lien avec tes données/fichiers, je ne peux donc t'aider sans avoir le fichier.

Sub planning()
'planning produit
    Dim wkb As Workbook, chemin$, fichier, fichiers, i%, nr, k%, dl
    chemin = "J:\"
    fichiers = Array("Planning Produit.xlsx", "Planning ZAC.xlsx", "Planning Eau.xlsx", "Planning  VSD.xlsx")
    Application.ScreenUpdating = False
    k = 0
    For Each fichier In fichiers
        Set wkb = Workbooks.Open(chemin & fichier)
        For i = 1 To 52
            shn = "S" & Format(i, "00")
            With wkb.Sheets(shn)
                dl = .Cells(Rows.Count, 1).End(xlUp).Row 'nombre de lignes à copier
                nr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' n° de ligne où coller
                If nr = 2 Then nr = 1
                .Range("A1:J" & dl).Copy ThisWorkbook.Sheets(shn).Cells(nr, 1)
            End With
        Next i
        wkb.Close False
        k = k + 1
    Next fichier
    MsgBox "Mise à jour effectuée"
End Sub
Rechercher des sujets similaires à "transfere donnee mise forme"