P
Pierre
Guest
Bonsoir toutes et tous,
J'ai un petite macro qui me sert à copier une partie d'une feuille sur un modèle excel. Mais lorsque plusieurs classeurs sont ouverts simultanément, la macro recopie sur le premier classeur suivant et non sur le modèle qui a été ouvert. Quelle modification dois-je apporter au code pour m'assurer que la copie sera toujours faite sur le fichier .xlt?
Voici le code:
Sub Publication()
Application.Goto Reference:="R1C38"
Range("AM1:BT37").Select
Workbooks.Add Template:= _
"C:\Program Files\Microsoft Office\Modèles\Horaire.xlt"
ActiveWindow.ActivateNext
Selection.Copy
ActiveWindow.ActivateNext
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub
J'imagine que c'est ActivateNext qui me crée ma difficulté, mais que mettre à la place?
Déjà grand merci.
Pierre
J'ai un petite macro qui me sert à copier une partie d'une feuille sur un modèle excel. Mais lorsque plusieurs classeurs sont ouverts simultanément, la macro recopie sur le premier classeur suivant et non sur le modèle qui a été ouvert. Quelle modification dois-je apporter au code pour m'assurer que la copie sera toujours faite sur le fichier .xlt?
Voici le code:
Sub Publication()
Application.Goto Reference:="R1C38"
Range("AM1:BT37").Select
Workbooks.Add Template:= _
"C:\Program Files\Microsoft Office\Modèles\Horaire.xlt"
ActiveWindow.ActivateNext
Selection.Copy
ActiveWindow.ActivateNext
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub
J'imagine que c'est ActivateNext qui me crée ma difficulté, mais que mettre à la place?
Déjà grand merci.
Pierre