OVH Cloud OVH Cloud

Navis stp

2 réponses
Avatar
victor
Navis, ta solution fonctionne tres bien jusqu'a:

'activer l'onglet a copier
Sheets("onglet").Select

J'ai alors une erreur "Subscript out of range"
Si je mets cette ligne en comentaire, la meme erreur=20
apparait pour:

'r=E9activer le classeur ou on veut le coller
Windows("Classeur1").Activate
Cells.Select
ActiveSheet.Paste

Pourtant a la place de "onglet" j'ai bien mis le nom de la=20
page a copier, de meme pour "classeur".


Merci d'avance...........Victor

2 réponses

Avatar
Nävis
bien recu je vais regarder dans deux minutes mais la g un
programme vb qui mouline et il rame de follie, mais
ensuite c ok je m'en occupe
Avatar
Nävis
g regardé, une cause d'erreur peut être:

->il ne faut pas oublier les guillemet de part et d'autre
de tes noms de feuille et de classeur quand tu les
appelles. je pense que c'est ton erreur

-> sinon, tu peux rajouter
Workbooks("fichier.xls").Activate
avant d'activer ta feuille de calcul, pour l'ouverture
des classeurs, cela peut parfois nécessiter d'ajouter
l'extension .xls

tient moi au courant et envois moi ton fichier par mail
si tu as encore des problèmes