MDL1311

[MDL1311]

Bonjour à tous,

Je suis gérant d'une petite TPE et j'ai mis en place des fichiers Excel avec des macros pour me faciliter la tâche.
J'utilise Excel Office 365 et Outlook 365 sous Windows 10 family.
Merci de votre aide.

@+

 

[MDL1311]

Ma question du jour est la suivante.

Avant j'utilisais Windows 7 et la version Excel qui allait avec. J'ai voulu relancer une macro sur mon nouvel environnement et elle ne marche pas.
Tout du moins elle fonctionne en pas à pas mais pas quand je la lance depuis le bouton macro du fichier Excel.

Ci dessous la macro:

Cells.Select
Range("A7").Activate
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Range("F18").Select
Columns("F:F").EntireColumn.AutoFit
Application.CutCopyMode = False
Sheets("Feuil1").Select
Application.Dialogs(xlDialogSendMail).Show arg1:=Array("contact@xxxx.com", "sav@xxxx.com"), arg2:="xxx xxx xxx"

Merci de votre aide.

MDL1311