Contenu récent par fanch55

Bonjour, Insérer le code ci-contre dans un module d'outlook : Renseigner les Dossier et Modèle . Sub GetModele() Dossier = "D:\........\Documents\Courrier\" Modele = "messageamoi.oft" CreateItemFromTemplate(Dossier & Modele, _...

Salut Lionel, Patrick, Un petit défaut dans le code de Patrick, c'est qu'il n'affiche le calendrier qu'une fois sur 2. Petite proposition de correction mineure : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="" On Error Resume Next...

Les impressions sont cependant sorties ? C'est avec le nouveau classeur ? j'ai tenté de reproduire le problème sans succès .... 🤔

Dans le classeur joint, J'ai plutôt imposé les "My Guichet" en "A ne pas Imprimer d'office" ( pas de X dans le select ) . Si vous désirez vraiment les supprimer de la liste mettez en commentaires les 2 lignes indiquées ci-dessous :

Si j'ai bien compris votre demande, je vous joins la sub en entier Sub Script_Delatte(Mail As Outlook.MailItem) Dim Folder As Outlook.MAPIFolder Dim An As String, Mois As String, Facture As String Dim Target_Folder As Variant, Temp_Folder As Variant, Zip_File As Variant, Zip_Source As Variant...

Bonjour, Partie de code à remplacer : Dim LFiles As Variant, Nname As String, Ext As String ' les Xml seront en fin de liste de fichiers LFiles = "" For Each File In...

Patrick, si la feuille est déjà protégée par un mot de passe, ta méthode ne fonctionnera pas ( c'est pour cela que j'affiche un Userform en demandant le mot de passe utilisateur pour faire le protect avec interface correctement) . Sinon, il me semble qu'il était demandé de colorer quand on le...

Salut du jour Patrick Il faudrait aussi mener une réflexion sur la protection de feuille lors de l'affichage du calendrier pour éviter d'entrer en édition sur un de ses éléments, ce qui va finir par être exaspérant . Le classeur joint est une déclinaison du #88 proposant un traitement de...

J'ai juste rajouté ce qui est dans le cadre orange et qui était demandé par les utilisateurs en tentant de rendre le menu plus clair L'activex Label n'a pas de DrawingObject ni de propriété text ou value, lui c'est caption . J'ai conservé tous les DrawingObjects partout où ils fonctionnent...

Ci-joint un classeur ( sans theme ) dans lequel on peut afficher un calendrier pour - une cellule - un activex - un shape - une autre cellule Le calendrier peut avoir la taille que l'on désire en agissant sur un ratio, à la droite ou en dessous de l'objet de référence . Et bien sur avec toutes...

Des names seraient appropriés effectivement ...

C'est alléchant de pouvoir changer les couleurs ainsi, mais si on doit altérer le code vba par macro, cela risque de ne pas être permis partout ??? 🤔

C'était dû au code du double_click

C'est ce que j'ai fait If Not IsDate(cel.Value) _ Then mm = MonthName(Month(Date)): an = Year(Date): Jo = Day(Date) _ Else mm = MonthName(Month(cel.Value)): an = Year(cel.Value): Jo = Day(cel.Value)