Vba probleme d'affectation
Renaud
-
Renaud -
Renaud -
Bonjour,
J'ai un petit souci avec une macro excel permettant de recopier des cellules d'un workbook vers un autre.
Pour ceci j'ai besoin d'affecter chaque workbook a une variable, je fais :
Dim cotation As Excel.Worksheet
Dim master As Excel.Worksheet
Set cotation = ActiveWorksheet
ChDir "C:\Home\fabre_r\Worksheet"
Workbooks.Open Filename:="C:\Home\fabre_r\Worksheet\TECHPUB2004.xls"
Sheets(master).Select
Range("c11").Select
Set master = ActiveWorksheet
Ceci est destiné a etre dans une macro , mais je n'arrive pas a affecter le workbook qui sera ouvert quand je lancerais la macro a partir d'un bouton a mes variables "cotation" et "master"
Comme vous pouvez le voir je débute merci de votre aide...
J'ai un petit souci avec une macro excel permettant de recopier des cellules d'un workbook vers un autre.
Pour ceci j'ai besoin d'affecter chaque workbook a une variable, je fais :
Dim cotation As Excel.Worksheet
Dim master As Excel.Worksheet
Set cotation = ActiveWorksheet
ChDir "C:\Home\fabre_r\Worksheet"
Workbooks.Open Filename:="C:\Home\fabre_r\Worksheet\TECHPUB2004.xls"
Sheets(master).Select
Range("c11").Select
Set master = ActiveWorksheet
Ceci est destiné a etre dans une macro , mais je n'arrive pas a affecter le workbook qui sera ouvert quand je lancerais la macro a partir d'un bouton a mes variables "cotation" et "master"
Comme vous pouvez le voir je débute merci de votre aide...
A voir également:
- Vba probleme d'affectation
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
6 réponses
Bonjour,
Ne serait-ce pas plutôt :
Dim cotation As Excel.Workbook
Dim master As Excel.Workbook
Set cotation = ActiveWorkbook
ChDir "C:\Home\fabre_r\Worksheet"
Workbooks.Open Filename:="C:\Home\fabre_r\Worksheet\TECHPUB2004.xls"
Set master = ActiveWorkbook
Range("c11").Select
Workbook(cotation).Activate
' ....
Workbook(master).Activate
' ....
Je ne suis pas sur de bien comprendre !
Lupin
Ne serait-ce pas plutôt :
Dim cotation As Excel.Workbook
Dim master As Excel.Workbook
Set cotation = ActiveWorkbook
ChDir "C:\Home\fabre_r\Worksheet"
Workbooks.Open Filename:="C:\Home\fabre_r\Worksheet\TECHPUB2004.xls"
Set master = ActiveWorkbook
Range("c11").Select
Workbook(cotation).Activate
' ....
Workbook(master).Activate
' ....
Je ne suis pas sur de bien comprendre !
Lupin
En fait le probleme est "Comment affecter le workbook ouvert (qui peut avoir differents noms) a ma variable "cotation" "
Cette macro sera affectée a un bouton situé dans ledit workbook
Cette macro sera affectée a un bouton situé dans ledit workbook
Salut,
Pour avoir le wookbook actif dans une variable, il faut utiliser :
Ensuite, pour passer d'un workbook a l'autre, il faut utiliser la méthode Activate :
DaNot
un Libre ouvert à la source...
Pour avoir le wookbook actif dans une variable, il faut utiliser :
Dim lWB_Master as Workbook Set lWB_Master = ActiveWorkbook
Ensuite, pour passer d'un workbook a l'autre, il faut utiliser la méthode Activate :
... lWB_Master.Activate ...
DaNot
un Libre ouvert à la source...
Merci beaucoup, ca fonctionne..
Une ptite question vu que je vais devoir continuer a develloper en Vba, c'est pourquoi ca marche maintenant ?
le lWB_ signifie quoi ?
Merci d'avance
Une ptite question vu que je vais devoir continuer a develloper en Vba, c'est pourquoi ca marche maintenant ?
le lWB_ signifie quoi ?
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question