bonsoir;
j'ai essayé ce code mais le Pb est lorsque l'exécute le collage ne ce fasse pas sur un feuille en position paysage est le collage soit adéquat à la page soit par exemple une image avec l'option collage spécial métaficher améliorer dont voici le code après exécution il y' a apparition de message "erreur d'exécution"424" objet requis".
et le fichier sont ci-joint déjà envoyé en haut, merci d'avance.
Sub selectionfeuilleleActive()
Set ww = CreateObject("word.application")
ww.Visible = True
ww.documents.Add
Range("A1:Q34").Select
Selection.Copy
ww.Selection.Paste
WordBasic.TogglePortrait Tab:=3
Application.CutCopyMode = False
End Sub
cordialement.