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
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)
Vous vous êtes probablement déjà demandé qui a accès à vos classeurs et, surtout, qui a été le dernier à modifier un classeur particulier. Pour cette
Vous vous êtes probablement déjà demandé qui a accès à vos classeurs et, surtout, qui a été le dernier à modifier un classeur particulier. Pour cette
Vous vous êtes probablement déjà demandé qui a accès à vos classeurs et, surtout, qui a été le dernier à modifier un classeur particulier. Pour cette
