Sub Ajouterclasseurpiece jointe() Aррlісаtіоn.Dіаlоgѕ(xlDіаlоgSеndMаіl).Shоw End Sub Une fois que vous exécutez cette macro, elle ouvrira votre client de messagerie par défaut et joindra un classeur
Sub envoiMail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject(“Outlook.Application” ) Set OutMail = OutApp.Createltem(0) With OutMail .to = “ventes@excelcorpo.com” .Subject
Sub Copierfeuillecalculactive() ThisWorkbook.ActiveSheet.Copy _ Before:=Workbooks.Add.Worksheets(1) End Sub Disons que si vous souhaitez copier votre feuille de calcul active dans un nouveau classeur, exécutez simplement ce
Sub SauvegardeClasseur() ThіѕWоrkbооk.SаvеCоруAѕ Fіlеnаmе:=ThіѕWоrkbооk.Pаth & _ “” & Fоrmаt(Dаtе, “mm-dd-уу”) & ” ” & _ ThіѕWоrkbооk.nаmе End Sub C’est l’une des macros les plus
Si vous avez plusieurs tableaux croisés dynamiques dans le classeur, vous pouvez utiliser ce code pour actualiser tous ces tableaux croisés dynamiques à la fois.
Utilisez le code ci-dessous pour protéger toutes les feuilles de calcul d’un classeur en une seule fois. ‘Ce code protégera toutes les feuilles du classeur
Dans l’exemple suivant, il convient de vérifier si un certain classeur se trouve sur le disque dur local dans le répertoire C: \ mes fichiers. La
Si vous souhaitez ouvrir un classeur protégé par mot de passe via la boîte de dialogue OUVRIR, mais que vous n’avez pas envie de saisir
Dès que vous avez apporté des modifications à un fichier, il vous sera automatiquement demandé si vous souhaitez enregistrer les modifications lorsque vous fermez le
Dans cette exemple suivant, un classeur ne peut être fermé que si une condition très spécifique est remplie. Private Sub Workbook_BeforeClose (Cancel As Boolean)
