Discussion :

[awa123]

Bonjour,

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

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
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

[Daniel.C]

Bonjour,

Dans la ligne :

Code :

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

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 :

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

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

[SfJ5Rpw8]

Bonjour,

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

Code :

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

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

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 :

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

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 :

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

 Set plage1 =Workbooks("pivot des zeros.xlsm").Worksheets("Feuil1").range("H8:K8")

[eriiic]

Bonjour,

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

eric