Contenu récent par fanch55

Sinon, y'a un utilitaire qui fonctionne bien: https://www.pcastuces.com/logitheque/telechargement.asp?num=2041

Salut Lionel, c'est un phénomène récurent aux stockages Usb . Si tu as ouvert le matériel via l'explorateur, l'éjection se fait rarement à la première demande, il faut le faire 2 fois . Sinon, tu fermes l'explorateur et tu te sers de l'icone Usb dans la fenêtre des taches de fond . Mais...

Le problème auquel vous vous êtes heurté est du fait du nom de la colonne "%φ Conso Estimé" qui contient un caractère "spécial" (phi) Pour faire référence à celle-ci, codez Range("Tableau7[%" & ChrW(966) & " Conso Estimé]")

J'ai eu le problème avec un Office pro 2021 version 2504 . Je ne vais pas forcer une mise à jour si la nouvelle version n'est pas disponible, je suis d'accord avec toi . ;)

Salut, je n'ai plus eu ce problème depuis que j'ai installé Office Ltsc 2024 Pro Plus ( voir post #42 ) Aceexcl.dll : Pour les versions antérieures, je ne sais plus, ne les ayant plus ...

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...