VBA - Accéder au premier onglet sans le nommer ???

porcinet82

XLDnaute Barbatruc

• 23 Décembre 2008

• #2

Re : VBA - Accéder au premier onglet sans le nommer ???

Salut,

Pour sélectionner le premier onglet, tu peux utliser Sheets(1).Select

@+

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 23 Décembre 2008

• #3

Re : VBA - Accéder au premier onglet sans le nommer ???

Bonjour porcinet82 et merci pour ta réponse.

Je peux utiliser Sheets(1).Select même si l'onglet en question a un nom différent?

Je teste de ce pas.. 🙂

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Décembre 2008

• #4

Re : VBA - Accéder au premier onglet sans le nommer ???

Bonjour La braise,

Tu peux accéder à une feuille en la désignant par son index. Ex :

Code:

Sheets(1).Activate

Mais attention, il me semble me souvenir que si tu modifies l'ordre des onglets, ton index se modifiera également et ta macro sera faussée (à vérifier).

Espérant avoir répondu.

Cordialement.

Bonjour porcinet82,

Damned, tu m'as grillé.

Sans rancune.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #5

Re : VBA - Accéder au premier onglet sans le nommer ???

Bonjour Labraise, Papou net, Re Romain

tu peux également utiliser la ligne de code ci dessous afin d'actualiser tous tes TCD d'un classeur :

code à placer dans le classeur concerné.

Code:

ThisWorkbook.RefreshAll

bonne journée.
@+

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 23 Décembre 2008

• #6

Re : VBA - Accéder au premier onglet sans le nommer ???

Merci à tous pour toutes ces pistes.

Je teste tout ça aujourd'hui et je vous tiens au courant sur la solution qui dans mon cas est la plus efficace (càd rapide! 🙂🙂🙂)

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 23 Décembre 2008

• #7

Re : VBA - Accéder au premier onglet sans le nommer ???

Re- le fil,

Alors... après quelques tests...

Code:

ThisWorkbook.RefreshAll

Tous les fichiers défilent bien mais les pivot tables ne sont pas actualisés.
C'est dommage car la solution semblait on ne peut plus séduisante...

Je suis actuellement sur une solution combinée... 🙂

Ce que je veux c'est actualiser le(s) pivot table(s) présent sur le premier onglet de chaque fichier, les pivot tables des autres onglets seront du coup actualisés également. 🙂

L'idée serait un truc du genre (on rigole pas! 😀)

Code:

Sheets(1).RefreshAll

qui bien sur ne fonctionne pas, l'erreur retournée est "Erreur d'éxécution 438."

Pour info mon code qui copie la bDD sur le fichier modèle et "tente d'actualiser les pivot tables :

Code:

'Copier les données Export DATAvsN-1
Sheets("DATA vs N-1").Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Ouvrir le modèle Analyse Ytd et coller la selction sur 1ère cellule vide
Workbooks.Open Filename:= _
"D:\NCR Data\Stats CA\Matrice BW\modèles\Modèle RRV Analyse Ytd.xls"
Sheets("DATA vs N-1").Activate
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'Actualiser les rapports
Sheets(1).RefreshAll

Si quelqu'un a une idée ou une piste, je suis on ne peut plus preneur.. 🙂

D'avance merci à tous.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 23 Décembre 2008

• #8

Re : VBA - Accéder au premier onglet sans le nommer ???

re,

Et bien apres ton 'Actualiser les rapports, tu peux utiliser :

Code:

Sheets(1).Select
ThisWorkbook.RefreshAll

Non ?

La commande Sheets(1).Select va toujours te selectionner la feuille qui se trouve en première position dans ton classeur.

@+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Décembre 2008

• #9

Re : VBA - Accéder au premier onglet sans le nommer ???

Bonjour,
Ne sachant pas quelles feuilles contiennent un TCD
dans le module de Thisworkbook

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.PivotTables.Count > 0 Then
    For Each TCD In ActiveSheet.PivotTables
        TCD.RefreshTable
    Next
End If
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Décembre 2008

• #10

Re : VBA - Accéder au premier onglet sans le nommer ???

Re

comprends pas trop, la methode "RefreshAll" fonctionne chez moi (Excel 2003). Le code "ThisWorkbook.RefreshAll" actualise tous les TCD du classeur où se trouve la macro. A priori, cette methode s'applique à un classeur et non à une feuille. Pour un autre classeur, il faut préciser le nom...

Code:

Workbooks("nomduclasseur.xls").RefreshAll

ce classeur doit être ouvert.

bon après midi.
@+

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 23 Décembre 2008

• #11

Re : VBA - Accéder au premier onglet sans le nommer ???

re le fil,

Victoire... ça fonctionne... 🙂🙂🙂

La vérité était contenue dans le message de Pierrot93!
"Le code "ThisWorkbook.RefreshAll" actualise tous les TCD du classeur où se trouve la macro"

En effet, ma macro est enregistrée dans le fichier où se trouve la base de données. Et je lui demande d'actualiser les TCD du fichier modèle, une fois l'onglet de la base de données collé.

Mon code est donc :

Code:

'Actualiser les rapports
Sheets(1).Select
Workbooks("Modèle RRV Analyse Ytd.xls").RefreshAll

et là ça fonctionne nickel... à une vitesse foudroyante!!! 😀

Un grand merci à vous tous pour votre aide déterminante (une fois encore... 🙂)

 

Vote positif 0 Vote négatif

S

slayer17

Guest

• 15 Octobre 2014

• #12

Re : VBA - Accéder au premier onglet sans le nommer ???

bonjour, je debute totalement dans le vba mais j ai une petite question
j ai codé ceci , mais le probleme c'est que effectivement sur ma 1ere feuille le nom de la feuille correspond bien à ma cellule G6 mais impossible de passer sur une autre feuille, comment je peux faire?

Option Explicit
Sub Macro1()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ActiveSheet.Name = Range("g6").Value


Next ws

End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Octobre 2014

• #13

Re : VBA - Accéder au premier onglet sans le nommer ???

Bonjour,
essaye peut être ceci :

Code:

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Name = ws.Range("g6").Value


Next ws

bonne journée
@+

 

Vote positif 0 Vote négatif

S

slayer17

Guest

• 15 Octobre 2014

• #14

Re : VBA - Accéder au premier onglet sans le nommer ???

bonjour, merci pour la reponse,
tellement simple que j'y avais meme pas penser,
merci bcp bcp

 

Vote positif 0 Vote négatif