Discussion :

[capi81]

Bonsoir le forum



Mon code bug sur cette ligne avec comme message d’erreur « objet requis »:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C13:M61").Copy wk1.Sheets("TEST1").Cmde1.Caption.Range("C13")

Voici le code intégral pour appréciation.

Résultat attendu : j’ai 2 classeurs wk et wk1 (par exemple).

Je copie la plage c13 :m61 du classeur1 pour les coller dans la cellule C13 de la feuille choisie (Sheets("TEST1").Cmde1.Caption )) du classeur2.

Le nom de la feuille de destination et classeur1 correspondent au nom du bouton de commande (cmde1).

Merci de m’aider à parfaire mon code et que son fonctionnement soit accéléré.

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
21
22
23
Dim spath As String, sFile As String
 
Dim wk1 As Workbook
 
Set wk1 = ThisWorkbook
 
'Set sh = Sheets("TEST1").Cmde1.Caption
 
spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"
 
sFile = Sheets("TEST1").Cmde1.Caption & ".xlsm"
 
Application.DisplayAlerts = False
 
Workbooks.Open Filename:=spath & sFile
 
Range("C13:M61").Copy wk1.Sheets("TEST1").Cmde1.Caption.Range("C13")
 
ActiveWorkbook.Close Savechanges:=False
 
'wk1.Sheets("TEST1").Range ("C13")
 
Application.DisplayAlerts = True

[Menhir]

Sheets("TEST1").Cmde1.Caption.Range("C13")

Qu'est-ce que Cmde1.Caption est supposé signifier ?

A ma connaissance, Caption est une propriété de fenêtre qui donne son titre et qui retourne une donnée String.
Comme une donnée String ne peut pas avoir de Range, il est normal que ta ligne bug.

[capi81]

Bonsoir Menhir
Merci pour votre réponse.
J'ai rendu ma cmde.caption dynamique donc il prend le nom du classeur a sélectionné..voici les valeurs que prend cmde1.caption (gf0100, gf0897...).
Exemple : quand je click sur le bouton de commande, il ouvre le classeur portant le nom du bouton de commande(cmde1.caption).
J'ai fais en sorte que le nom du classeur ou de la feuille à utiliser porte le nom de cmde1.caption.
Espérant m'avoir fait comprendre.

[Menhir]

quand je click sur le bouton de commande, il ouvre le classeur portant le nom du bouton de commande(cmde1.caption).

Pour un Workbooks.Open, ça peut marcher puisque le paramètre Filename attend une donnée de type string.

En revanche, comme référence de parent d'un Range, ça ne marchera pas puisqu'un objet ne peut pas être un membre d'une simple valeur.

[capi81]

Salut Menhir et le forum
Peut-être que cette solution qui répond à mon besoin te permettra de comprendre ce dont j'avais besoin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set wk1 = ThisWorkbook
sh = Sheets("TEST1").Cmde1.Caption
spath = "C:\Users\" & Environ("username") & "\Desktop\TEST\"
sFile = Sheets("TEST1").Cmde1.Caption & ".xlsm"
Workbooks.Open Filename:=spath & sFile
Range("C13:M61").Copy wk1.Sheets(sh).Range("C13")
ActiveWorkbook.Close Savechanges:=False