Discussion :

[nicdodo]

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

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

A l'aide s'il vous plait je suis sur que c'est trop bête en plus

[joe.levrai]

regarde si c'est ok

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
17
18
19
20
 
Private Sub Montpellier_dom_cmd_Click()
 
Dim Wb As Workbook
Dim WbBis As Workbook
 
Set WbBis = Workbooks("paris sportif.xlsm")
Set Wb = Workbooks.Open("C:\Users\PC_DU_GREEN\Desktop\Stat pari\Stat montpellier.xlsx")
 
Wb.Worksheets("recap 3 dernieres saisons").Range("A1:T296").Copy WbBis.Sheets("domicile").Range("A1")
Wb.Close False
 
Set Wb = Nothing
Set WbBis = Nothing
 
frmexterieur.Show
frmdomicile.Hide
 
 
End Sub

[nicdodo]

Oui ca marche nikel merci beaucoup, je vais me plonger la dedans pour ne pas copier coller bêtement un code tout fait mais je ne comprends pas pourquoi les selections.copy ou autre selection.qqchose ne marche plus alors qu'il y'a une semaine tout marcher bien. Qu'est ce que j'ai pu changer dans mon programme pour que excel ne prenne plus cette commande en compte?