Activation d'un classeur non enregistré

[Santiano]

Bonjour à tous,

Après plusieurs essais, je m'en remets à vous pour ma problématique.

A partir d'une application spécifique, j'exporte des données dans un fichier Excel. Cela me donne classeur1.xls.

Je n'enregistre pas ce fichier, il reste ouvert tel quel, et j'ouvre un autre fichier Excel, 'global.xls' qui contient mes macros de traitement des données, ces macros se lançant grâce à un bouton.

La macro doit aller chercher les données dans classeur1.xls. Aussi je souhaite activer ce classeur, et faire un copier-coller.

Cependant, j'ai un message d'erreur 'L'indice n'appartient pas à la selection'

Par comodité pour les utilisateurs, je ne souhaite pas que classeur1.xls soit enregistré.

Voici mon code :
Workbooks('Classeur1.xls').Activate
Cells.Select
Range('A2').Activate
Selection.Copy

Windows('Global.xls').Activate
Sheets('Feuil1').Select
Cells.Select
Selection.ClearContents
ActiveSheet.Paste

Pouvez-vous m'aider ?

Merci !

Santiano

 

[jduv]

Bonjour,
Comme pour ton fichier global, essai de mettre windows à la place de workbooks

Workbooks('Classeur1').Activate

devient

Windows('Classeur1.xls').Activate

 

[Léa]

Bonjour Santonio

De la même façon que 'souffler n'est pas jouer' en VBA 'activer n'est pas sélectionner'
essaie donc d'ajouter WorBook('classeur1.xls').Select
ou à la rigueur 3ème ligne
WorBook('classeur1.xls').Cells.Select

attention il faudra certainement en faire autant quand tu retourneras dans l'autre classeur

A voir, en souhaitant que l'erreur est bien là

Bon courage

 

[Luki]

Jduv
Le pb semble venir du fait que tu donnes une extension '.xls'

Pour un nouveau classeur, Il n'y en a PAS.

Donc

Workbooks( ' Classeur1').activate


Luki

 

[Santiano]

Merci à vous deux pour vos pistes, mais cela ne fonctionne pas.

 

[Santiano]

Luki,

Un grand merci : ça marche !

C'est bête comme chou, mais quand on sait pas...

A bientôt,

Santiano

 

[jduv]

Désolé

Windows('Classeur1').Activate

Attention windows pas workbooks

 

[Santiano]

Pourquoi Windows et pas Workbook ?
Ca engendre quoi ?

Santiano

 

[jduv]

non rien c'est un reste de copier/coller

 

[pdrean]

Re : Activation d'un classeur non enregistré

J'ai le meme problème, je suis dans la même configuration et ca ne marche pas.

Je suis sous excel 2003 sp3.

Désolé pour le up de topic