Garder une variable en memoire

Fermé

sabw - Modifié par pijaku le 15/02/2017 à 10:35
sabw - 15 févr. 2017 à 16:20

Bonjour,

Voici la macro que j'ai commencé en enregistrement, j'ai mis une variable correspondant aux semaines de l'année et chaque lundi je mets à jour mon fichier avec la semaine précédente.
Je voudrais savoir quoi ajouter à l a macro pour que la variable reste en mémoire à la fermeture du fichier. J'ai vu quelques solution sur le forum mais c'est compliqué à appliquer.
A la fin je renome la feuille avec la semaine travaillé.

Static a As Integer

Sheets("TCD 2017 imp W5").Select
    For a = 1 To 52

ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Week"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Week")
        .PivotItems(a).Visible = False
        .PivotItems(a + 1).Visible = True
    End With
    Sheets("TCD 2017 imp W" & a - 1).Select
    Sheets("TCD 2017 imp W" & a - 1).Name = "TCD 2017 imp W" & a

End Sub

A voir également:

Garder une variable en memoire
Mémoire virtuelle - Guide
Nettoyer mémoire ipad - Guide
Tv lg liberer memoire ✓ - Forum TNT / Satellite / Réception
Excel garder une ligne fixe - Guide
Test memoire pc - Guide

7 réponses

Réponse 1 / 7

jordane45 Messages postés 38151 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 mai 2024 4 652
13 févr. 2017 à 13:57

Bonjour,

pour que la variable reste en mémoire à la fermeture du fichier

Le plus simple .. c'est de stocker la variable en question dans une cellule d'un onglet de ton fichier excel ....

Réponse 2 / 7

sabw
Modifié par jordane45 le 14/02/2017 à 11:44

Bjr

J'ai essayé mais ça marche pas.
La variable s'incrémente bien mais n'est pas récupérée par le champs Week
du TCD et ne renomme pas la feuille non plus.
Voici la macro

Sub Macro2()

Dim mavar As Long
Sheets("TCD 2017 imp W4").Select
mavar = Range("P1").Value
    MsgBox mavar
    ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Week"). _
        CurrentPage = mavar
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Week")
        .PivotItems(mavar).Visible = False
        .PivotItems(mavar + 1).Visible = True
    End With
    Range("P1").Value = mavar + 1
    Sheets("TCD 2017 imp W" & mavar - 1).Select
    Sheets("TCD 2017 imp W" & mavar - 1).Name = "TCD 2017 imp W" & mavar
End Sub

EDIT : Ajout des balises de code

jordane45 Messages postés 38151 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 mai 2024 4 652
14 févr. 2017 à 11:45

Bonjour,
Es-tu sûr que ton TCD se nomme Tableau croisé dynamique5 sur la page pointée par "mavar" ?

Réponse 3 / 7

sabw
14 févr. 2017 à 11:50

Oui je l'ai fait en enregistrement macro automatique.

Réponse 4 / 7

jordane45 Messages postés 38151 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 mai 2024 4 652
14 févr. 2017 à 12:15

Ton champ "Week" est bien un champ "page" ?
Si non... tu ne peux pas utiliser currentPage.

Essaye plutôt un truc du genre : (codé sans tester...)

Dim mavar As Long
Dim oSh as WorkSheet
Dim pvtTable  as PivotTable

Set oSh = Sheets("TCD 2017 imp W4")

mavar = oSh.Range("P1").Value

Set pvtTable = oSh.PivotTable("Tableau croisé dynamique5") 

With pvtTable.PivotFields("Week") 
    .ClearAllFilters 
    .PivotFilters.Add Type:=xlCaptionEquals, Value1:=mavar  
End With

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

sabw
15 févr. 2017 à 11:24

Bonjour,

J'ai testé mais ça marche pas j'ai "Menbre de methode ou de données introuvable " au niveau du Set pvtTable = oSh.PivotTable("Import 1 week")
Au passage j'ai modifié le nom du TCD pour que ce soit plus claire mais tout
correspond.

Réponse 6 / 7

sabw
15 févr. 2017 à 13:51

Rebonjour

J'ai réussi à restifier une ligne mais maintenant j'ai 'erreur définis par l'application ou par l'objet à la ligne : .PivotFilters.Add Type:=xlCaptionEquals, Value1:=mavar

Je ne sais pas ce que ça signifie.

quelqu'un peut il m'aider svp?

Réponse 7 / 7

sabw
15 févr. 2017 à 16:20

ça y est j'ai trouvé la solution.
Pour ceux qui pourraient être intéressés voici la macro peut être simpliste mais qui fonctionne.
Sub Macro2()
Dim mavar As Long

mavar = Range("p1").Value

'ActiveSheet.PivotTables("Import 1 week").PivotFields("Week").CurrentPage = _
"(Tous)"
With ActiveSheet.PivotTables("Import 1 week").PivotFields("Week")
.PivotItems(CStr(mavar)).Visible = False
.PivotItems(CStr(mavar + 1)).Visible = True
End With

Worksheets("TCD 2017 imp W" & mavar).Name = ("TCD 2017 imp W" & mavar + 1)
Range("p1").Value = mavar + 1
End Sub

Discussions similaires

programme qui n'affiche pas le mot secret

VBA : Range avec références variables..

combien d'espace memoire occupe un entier ...

Memoire video dedié 128 MB

probleme de pilote - controle de memoire PCI

EDIT : Ajout des balises de code

Discussions similaires

Newsletters