Discussion :

[Currahee]

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

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...

[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

[Currahee]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.