Re bonjour voila mon code, il marchais jusqu'a present mais je sais pas quel manip j'ai fait il n'y a plus aucune "selection.qqchose qui fonctionne. D'un coté ca tombe bien c'est pas conseillémais je ne sais pas comment faire autrement j'ai essayé d'autre chose mais vu que c'est d'une feuille d'un fishier à une autre feuille d'une autre fichier je sais pas trop comment organiser ça
A l'aide s'il vous plait je suis sur que c'est trop bête en plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub Montpellier_dom_cmd_Click() Workbooks.Open ("C:\Users\PC_DU_GREEN\Desktop\Stat pari\Stat montpellier.xlsx") Windows("Stat montpellier.xlsx").Activate Sheets("recap 3 dernieres saisons").Select Range("A1:T296").Select Application.CutCopyMode = False selection.Copy Windows("paris sportif.xlsm").Activate Sheets("domicile").Range("A1").Select ActiveSheet.Paste Workbooks("Stat montpellier.xlsx").Close False frmexterieur.Show frmdomicile.Hide End Sub
Partager