Bonjour à tous,
Avant j'utilisais Windows 7 et la version Excel qui allait avec. J'ai voulu relancer une macro sur le même fichier Excel de mon nouvel environnement (Windows 10 / Excel Office 365) 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. Elle bloque sur Application.Dialogs(xlDialogSendMail).
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
Avant j'utilisais Windows 7 et la version Excel qui allait avec. J'ai voulu relancer une macro sur le même fichier Excel de mon nouvel environnement (Windows 10 / Excel Office 365) 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. Elle bloque sur Application.Dialogs(xlDialogSendMail).
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