Activer feuilles via codename

Version imprimable

21/06/2013, 09h04
pprlp

Activer feuilles via codename

Bonjour à tous,
Je souhaite utiliser l'objet PERSONAL.xlsb pour stocker mes macros personnelles. Jusque là, pas de problème, cependant je n'arrive pas à créer une macro qui puisse activer une feuille avec son codename d'un classeur quelconque. Telles que j'utilise les fonctions d'activation, l'impression que j'ai est que seules les feuilles du classeur qui contient les macros (personal dans mon cas) seraient activables ? Mon besoin est d'activer les feuilles d'un classeur quelconque. En fait dans mon projet, plusieurs classeurs possèdent les mêmes feuilles...
Pour information, si les macros sont dupliquées dans les n classeurs (xlsm dans ce cas), je n'ai pas de problème.
Merci pour votre collaboration
21/06/2013, 11h57
Daniel.C

Bonjour,

Le codename fait référence aux feuilles du classeur dans lequel se trouve la macro. Pourquoi ne qualifies-tu pas les feuilles avec le nom du classeur ?
21/06/2013, 12h01
Invité

Bonjour,

Vous devriez essayer les macros complémentaires.

Ci-joint, un exemple dans ce message http://www.developpez.net/forums/d13...e-cellule-a-0/

Voir le message : "Utiliser la macro dans une macro complémentaire" pour la mise en place.

Le fichier .xla Factures.zip est à adapter à vos besoins.

Ne pas oublier de modifier également le code dans ThisWorkBook.

Cordialement.

Bonjour,

Regarde si c'est ce que tu souhaite avoir :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub ActiverFeuille()
 
    Dim Cl As Workbook
 
    Set Cl = ActiveWorkbook
 
    Cl.Worksheets(Feuil2.Name).Activate
 
End Sub

Hervé.

Bonjour,
Merci pour vos réponses. les pistes suggérées sont celles que j'ai déjà testées, mais sans résultat. Voici mon code:
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 Sub preparer_electra_test() ' Dim Wb As Workbook Dim I As Integer Dim A As Integer Dim max As Integer ' ' Activer le classeur ouvert Set Wb = ActiveWorkbook ' S'assurer que la feuille objets est visible ' Code name de la feuille sh_objets Wb.Worksheets(sh_objets.Name).Visible = xlSheetVisible ' S'assurer que la feuille electra est visible et active ' Code name de la feuille sh_electra Wb.Worksheets(sh_electra.Name).Visible = xlSheetVisible Wb.Worksheets(sh_electra.Name).Activate ' Remplir le tableau I = 3 ' tableau 1 1ère ligne A = 18 'tableau 2 1ère ligne max = 199 ' Do While I <= max If Wb.Worksheets(sh_objets.Name).Cells(I, 2) <> "" Then Wb.Worksheets(sh_electra.Name).Cells(A, 3) = Wb.Worksheets(sh_objets.Name).Cells(I, 2) A = A + 1 Else: End End If I = I + 1 Loop ' Masquer les feuilles Wb.Worksheets(sh_electra.Name).Visible = xlSheetHidden Wb.Worksheets(sh_objets.Name).Visible = xlSheetHidden ' Libérer la mémoire Set Wb = Nothing End Sub
Lorsque ce code est exécute depuis un classeur type personal.xslb ou depuis un classeur de type .xlam, l'erreur "Objet requis " se déclenche sur l'instruction Wb.Worksheets(sh_objets.Name).Visible = xlSheetVisible.
La macro fonctionne correctement si elle est contenu dans le classeur (type xlsm dans ce cas).
Auriez-vous d'autres idées ?
Merci pour votre collaboration
Philippe

22/06/2013, 10h04
Invité

Bonjour,

D'où sort le nom de la feuille ?

Code:

sh_objets.Name

Avez-vous essayé déjà votre macro avec un nom de feuille codé en dur pour voir ?

Cordialement.

Bonjour,

Peut être avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub preparer_electra_test()
'
Dim Wb As Workbook
Dim I As Integer
Dim A As Integer
Dim max As Integer
'
' Activer le classeur ouvert
    Set Wb = ActiveWorkbook
' S'assurer que la feuille objets est visible
' Code name de la feuille sh_objets
 
Dim S As Worksheet
For Each S In Wb.Worksheets
  If S.CodeName = "sh_objets" Then S.Visible = xlSheetVisible
  If S.CodeName = "sh_electra" Then S.Visible = xlSheetVisible
Next S
 
'/// suite traitement
 
End Sub

23/06/2013, 08h23
pprlp

Bonjour,
merci pour vos réponses.
En utilisant la boucle et en déclarant les objets feuilles, j'arrive en effet à rendre visible et activer mes feuilles. Cependant, le problème persiste pour la suite du traitement...
En cherchant sur le net, j'ai appris que l'utilisation du codename n'est pas possible si la macro est située dans un classeur différent de celui qui en cours de traitement. Voir ici.
J'ai donc résolu mon problème en utilisant les noms des onglets. je ferai une procédure afin que les utilisateurs ne modifient pas ces derniers.
Merci encore et bonne journée.
Philippe

Bonjour,

Utilisez les variables objet Worksheet dans la suite de votre traitement

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
Sub preparer_electra_test()
'
Dim Wb As Workbook
Dim I As Integer
Dim A As Integer
Dim max As Integer
'
' Activer le classeur ouvert
    Set Wb = ActiveWorkbook
' S'assurer que la feuille objets est visible
' Code name de la feuille sh_objets
 
Dim S As Worksheet
Dim S1 As Worksheet
Dim S2 As Worksheet
For Each S In Wb.Worksheets
  If S.CodeName = "sh_objets" Then
    Set S1=S
    S1.Visible = xlSheetVisible
 End If
  If S.CodeName = "sh_electra" Then 
    Set S2=S
    S2.Visible = xlSheetVisible
  End If
Next S
 
'/// suite traitement
With S1
  '/// votre code
End With
With S2
  '/// votre code
End With
 
End Sub

23/06/2013, 12h25
Daniel.C

Bonjour,

@ pprlp :

Oui, voir aussi ma réponse du 21/06/2013, 11h57.
24/06/2013, 05h37
pprlp

Bonjour,
Ça marche ! Merci pour vos conseils, je comprends mieux la manipulation des objets dans le vba Excel...

Philippe