Discussion :

[fred38]

Bonjour,

J'ai créé une procédure dans VBA pour extraire des données d'un classeur vers un autre.

Sachant que je vais devoir employer ce code pour extraire des données de plusieurs fichiers différents, j'ai décidé de la mettre dans une macro du classeur perso.xls.

Depuis lors, cela ne fonctionne plus: le problème se situe dès le début.

Alors que la ligne

Code :

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

With workbooks(1).Worksheets("donnees_generales")

fonctionnait, maintenant, je reçois le message "L'indice n'appartient pas à la sélection".

J'ai tenté de contourner le problème avec workbooks(count) mais cela ne fonctionne toujours pas.

Je ne peux pas mettre le nom du fichier car celui-ci est variable.

Merci de votre coup de main,

Frédéric

[SfJ5Rpw8]

Code :

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

workbooks(1)

et censé représenté quel classeur ..? perso.xls..?

voir peu-être vba : Quelle différence entre ActiveWorkbook et ThisWorkbook ?

[fred38]

Merci pour ta réponse.

Voici la configuration:

- un classeur intitulé par exemple 20070501_203412.xls (le nom change suivant la dernière sauvegarde).
- une macro dans le fichier perso.xls

Dans la procédure "macro2", je voudrais faire référence au premier classeur (celui intitulé 2007...) en cliquant sur un bouton auquel j'ai associé "macro2". Sachant que je l'ouvre en premier (ou en deuxième après perso.xls), je voulais faire workbooks(1), mais j'ai un problème "l'indice n'appartient pas à la sélection".

Je ne vois donc pas comment résoudre le problème.

Merci,

Frédéric

[ouskel'n'or]

Quand tu ouvres tes fichiers, tu peux récupérer leurs noms

Code :

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

1
2
Fich1 = Activeworkbook.name
Fich2 =......

Il ne te reste plus qu'à paramétrer ta procédure placée dans Perso.xls et d'envoyer les noms de fichiers.

Code :

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

Call Laprocédure(Fich1, Fich2)

et dans la procédure...

Code :

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

1
2
3
4
Sub Laprocédure(Fich1, Fich2)
'...
    With workbooks(Fich1).Worksheets("donnees_generales")
    '... etc.

[SfJ5Rpw8]

Et le bouton il est ou ?

[ouskel'n'or]

Parce que s'il y a un bouton, c'est par lui qu'il faudra ouvrir les fichiers, sinon le code que je t'ai passé ne fonctionnera pas

[fred38]

Salut,

Le bouton est dans la barre d'outils et non pas dans la feuille. La logique d'utilisation est la suivante:

1. Je rentre mes données dans un document excel.
2. Le document est sauvegardé avec un nom qui est la date et l'heure de la sauvegarde.
3. Je clique sur le bouton de la barre d'outils pour exporter les données dans un autre document excel.

Je ne comprends vraiment pourquoi workbooks(1) ne fonctionne pas. J'ai pourtant un seul document ouvert avant de cliquer sur le bouton.

Merci,

Frédéric

[SilkyRoad]

bonsoir


Que te renvoie cette macro:

Code :

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

1
2
3
Sub Test()
MsgBox Workbooks.Count
End Sub

perso.xls étant un fichier masqué, as tu essayé:

Code :

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

With workbooks(2).Worksheets("donnees_generales")

Remarque:
comment feras tu s'il y a d'autres classeurs ouverts en même temps?


bonne soirée
michel

[fred38]

Bonsoir,

Merci pour la solution => apparement, le premier workbook est perso.xls. Il fallait donc mettre workbooks(2).

Par contre, il est vrai que je n'ai pas pensé à l'ouverture d'autres classeurs. Je peux toujours limitier l'utilisation en ajoutant un test sur le nombre de classeurs ouverts.

Le top, serait de trouver un moyen pour demander à l'utilisateur de choisir la feuille dont il souhaite exporter les données. Mais cela, c'est une autre affaire.

Merci sincèrement pour votre aide. J'espère que mes compétences en VBA vont augmenter pour pouvoir aider à l'avenir.

Frédéric