Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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)
Dernier module corrigé :
la date du jour sera affichée en bleu pale
Comme les gouts et les couleurs diffèrent, les couleurs sont toujours paramétrables en début de module .
un petit pb de positionnement quand la date était en colonne 1 a été résolu également .
( je n'ai pas mis à jour le...