Bonjour,
 
Je suis embêté sur le code suivant :  
 
Sub CopyPaste_Data()
 
Workbooks("TestOnExcel.xlsx" ).Activate
Sheets("Feuil1" ).Select
Range("A1:A26" ).Copy
Workbooks("Fichier - Test Dur.xlsm" ).Activate
Sheets("Feuil1" ).Select
Range("A1" ).PasteSpecial xlPasteValues
Workbooks("TestOnExcel.xlsx" ).Close
 
End Sub
 
Pour information :  
TestOnExcel.xlsx est un fichier ouvert à partir d'internet (mozilla et/ou IE), donc en lecture seule.
Fichier - Test Dur.xlsm est le fichier en dur où nous souhaitons coller les cellules du premier fichier.
 
Quand je fais tourner la macro, j'ai le message d'erreur 9 : "l'indice n'appartient pas à la selection" qui me renvoie à la première ligne Workbooks("TestOnExcel.xlsx" ).Activate
 
Merci beaucoup pour votre aide.
 
JB

 
           Bonjour,   cela veut dire que le nom renseigné n'est pas un fichier ouvert,  donc vérifier à l'écran le nom exact du classeur …
 
           Au passage il serait profitable de lire l'aide de la méthode Copy car toute cette procédure peut s'écrire en seulement une ligne
           sans ces affreux ralentisseurs  Activate  &  Select  !

 
Bonjour,
 
Merci pour ta réponse. Cependant, je reprends à l'exact le nom du fichier que je vois ouvert. Je ne comprends pas du tout le problème.
 
Concernant "l'aide de la méthode Copy", je vais essayer de la trouver pour voir ce que je peux améliorer. Merci encore.

 
           Voir l'exemple à la fin du sujet  problème de compteur  …
 

C'est peut-être parce-que tes fichiers sont ouvert chacun dans une instance différente d'excel.
Quand tu es dans l'éditeur vba, vois-tu les 2 fichiers dans l'explorateur de projets ?