Display alert et renommer un tableau Excel

  • Initiateur de la discussion Initiateur de la discussion fablog
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fablog

XLDnaute Occasionnel
Bonjour tout le monde,

Ci-dessous la macro que j'essaye de finaliser:
Code:
    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é
Code:
Application.DisplayAlerts = False
mais le Pop-up apparait quand même.

Mon 2e besoin concerne la ligne
Code:
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 🙂
 
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.
 
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...
 
Dernière édition:
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

Code:
ActiveSheet.PivotTables(1).Name = "Tableau croisé dynamique1"
 
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:
Popup.jpg

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.
Code:
Application.DisplayAlerts = False

Merci!
 

Pièces jointes

  • Popup.jpg
    Popup.jpg
    66.5 KB · Affichages: 41
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
 
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
Code:
Workbooks.Open Filename:= _
        "http://xxxxxxx/xxxxx.xlsm"
Je ne peux donc pas lancer la commande Sendkey.
 
Dernière édition:
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

Code:
Application.Enableevents= false

Ouverture

Code:
Application.Enableevents= true
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
734
Retour