Bonjour,
J'ai une macro qui me permet de copier des valeurs des cellules d'un tableau pour les copier dans un autre tableau situer en reseau.
j'ai tenter d'indiquer le chemin d’accès mais cela ne fonctionne pas.
Sub rangecopy()
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("a6:c26").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("a6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("ac6:ae31").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("ac6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("e6:j19").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("e6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("v6:aa9").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("v6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("v13:aa19").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("v13")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("v23:aa26").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("v23")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("p30:aa31").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("p30")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("p23:p26").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("p23")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("l6:n19").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("l6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("r6:t9").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("r6")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("r13:t19").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("r13")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("r23:t26").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("r23")
Workbooks("lafeuille.xlsm").Sheets("feuil1").Range("p6:p19").Copy Workbooks("\\s20sdeatapt\up_sud$\8_coordination de production\ecran.xlsm").Worksheets("feuil1").Range("p6")
End Sub
Quelqu'un peu m'aider ?