Tous les billets

Au risque de me répéter (Arf, je me répète), je le rappelle encore et encore: Pas d'EXIT SUB dans vos codes. Ce n'est pas compliqué de bien coder, tout de même. Et il existe très souvent, même toujours, une alternative à une sortie prématurée de procédure ou de fonction.

Il ne faut qu'une seule sortie de procédure ou de fonction. Pourquoi? Parce qu'avoir deux sorties de procédure, voire plus parfois, c'est risquer de sortir sans "remettre les choses à leur place"! Apparemment, ...

Bonjour,
Une fonction récursive pour faire quelque chose dans chaque dossier, sur le dossier ou les éléments de ce dossier.

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
 
Sub Lance_Traitement()
'---------------------------------------------------------------------------------------
' Procedure : Lance_Traitement
' Author    : Oliv
' Date      : 12/02/2016
' Purpose   :
'---------------------------------------------------------------------------------------

...

Bonjour,
Voici un code utilisable à partir d'une macro ou d'un règle dans OUTLOOK

Elle permet d'opérer sur le mail passé en paramètres les action suivantes :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub ExportSuppression_PJ_v3(MyMail As Outlook.MailItem, Export As Boolean, Supp As Boolean, SuppEmbedded As Boolean, DirExport As String, Deplace As String, DossierMove As String, BodyWrite As Boolean)

-Export des pièces jointes dans un répertoire (Windows) -->Export :=true avec ...

Bonjour,

La dernière mouture de MZ-Tools version 8.0 est disponible. (15 ans déjà !)

cette version permet dès lors un usage avec Visual studio 2012, 2013 et 2015
La mise à jour gratuite pour les utilsateur ayant la version 7.0 de MZ-Tools qui possède les memes caractéristiques, avec la compatibilité Visual Studio 2015.

Information et téléchargement ici :
http://www.mztools.com/blog/announci...t-vb6-and-vb5/ ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportData()

        'Affichage
    Application.ScreenUpdating = False
    
        'Definition variables
    Dim Db As DAO.Database
    Dim i, j As Integer, DernLigne As Integer
    Dim myGroup As String, MyDate As String
    Dim mySCN As String, myValue As Double
    Dim myCurr As String, req As String
    
        'Definition de la base
    Set Db = DAO.OpenDatabase(Worksheets("param").Range("Database"),

...