Macro Probleme Rafraichissement TCD

[sim]

Bonjour a toutes et a tous!!!

Voici le code d'une macro active par un bouton

Apres test, cette partie du test ne fonctionne pas

Workbooks("Pb_refresh_tcd.xls").RefreshAll

Donc le processus
Dans Home!
Un premier bouton qui vide GMRB_Raw_Data! et suprime FX!
Un deuxieme bouton qui Cree FX! avec les nouvelle donnee de GMRB_Raw_Data

Dans Current_market!
4 TCD qui devrai se mettre a jour apres cick sur le bouton qui cree FX, comme l'indiaue le code ci dessous

Du coup voici le code complet et un fichier exemple pour donner un peu plus de consistence a ma demande.

Private Sub acceuil_Click()
  Application.ScreenUpdating = False
  Sheets("GMRB_Raw_Data").Copy Before:=Sheets(3)
  On Error Resume Next
 ActiveSheet.Name = "FX"
 ActiveWorkbook.Names.Add Name:="MaListe", RefersToR1C1:= _
    "=OFFSET(FX!R1C1,0,0,COUNTA(FX!C1),14)"
  If Err.Number <> 0 Then
    Application.DisplayAlerts = 0
    ActiveSheet.Delete
    Application.DisplayAlerts = 1
    Sheets("FX").Activate
    Exit Sub
  End If
  On Error GoTo 0
  supp
  Workbooks("Pb_refresh_tcd.xls").RefreshAll
  Sheets("Current_market").Range("A6") = Sheets("GMRB_Raw_Data").Range("A2")
End Sub

J'espere que quelqu'un pourras m'aider parce que si cette fonction mise a jour des tcd, c'est une grosse partie de l'application qui tombe a l'eau!!! 😱

Merci d'avance!!😀

Cordialement

Sim

 

[Pierrot93]

Re : Macro Probleme Rafraichissement TCD

Re,

inverse peut être les lignes, en mettant le raffraichissement tout à la fin :

  Sheets("Current_market").Range("A6") = Sheets("GMRB_Raw_Data").Range("A2")
Workbooks("Pb_refresh_tcd.xls").RefreshAll

si la feuille "Current_market" se trouve bien dans le classeur "Pb_refresh_tcd.xls"...

bonne fin d'après midi
@+

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Re Pierrot! 🙂

J'essaye je te dis ca tout de suite....

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Malheureusement, c'est pas ca

Et oui la feuille Current_market se trouve bien dans "Pb_refresh_tcd.xls"...

Que dois je faire??

Cordialement

Sim

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Re, en attendant une (ta) reponse je reflechis et je me dis 🙄

Est ce qu'on pourrait pas

Faire un code evenementielle disant

quand FX est cree ou renome

ou plutot quand la copie de GMRB_Raw_Data est renomee

Sheets("Current_market").PivotTables("affiliate").PivotFields("Market").Refresh

Et copier cette ligne de code autant de fois qu'il y a de TCD (en changeant les nom biensur!!!😛)

Qu'est ce que tu en penses, tu crois que ce genre de code est possible????

(parfois je me dis, que vous les expert vous devez trouvez certaines remarques ou idees plutot marrantes non???!!! 🙄)

Enfin voila j'essaye de faire de mon mieux...

Cordialement

Sim

 

[Pierrot93]

Re : Macro Probleme Rafraichissement TCD

Re,

déjà plusieurs choses ne fonctionne pas ;
ca bogge à l'ouverture sur :

Sheets("Home").Range("A1").Select

tu ne peus sélectionner une cellule si la feuille n'est pas active, il faut l'activer au préalable :

Private Sub Workbook_Open()
Sheets("Home").Activate
Range("A1").Select
End Sub

pas top non plus d'avoir, renommé "thisworkbook", je l'avais déjà précisé....

ensuite lors de l'initialisation, pour utiliser l'événement, il ne faut pas utiliser le nom, c'est l'objet en lui même qui est concerné :

Private Sub UserForm_Initialize()

