IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

ChartObjects dans un autre fichier excel


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 42
    Par défaut ChartObjects dans un autre fichier excel
    Bonjour,

    J'ai un premier fichier Excel qui contient une macro qui ouvre un deuxième fichier Excel où je vais créer plusieurs graphiques par feuille. Le code ne peut pas être dans le deuxième fichier Excel où il y a les graphiques, car ça plante (problèmes de mémoire je pense).

    Le code suivant fonctionnait pour faire des graphiques dans le fichier Excel qui contient le code, mais si j'essai de faire les graphiques dans un autre fichier Excel qui ne contient pas la macro, ça plante à la ligne en rouge.

    Run-time Error 91
    Object Variable or With block Variable not set.

    Pouvez vous m'aider ? Merci!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Function FAIRE_GRAPH(i As Integer)
    WB2=nom_workbook2.xls
    nombre_charts = workbooks(WB2).Worksheets("M" & i).ChartObjects.Count
    With workbooks(WB2).Worksheets("M" & i).ChartObjects.Add( _
          Left:=emplacement_gauche * largeur, _
          Width:=largeur, _
          Top:=emplacement_haut + emplacement_haut3 * hauteur, _
          Height:=hauteur).Chart
          .ChartType = xlXYScatter
          .Parent.Name = nom_variable
    End With
    
    workbooks(WB2).Worksheets("M" & i).Activate
    workbooks(WB2).Worksheets("M" & i).ChartObjects(nombre_charts + 1).Activate
    
    Do Until ActiveChart.SeriesCollection.Count = 0
           ActiveChart.SeriesCollection.Delete 'a tester
    Loop
    ...

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Au moins si tu mets ton code en complet ou au moins le début; notamment comment tu as instancié tes classeurs

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 42
    Par défaut
    Voila, j'ai ajouté tout le code de ma fonction.

Discussions similaires

  1. Réponses: 5
    Dernier message: 24/02/2009, 09h05
  2. Réponses: 1
    Dernier message: 18/03/2008, 16h05
  3. Macro permettant envoi de données dans un autre fichier excel
    Par M8407108 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/11/2007, 11h20
  4. Réponses: 4
    Dernier message: 30/11/2007, 08h55
  5. Copier des données excel dans un autre fichier excel
    Par titemireille dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 04/10/2007, 20h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo