Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MDL1311

MDL1311

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…