Bogue sur un fichier macro VBA

Bonjour Gewndoline

Il faudrait pouvoir nous donner le fichier entier, mais anonymisé... Est-ce possible ?

Sinon :

1) vérifier que vous avez bien : Dim WLaCourbe As Chart

Lancer le code et au moment du débogage

2) vérifier se que contient TableauNom.index +1

En saisissant dans la fenêtre d'exécution

Debug.print Sheets(TableauNom.index + 1).Name

3) changer la ligne

Set WLaCourbe = newBook.Sheets(TableauNom.index + 1)

Par

Set WLaCourbe = newBook.Sheets(TableauNom.index + 1).Charts(1)

A tester et nous dire ;-)

@+

Bonjour,

Malheureusement, je crains que ce ne soit possible.

J'ai exécuté la procédure telle que décrite dans votre proposition.

Par ailleurs, voici ce que contient TableauNom.index +1 : Graph.

C'est un fichier à part.

Le fichier bogue après avoir mis dans le code cette fonction :

Set WLaCourbe = newBook.Sheets(TableauNom.index + 1).Charts(1)

Cela me met "Erreur d'éxécution '438'

Propriété ou méthode non gérée par cet objet

En vous remerciant par avance,

Bonjour à tous,

Pouvez-vous essayer :

Set WLaCourbe = newBook.Sheets(TableauNom.index + 1).Chartobjects.Charts(1)

Encore une fois, il me semble compliqué de venir à bout de votre problème étant donné la quantité astronomique de code, enrichi au fil des années par différentes personnes.

Cdlt,

Re,

Désolé, j'ai fait ça à l'arrache de mon smartphone

Par rapport à ce que vous nous dites au 1er post, j'ai fait un test...
La ligne ci-dessous fonctionne si vous avez bien un nouveau classeur ouvert avec une feuille Graph

Set WLaCourbe = newBook.Sheets(TableauNom.index + 1)

Or, si j'ai bien tout suivi, vous nous dites que le débogage met cette ligne en jaune !?
https://forum.excel-pratique.com/s/goto/991642

Normalement le classeur avec le graph. est ouvert avec cette ligne

Set NewBook = Workbooks.Open(strRep & "\" & strName)

Mettez un point d'arrêt (F9) sur la ligne d'exécution suivante

Et vérifiez que votre fichier est bien ouvert

Si tel est bien le cas, je pense que nous ne pourrons pas vous aider plus sans avoir de fichier, navré

@+

Edit : Salut 3GB

Merci,

J'ai regardé et le fichier s'ouvre bien. En revanche, je vois que le nom de l'onglet ne porte pas le même que dans la macro.

Dans le fichier qui s'ouvre "Courbes", il y un onglet nommé Graphtransfert et non Graph.

Faut-il changer cela peut-être et à quel endroit ?

Re,

Essayez de mettre la ligne MsgBox avant la ligne qui bug et exécutez votre code

MsgBox newBook.Sheets(TableauNom.index + 1).Name
Set WLaCourbe = newBook.Sheets(TableauNom.index + 1)
CreeGraphique TableauNom, WLaCourbe, 0, 9, TypeFichier

Que vous dit le message ?

Dans ce fichier "Courbes", vous avez combien de feuilles et lesquelles ?

@+

J'ai mis le code et le msg box me dit : Graph

Dans le fichier courbes, j'ai 4 feuilles :

- ref335

- refgril335

- A

- Graphtransfert

Merci pour votre aide.

Re,

Je ne comprends pas pourquoi le test Msgbox vous dit "Graph" et que vous avez une feuille "Graphtransfert"

Désolé, mais je laisse tomber travailler à l'aveugle ce n'est pas faire du bon boulot et ça prend du temps que je n'ai pas forcément.

Bonne chance

Entendu, merci quand même d'avoir essayer.

Crdt,

Salut gpilard,

Bé sinon petite recherche dans VBE Edition/Rechercher ..... suivant, suivant, suivant, enfin bref vous avez compris.

Bonjour,

Je l'ai trouvé à 2 endroits dans le code.

Salut,

Etant donné que tu travailles sur des index de feuilles, peux-tu vérifier si tu n'as pas une feuille cachée dans ton projet, d'abord regardes dans l'explorateur de projet dans VBE et ensuite sur les propriétés des feuilles, je cherche à l'aveuglette là. recherches une feuille nommée Graph.