Problème de Macro

ZouZM -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un souci avec ma macro qui m'affiche une erreur d'éxecution '9': l'indice n'appartient pas à la sélection.

Je suppose que VBA ne retrouve pas le fichier que j'ai indexé, ci dessous mon code:

Je veux juste qu'à chaque fois que je mette le nom de mon fichier dans la cellule (2,2), que la macro traite ce fichier en question
'###########
Sub TGrec()

Fichier = Cells(2, 2).Value
Windows(Fichier).Activate
fin = Feuil1.Range("B65000").End(xlUp).Row
'Copier les données du sub grec dans un nouvel onglet appelé "Traité"
Sheets.Add.Name = "Traité"
Sheets("xxxxxxxx").Cells.Copy
Sheets("Traité").Activate
Cells.Select
ActiveSheet.Paste
'##############


Merci beaucoup pour votre aide!!!!
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

L'erreur 9 est due au fait que votre fichier fichier n'est pas ouvert.
Pour l'ouvrir, voyez du côté de
Workbooks.Open
.
Il vousfaudra par contre, le chemin d'accès complet à ce fichier, pas juste son nom...
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Il faut que le classeur du nom de Fichier soit ouvert pour que ceci fonctionne:
Windows(Fichier).Activate 
0