Display alert et renommer un tableau Excel

[fablog]

Bonjour tout le monde,

Ci-dessous la macro que j'essaye de finaliser:

    Sheets("ONGP").Select
    Cells.Select
    Selection.ClearContents
    Application.DisplayAlerts = False
    Workbooks.Open Filename:= _
        "http://xxxxxxx/xxxxxxxx.xlsm"
    Application.DisplayAlerts = True
    Sheets("Performance").Select
    Cells.Select
    Selection.Copy
    Windows("Moulinette SMOT test.xlsm").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Graph").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
    Sheets("Complex").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Windows("xxxxxxxxx.xlsm").Activate
    Sheets("WI Volumes-Quantité d'AT").Select
    ActiveSheet.PivotTables("WIVolumes-QuantitedAT").PivotSelect "", xlDataAndLabel _
        , True
    Selection.Copy
    Windows("Moulinette SMOT test.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A7").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = "Tableau croisé dynamique1"
    
    Range("A7").Select
    ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables( _
        "Tableau croisé dynamique1"), "Action").Slicers.Add ActiveSheet, , "Action", _
        "Action", 195.75, 642, 144, 198.75
    ActiveSheet.Shapes.Range(Array("Action")).Select

Mon 1er besoin est de ne pas permettre à un Pop-up de s'afficher quand j'ouvre le fichier xxxxxx.xslm (c'est un message du fichier Excel qui me confirme que j'ai le droit ou pas d'accéder à ce fichier), car cela bloque ma Macro. J'ai essayé

Application.DisplayAlerts = False

mais le Pop-up apparait quand même.

Mon 2e besoin concerne la ligne

ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = "Tableau croisé dynamique1"

Par cette ligne j'aimerais que ce tableau soit nommé exactement de la même manière à chaque fois que j'exécute la Macro car Excel va par défaut incrémenter de 1 le nom à chaque itération. Malheureusement la Macro bloque car il ne trouve pas "Tableau croisé dynamique1" qui est devenu "Tableau croisé dynamique2".

Merci pour votre aide 🙂

 

[ralph45]

Re : Display alert et renommer un tableau Excel

Bonjour fablog,

Pour ton 1er besoin :
Application.DisplayAlerts = True

La suite au prochain N°.

A+

 

[fablog]

Re : Display alert et renommer un tableau Excel

ça ne fonctionne pas plus, j'obtiens un pop-up d'erreur avec le message de Microsoft Visual Basic: "Erreur d'execution '9': L'indice n'appartient pas à la sélection. Ensuite la macro s'interromp.

 

[ralph45]

Re : Display alert et renommer un tableau Excel

Ah ? 🙁

Application.DisplayAlerts = True
Tu l'as bien mis au tout début de ta macro (sous le nom de celle-ci) ?

EDIT : Pas vu qu'il y en avait 2. Supprime le 2ème Application.DisplayAlerts...

 

[fablog]

Re : Display alert et renommer un tableau Excel

Je viens d'essayer en le mettant au tout début et cela ne change rien 🙁

Edit: même en supprimant le 2e cela ne fonctionne pas.

 

[tototiti2008]

Re : Display alert et renommer un tableau Excel

Bonjour fablog, Bonjour Ralph,

Pour désactiver ton "pop-up", il faudrait qu'on connaisse exactement son contenu
Que dit ton pop-up ?

Pour le 2ème point essaye peut-être

ActiveSheet.PivotTables(1).Name = "Tableau croisé dynamique1"

 

[fablog]

Re : Display alert et renommer un tableau Excel

Bonjour Tototiti2008,

Merci pour ton aide, cela fonctionne pour le 2e point 🙂

Pour le 1er, voir l'image qui suit:


J'ai remarqué que la ligne ci-dessous fonctionne car il y avait un autre pop-up, qui apparaissait quand la macro voulait ouvrir xxxxx.xlsm alors qu'il était déjà ouvert, qui n'apparait plus désormais. Par contre le message dont j'ai mis l'image ci-dessus ne semble pas être impacté par ce code.

Application.DisplayAlerts = False

Merci!

 

[tototiti2008]

Re : Display alert et renommer un tableau Excel

Re,

Le message en question est généré par une macro à l'ouverture du classeur
pas moyen de le désactiver avec une simple instruction, sauf à désactiver les évènements
mais désactiver les évènements peut avoir d'autres impacts, ça dépend du code qu'il y a dans cet autre classeur
bref à toi de fouiller dans le code du classeur que tu ouvres pour vérifier

 

[fablog]

Re : Display alert et renommer un tableau Excel

MErci je vais méditer la dessus mais je n'ai pas accès au fichier source.

 

[fablog]

Re : Display alert et renommer un tableau Excel

Est-ce que la commande Sendkey serait une solution? Je n'ai pas réussi à l'utiliser mais j'ai surement un problème de syntaxe. Le souci c'est que la macro s'arrête immédiatement après avoir ouvert le fichier source et fait apparaitre le pop-up

Workbooks.Open Filename:= _
        "http://xxxxxxx/xxxxx.xlsm"

Je ne peux donc pas lancer la commande Sendkey.

 

[tototiti2008]

Re : Display alert et renommer un tableau Excel

Re,

Est-ce que la commande Sendkey serait une solution ?

A ma connaissance non, ça ne marche pas

 

[tototiti2008]

Re : Display alert et renommer un tableau Excel

Re,

MErci je vais méditer la dessus mais je n'ai pas accès au fichier source

et peux-tu contacter la personne qui l'a mis en place ? pour savoir par exemple ce qui se passe à l'ouverture ?

 

[fablog]

Re : Display alert et renommer un tableau Excel

Ça c'est plus compliqué, voir impossible 🙁

 

[tototiti2008]

Re : Display alert et renommer un tableau Excel

Re,

si tu penses que rien d'important se passe à l'ouverture, tu peux essayer de désactiver les évènements juste avant d'ouvrir et les réactiver juste après

Application.Enableevents= false

Ouverture

Application.Enableevents= true

 

[fablog]

Re : Display alert et renommer un tableau Excel

WOW ça marche du tonnerre!! Merci beaucoup pour ton aide, j'ai pu terminé mon projet grâce a toi 😉