Variable qui contient un workbook et un worksheet

Version imprimable

16/05/2018, 18h35
kyros21

Variable qui contient un workbook et un worksheet

Bonjour à tous,

Actuellement en train de taper une macro VBA, je me trouve confronter à des écritures de lignes à rallonge que je pourrai simplifier en stockant dans une variable un workbook et un worksheet dans la même.

Je sais que la fonction with permet de le faire, mais ayant deux paire de workbook worksheet, cela ne fonctionne qu'avec une seule.

merci de votre aide.
16/05/2018, 18h50
Jean-Philippe André

Salut,

stocker deux valeurs de types différents dans une seule variable, c'est pas forcément une bonne idée :)

Tu aurais du code sur lequel on peut s'appuyer pour te donner des pistes ?

Bonjour,

Si j'ai bien compris...
Code:

1 2 3 4 5 6 7 Option Explicit Sub Demo() Dim Ws As Worksheet Set Ws = Workbooks("Classeur1.xlsm").Worksheets("Feuil3") MsgBox "La feuille : " & Ws.Name & " est dans le classeur : " & Ws.Parent.Name End Sub
Le simple fait de stocker un objet Worksheet dans une variable, "embarque" avec cette feuille les objets qui s'y réfèrent et auxquels elle se réfère.
En clair, elle "embarque" avec elle son objet Workbook et ses objets Range, par exemple.
Le fait de nommer le classeur lors de l'affectation de la feuille à sa variable évite, en cas d'ouverture de plusieurs classeurs, toutes confusions.

Bonjour à tous,

C'est justement mon cas j'ai deux classeurs ouvert, et pour éviter toutes confusions, je spécifie à chaque fois le workbook.

Voici le code que je souhaite éclaircir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Mise_a_jour()
    Static wksfichier As Worksheet
    Static wksimput As Worksheet
    Static wkbsthpte As Workbook
    Dim position As String
 
'desactivation de la mise à jour de l'affichage
'Application.ScreenUpdating = False
'desactivation des alertes à la fermeture des fichiers
Application.DisplayAlerts = False
 
Set wksfichier = Worksheets("Fichiers disponibles")
Set wksimput = Worksheets("Imputations")
Set wkbsthpte = Workbooks("Synthèse pointage.xlsm")
    j = 3
    wksimput.Range("C3:ZZ10000").ClearContents
    For i = 4 To wksfichier.Range("A4").End(xlDown).Row
        ' Eclaircir le code avec l'ajout en with du workbook et worksheet
        With Workbooks("Synthèse pointage.xlsm").Worksheets("Imputations")
        'Ouverture et desactivation des alertes pour mise à jour des classeurs
        Application.Workbooks.Open wksfichier.Cells(i, 1).Value, UpdateLinks:=0
        'Recopie du nom de la personne
        Cells(1, 1).Copy
        .Cells(3, j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        'Copie de la colonne de pointage de chaque personne
        Range("D3:D400").Copy
        .Cells(4, j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        'Désactivation des alertes à la fermeture
 
        'fermeture du classeur
        Workbooks(wkbsthpte.Worksheets("Fichiers disponibles").Cells(i, 2).Value).Close SaveChanges:=False
 
 
        j = j + 1
        End With
    Next i

Comme dis précédemment j'ai éclairci avec un with, mais je pense pouvoir faire mieux.

Merci de votre aide