Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Display alert et renommer un tableau Excel

Créer une discussion
  • 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 !

S'inscrire
F

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 🙂
 
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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"
 
Vote positif 0 Vote négatif
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.
Code: 
Application.DisplayAlerts = False

Merci!
 

Pièces jointes

  • Popup.jpg
    66.5 KB · Affichages: 48
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
340
sylvanu
3
  • Question Question
XL 2010 Copier un tableau croisé dynamique même si celui ci a un nombre de ligne variable
Réponses
4
Affichages
817
306255
3
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
749
Chaton77
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
C
  • Question Question
Microsoft 365 Arret macro si condition est fausse
Réponses
4
Affichages
694
Chounoé
C
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
V
  • Question Question
XL 2016 Convertir en tableau
Réponses
6
Affichages
763
cp4
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
708
Staple1600
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
554
Cheyenne_2021
C
H
  • Question Question
XL 2010 Aide sur un copier coller
Réponses
4
Affichages
490
hutch57
H
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
O
  • Résolu(e)
XL 2016 Faire apparaitre un tableau en fonction d'un choix déroulant
Réponses
2
Affichages
593
onicow
O
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
1 K
Lolote83
L
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
M
  • Question Question
Microsoft 365 Formulaire automatique - vba - erreur 1004
Réponses
11
Affichages
2 K
mymymymymymy
M
A
  • Question Question
XL 2013 Ouvrir un fichier Excel sur le réseau et coller des valeurs
Réponses
9
Affichages
3 K
sylvanu
J
  • Question Question
Autres Excel 2007 copier coller different , tableau sur un autre tableau
Réponses
6
Affichages
1 K
job75
A
  • Question Question
XL 2019 macro prendre en photo un tableau à l'instant T
Réponses
3
Affichages
669
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…