Utilisation de GetObject

[Dom]

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

 

[Michel_M]

Bonjour dom,

Le mieux serait que tu joignes une maquette "light"de tes 2 classeurs en expliquant bien ce que tu veux...

Tes macros me semblent bien compliquées (à priori) et seront très longues à éxécuter avec des "copy-paste" pour 25 check-box (ton 1° post)

A+
Michel

 

[Dom]

Salut à toi,

En fait c'est simple : dans le premier classeur (Gestion-CCF-Gle), je demande aux utilisateurs de s'inscrire dans une première base (Nom prénom psw etc...)

Ils doivent ensuite sélectionner des classes (exemple BEPA1ECC) dans lesquelles ils interviennent. Donc une ou plusieurs ou plusieurs sélection possibles). En fonction de la sélection de chacun la première base est recopiée dans chacune des bases préalablement sélectionnées. Il y a plus simple à fare c'est sûr, avec une seule base qui ferait référence aux classes sélectionnées

@ + dom

 

[Michel_M]

Re

J'ai rien compris à tes explications.

A+
Michel

 

[Dom]

Re-bonsoir,

Bon c'est pas trop grave, j'essaierais d'être plus explicite demain

Merci à toi

@ + Dom