Discussion :

[benamor59]

Bonjour à tous,
avant tout je tient à dire que je cherche depuis quelques temps sur des forums pour trouver la réponse mais il n'y a rien à ce sujet et je ne sais même pas si la solution existe.

voila la situation :
1 - j'effectue une extraction SAP qui se présente sous la forme d'un fichier Excel qui se nomme Classeur1
2 - j'ai un deuxieme fichier Excel appelé Donne qui est ouvert
3 - je copie des données de Classeur1 dans Donne

en sois je sais faire toute la mise en forme etc...

mon seul problème est de mettre Classeur1 comme le classeur actif
j'ai déjà essayé Workbooks("Classeur1.xls").Activate et Windows("Classeur1.xls").Activate mais aucun des deux ne marche.

merci d'avance

PS : il est aussi possible qu'il est un problème avec le ".xls" comme il s'agit d'une extraction SAP mais j'ai essayé avec d'autres types et aucun ne fonctionne....

[Marc-L]

Bonjour,

apparemment tu as ouvert plusieurs instances d'Excel (inutile à part gâcher des ressources) …
Le code principal doit ouvrir le fichier généré par SAP dans la même instance.
Et un bon code n'a rien besoin de sélectionner ni d'activer, il suffit juste de préciser la filiation de chaque objet …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Quand le "Classeur1" est ouvert, quel nom est indiqué dans le bandeau Excel ? Y a-t-il un ".xls" ou autre extension à la fin du nom ?

Autre question qui ne va pas résoudre directement ton problème mais qui peut mettre sur le chemin de la solution : pourquoi activer le Classeur1 ?

[benamor59]

Bonjour,
Pour répondre à tes question, sur mon Classeur1 il n'y a en effet pas d'extensions.
Je ne sais pas vraiment pourquoi j'active le classeur1 pour tout te dire, mais j'ai appris à changer de classeur de cette manière et je n'ai pas cherché d'autres solutions, mais s'il y a un moyen plus simple et plus efficace je suis preneur, et je doit simplement copié des lignes sur ce classeur1.
Autre question, est 'il possible que la macro gère des procédure sur autre chose que Excel (ici SAP)

[Menhir]

sur mon Classeur1 il n'y a en effet pas d'extensions.

Donc : Workbooks("Classeur1").Activate ou Windows("Classeur1").Activate.

Je ne sais pas vraiment pourquoi j'active le classeur1 pour tout te dire, mais j'ai appris à changer de classeur de cette manière et je n'ai pas cherché d'autres solutions, mais s'il y a un moyen plus simple et plus efficace je suis preneur, et je doit simplement copié des lignes sur ce classeur1.

Il est possible d'indiquer le parent d'un objet en le mettant en épithète.
Par exemple, pour copier la cellule A1 de l'onglet Feuil1 du classeur MonClasseur :

Code :

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

Workbooks("MonClasseur").Worksheets("Feuil1").Range("A1").Copy

Tout ça sans avoir fait de Activate ou Select sur ces objets.
Ca donne un code plus sûr et une exécution plus rapide.

Autre question, est 'il possible que la macro gère des procédure sur autre chose que Excel (ici SAP)

Oui. Il suffit de sélectionner dans ton classeur la bibliothèque d'objets correspondante.
Dans VBE > Menu Outils > Références

[benamor59]

merci pour les réponses,
malgres cela l'erreur "L'indice n'appartient pas à la selection" persiste à la ligne : Workbooks("Classeur1").Worksheets("PM - Catalog report").Columns("A:G").Copy

voici une capture d'écran qui je l'espère pourra vous donnez une piste avec CR SAP mon fichier de bas et toujours le fameux Classeur1



il existe peut être une fonction spéciale autre que Workbooks pour gérer les classeurs non enregistrés ?

[halaster08]

Bonjour,

Tu es sur du nom de ta feuille (à l'espace près)

En cas d'erreur il peux être utile d'écrire ton code sur plusieurs ligne pour vérifier d'où vient le problème (mais une fois le problème identifié il plus judicieux de remettre tout sur une ligne)

Code :

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

Workbooks("Classeur1").Worksheets("PM - Catalog report").Columns("A:G").Copy

deviens:

Code :

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

1
2
3
Workbooks("Classeur1").activate
Worksheets("PM - Catalog report").activate
Columns("A:G").Copy

et suivant quel ligne renvoie une erreur tu sauras si le problème viens du nom de classeur ou du nom de la feuille.