Problème avec Set VBA

Version imprimable

Bonjour,

j'ai un problème qui persiste sur ce bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ouvrir_fichier()
 
    Dim TCD As Range
    Dim Plage As Range
    Dim wb, wb1, wb2 As Workbook
    Dim Fichier As String
    Dim plage1, plage2 As Range
 
    With Workbooks("tableau de bord.xlsm").Worksheets("Feuil1")
 
 
        Set wb = Workbooks.Open("C:\Users\\Desktop\pivot des zeros.xlsm")
 
        Set plage1 = Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").Range(.Cells(8, 8), .Cells(8, 11))
        Set plage2 = Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").Range(.Cells(10, 8), .Cells(10, 11))

l'erreur est au niveau des "Set plage1" et "Set plage2", en effet le set va chercher une plage de données issue d'un autre fichier Excel mais pourquoi ça ne marche pas svp?

Merci beaucoup

21/09/2014, 17h06
Daniel.C

Bonjour,

Dans la ligne :

Code:

Set plage1 = Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").Range(.Cells(8, 8), .Cells(8, 11))

".Cells(8, 8)" et ".Cells(8, 8)" se réfèrent au classeur "Workbooks("tableau de bord.xlsm")" puisqu'ils sont précédés par un ".". Or tu le adjoins au classeur ""pivot des zeros.xlsm"". Tu dois donc enlever les "." pour être cohérent :

Code:

Set plage1 = Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").Range(Cells(8, 8), Cells(8, 11))
21/09/2014, 18h14
SfJ5Rpw8
Bonjour,

Citation:

Envoyé par Daniel.C

... Tu dois donc enlever les "." pour être cohérent :

Code:

Set plage1 = Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").Range(Cells(8, 8), Cells(8, 11))

:nono:

il n'est pas cohérent d'utiliser Cells sans le "." !! car alors le fonctionnement du code dépend de la feuille active ... mieux vaut laisser le "." mais modifier le with afin que les objets range et cells porte sur la même feuille :
Code:

1 2 3 with Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1") Set plage1 = .Range(.Cells(8, 8), .Cells(8, 11)) end with
ainsi le code fonctionne quelque soit la feuille active

il serait plus simple d'utiliser les adresses style A1 pour définir ta plage :

Code:

Set plage1 =Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").range("H8:K8")
21/09/2014, 18h17
eriiic

Bonjour,

au passage lorsque tu écris Dim plage1, plage2 As Range, seul plage2 est typé Range. plage1 est Variant.

eric