corvelc
XLDnaute Occasionnel
Bonjour,
Je bloque sur une macro qui a pour but de copier l'onglet d'un classeur A vers un autre classeur B.
Par macro , j'ai une erreur au moment du "copy after" de type : "l'indice n'appartient pas a la selection"
si je fais par enregistrement de macro, le code correspond
un peu d'aide serait bien venue pour comprendre ou j'ai raté quelque chose
Les variables "Fiche" et "Nbfeuil" sont bien alimentées au moment du copie
merci d'avance
CC
le code:
Sub Mac_Ajout_Onglet(Fiche)
' Ajout d'onglet
Dim Nbfeuil As String
'Pour Recup le nb onglet du classeur cible
Windows(Fiche).Activate '=> nom de "Fiche" est passé par autre macro = Classeur cible
Nbfeuil = Sheets.Count '=> pour pouvoir copier en dernier dans le classeur cible
' recup onglet à copier
Windows("Portefeuille CORAPI V9b.xls").Activate '=> contient onglet à recopier
' copy onglet vers classeur cible
Sheets("Charges Equipes").Select
' pour copier onglet vers classeur cible
Sheets("Charges Equipes").Copy After:=Workbooks(Fiche).Sheets(Nbfeuil)
End
Je bloque sur une macro qui a pour but de copier l'onglet d'un classeur A vers un autre classeur B.
Par macro , j'ai une erreur au moment du "copy after" de type : "l'indice n'appartient pas a la selection"
si je fais par enregistrement de macro, le code correspond
un peu d'aide serait bien venue pour comprendre ou j'ai raté quelque chose
Les variables "Fiche" et "Nbfeuil" sont bien alimentées au moment du copie
merci d'avance
CC
le code:
Sub Mac_Ajout_Onglet(Fiche)
' Ajout d'onglet
Dim Nbfeuil As String
'Pour Recup le nb onglet du classeur cible
Windows(Fiche).Activate '=> nom de "Fiche" est passé par autre macro = Classeur cible
Nbfeuil = Sheets.Count '=> pour pouvoir copier en dernier dans le classeur cible
' recup onglet à copier
Windows("Portefeuille CORAPI V9b.xls").Activate '=> contient onglet à recopier
' copy onglet vers classeur cible
Sheets("Charges Equipes").Select
' pour copier onglet vers classeur cible
Sheets("Charges Equipes").Copy After:=Workbooks(Fiche).Sheets(Nbfeuil)
End
Dernière édition: