[VBA-E] Tester l'existence d'un type de graphique personnalisé

Version imprimable

23/12/2008, 08h36
Currahee

[VBA-E] Tester l'existence d'un type de graphique personnalisé

Bonjour,

Ma question simple se résume au titre de ce post. Attention je ne veux pas garder le format à l'actualisation d'un graphe croisé dynamique (y a déjà des topics là-dessus), je veux simplement tester l'existence d'un type de graphique personnalisé créé au préalable, et je ne trouve pas la syntaxe VBA correspondante :oops:

La commande utilisé pour enregistrer un tel format, si ça peut servir à quelqu'un : Application.AddChartAutoFormat Chart:=ActiveChart, Name:="Type_Perso", Description:=""

Merci d'avance pour vos réponses,

A noter au final que j'aimerai vraiment éviter la solution gestion d'erreur... ;)
23/12/2008, 09h13
SilkyRoad

bonjour

Il semblerait que tu utilises une version d'Excel antérieure à 2007.
Dans ce cas les modèles de graphiques sont stockés dans le fichier XLUSRGAL.XLS, généralement stocké dans le répertoire:
C:\Documents and Settings\nom_utilisateur\Application Data\Microsoft\Excel\

Tu dois donc ouvrir ce classeur pour vérifier si le modèle existe déjà.

bonne journée
michel
23/12/2008, 11h17
Currahee
Citation:

Envoyé par SilkyRoad

bonjour

Il semblerait que tu utilises une version d'Excel antérieure à 2007.
Dans ce cas les modèles de graphiques sont stockés dans le fichier XLUSRGAL.XLS, généralement stocké dans le répertoire:
C:\Documents and Settings\nom_utilisateur\Application Data\Microsoft\Excel\

Tu dois donc ouvrir ce classeur pour vérifier si le modèle existe déjà.

bonne journée
michel

Merci pour ta réactivité et ta réponse,

Vu que le fichier sur lequel je travaille est déployé sur de multiples PC aux configuration non seulement différentes, mais fréquemment changeantes... je ne vais pas ouvrir le fichier XLUSRGAL.XLS, mais plutôt travailler sur le code de ce classeur qui s'ouvre tout seul à l'ouverture de mon fichier (ou alors faudrait automatiquement récupérer le chemin de XLUSRGAL.XLS).
Code:

1 2 3 4 5 6 Dim i As Integer For i = 1 To Workbooks("XLUSRGAL.XLS").VBProject.VBComponents.Count Debug.Print Workbooks("XLUSRGAL.XLS").VBProject.VBComponents(i).Name Next
Là j'ai effectivement accès à mes modèles de graphes enregistrés, il ne me manque plus qu'à remplacer mon debug par le vrai code que je veux développer.

Merci encore pour ta réponse, je mettrai résolu si la solution que je préconise est OK.