et non ceci, ne se déclenchera jamais :

Private Sub Marches_usf_Initialize()

rééssaye après avoir corrigé tout cela....

bon courage...

 

[Pierrot93]

Re : Macro Probleme Rafraichissement TCD

Re,

un autre code pour actualiser tous les tcd d'une même feuille de calcul :

Dim pt As PivotTable
For Each pt In Sheets("Feuil1").PivotTables
    pt.RefreshTable
Next pt

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Re Pierrot,

Je viens de rentrer a la maison, et bien sur pour une fois j'ai pas emmener mon boulot a la maison!!! Ca m'apprendra!!!🙄

Du coup je ferai tout les changement demain matin a la premiere heure, je test le tout et je reviens vers toi (et le forum🙂)!!

Franchement, merci...tu sais pas a quel point tu m'aide (ou peut etre que tu sais et alors c'est encore plus sympa!!!)

Bonne soiree et a demain j'espere.

Cordalement;

Sim

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Pierrot, le forum,

Je me met au boulot....je reviens des que toutes les modifs ont ete faites.

Cordialement.

Sim

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Pierrot, le forum

Apres avoir fait toutes les modif le debugueur a l'air de s'arreter sur

pt.RefreshTable

Sachant que je l'ai place comme ceci

Private Sub acceuil_Click()
  Application.ScreenUpdating = False
  Sheets("GMRB_Raw_Data").Copy Before:=Sheets("Markets_PI")
  On Error Resume Next
 ActiveSheet.Name = "FX"
 ActiveWorkbook.Names.Add Name:="MaListe", RefersToR1C1:= _
    "=OFFSET(FX!R1C1,0,0,COUNTA(FX!C1),14)"
  If Err.Number <> 0 Then
    Application.DisplayAlerts = 0
    ActiveSheet.Delete
    Application.DisplayAlerts = 1
    Sheets("FX").Activate
    Exit Sub
  End If
  On Error GoTo 0
  supp
  Sheets("Current_market").Range("A6") = Sheets("GMRB_Raw_Data").Range("A2")
    Dim pt As PivotTable
    For Each pt In Sheets("Current_market").PivotTables
     pt.RefreshTable
    Next pt
End Sub

On voit ce que ca donne dans l'exemple.

Encore Merci..😎

Sim

 

[JCGL]

Re : Macro Probleme Rafraichissement TCD

Bonjour à tous,

La "basetcdauto" n'existe pas dans le fichier déposé : le TCD ne peut donc pas être actualisé.

A+ à tous

 

[Pierrot93]

Re : Macro Probleme Rafraichissement TCD

Bonjour Sim,

tes tcd s'appuient sur la plage nommée "basetcdauto", hors celle-ci n'existe pas... quand tu crées la feuille "BX", tu nommes ta plage "MaListe" :

ActiveSheet.Name = "FX"
ActiveWorkbook.Names.Add Name:="MaListe", RefersToR1C1:= _
"=OFFSET(FX!R1C1,0,0,COUNTA(FX!C1),14)"

Edition : bonjour Jean-Claude🙂

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Ok je change tout ca et je reviens vous dire!! 🙂

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Pierrot, JCGL, le forum,

Je ne sais pas pourquoi, le fait de changer la source des TCD me fait completement bugguer Excel....donc je vais essayer en supprimant tout les TCD et en les reconstruisant....

Je reviens tt de suite..

Merci 😉

 

[sim]

Re : Macro Probleme Rafraichissement TCD

Pierrot, JCGL, le forum,

Bon la je doute franchement...

Est ce que l'un d'entre vous a essayer de changer la source des TCD en =MaListe parce que meme en recreant les TCD ca fait bugguer ecel mais a fond, obliger de fermer et rouvrir le doc....????

Juste pour savoir si c'est moi qui fait une mauvaise manip, ou si il y a un reel probleme...j'ai deja changer la source d'un TCD des centaines de fois et ce ne m'a jamais fait ca....🙁

Cordialement Sim