D
Dom
Guest
Bonjour à tous, bonjour Forum chéri
Pourriez-vous me donner un petit coup de main SVP.
Voici deux procédures, la n°1 fonctionne correctement, la n° 2 avec la fonction GetObject ne fonctionne pas vraiment (dur dur !!!).
Private Sub CommandButton1_Click()
Dim Nextrow As Long
Dim MyObject As Workbook (déclaration normale)
N° 1
If CheckBox13.Value = True Then
Sheets("BaseDépart").Select
Range("G1:K1").Select
Selection.Copy
Workbooks.Open Filename:="D:\Documents\Année03-04\Gestion-des-CCF\BEPA1AE.xls"
Sheets("Contrôle").Select
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Nextrow = Range("A65536").End(xlUp).Row + 1
Set select1 = Worksheets("Contrôle").Range("Q1")
Cells(Nextrow, 1) = select1
Set select2 = Worksheets("Contrôle").Range("R1")
Cells(Nextrow, 2) = select2
Set select3 = Worksheets("Contrôle").Range("S1")
Cells(Nextrow, 3) = select3
Set select4 = Worksheets("Contrôle").Range("T1")
Cells(Nextrow, 4) = select4
Set select5 = Worksheets("Contrôle").Range("U1")
Cells(Nextrow, 5) = select5
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
N° 2
If CheckBox14.Value = True Then
Sheets("BaseDépart").Select
Range("G1:K1").Select
Selection.Copy
Set MyObject = GetObject("D:\Documents\Année03-04\Gestion-des-CCF\BEPA1ECC.xls") (le classeur s'ouvre bien)
MyObject.Sheets("Contrôle").Select (Le problème commence ici)
MyObject.Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Nextrow = Range("A65536").End(xlUp).Row + 1
Set select1 = Worksheets("Contrôle").Range("Q1")
Cells(Nextrow, 1) = select1
Set select2 = Worksheets("Contrôle").Range("R1")
Cells(Nextrow, 2) = select2
Set select3 = Worksheets("Contrôle").Range("S1")
Cells(Nextrow, 3) = select3
Set select4 = Worksheets("Contrôle").Range("T1")
Cells(Nextrow, 4) = select4
Set select5 = Worksheets("Contrôle").Range("U1")
Cells(Nextrow, 5) = select5
Si vous avez une réponse à cela, bravo ! et gros bisous
@ Dom
Pourriez-vous me donner un petit coup de main SVP.
Voici deux procédures, la n°1 fonctionne correctement, la n° 2 avec la fonction GetObject ne fonctionne pas vraiment (dur dur !!!).
Private Sub CommandButton1_Click()
Dim Nextrow As Long
Dim MyObject As Workbook (déclaration normale)
N° 1
If CheckBox13.Value = True Then
Sheets("BaseDépart").Select
Range("G1:K1").Select
Selection.Copy
Workbooks.Open Filename:="D:\Documents\Année03-04\Gestion-des-CCF\BEPA1AE.xls"
Sheets("Contrôle").Select
Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Nextrow = Range("A65536").End(xlUp).Row + 1
Set select1 = Worksheets("Contrôle").Range("Q1")
Cells(Nextrow, 1) = select1
Set select2 = Worksheets("Contrôle").Range("R1")
Cells(Nextrow, 2) = select2
Set select3 = Worksheets("Contrôle").Range("S1")
Cells(Nextrow, 3) = select3
Set select4 = Worksheets("Contrôle").Range("T1")
Cells(Nextrow, 4) = select4
Set select5 = Worksheets("Contrôle").Range("U1")
Cells(Nextrow, 5) = select5
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
N° 2
If CheckBox14.Value = True Then
Sheets("BaseDépart").Select
Range("G1:K1").Select
Selection.Copy
Set MyObject = GetObject("D:\Documents\Année03-04\Gestion-des-CCF\BEPA1ECC.xls") (le classeur s'ouvre bien)
MyObject.Sheets("Contrôle").Select (Le problème commence ici)
MyObject.Range("Q1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Nextrow = Range("A65536").End(xlUp).Row + 1
Set select1 = Worksheets("Contrôle").Range("Q1")
Cells(Nextrow, 1) = select1
Set select2 = Worksheets("Contrôle").Range("R1")
Cells(Nextrow, 2) = select2
Set select3 = Worksheets("Contrôle").Range("S1")
Cells(Nextrow, 3) = select3
Set select4 = Worksheets("Contrôle").Range("T1")
Cells(Nextrow, 4) = select4
Set select5 = Worksheets("Contrôle").Range("U1")
Cells(Nextrow, 5) = select5
Si vous avez une réponse à cela, bravo ! et gros bisous
@ Dom