Contenu récent par modus57

Bonjour PatrickToulon et bon dimanche. Je suis passionné comme vous, mais je suis au premier échelon et vous au plus haut. Bravo pour votre superbe et excellent travail que vous nous mettez à disposition aimablement et bénévolement. Cela dit, je viens de tester votre dernier classeur Xlma...

Encore moi ! Je rencontre le même souci avec "Liste Macro". Petite modification à faire pour les futurs utilisateurs qui rencontrent le même problème.

Re bonjour, Cette fois c'est nickel chrome, merci beaucoup PatrickToulon. Discussion close.

Bonjour PatrickToulon, Voici la confirmation que j'ai un compte Microsoft. Pour savoir si votre PC est sous un compte local ou Microsoft Teams, vous pouvez suivre ces étapes simples : Ouvrez l'application Paramètres sur votre PC. Allez dans Comptes puis Vos informations. À prime abord il...

C:\Users\nom utilisateur

Re bonjour, Le "testcolor.html" n'arrive pas dans le bureau !

Bonjoiur sousou, Comment l'adapter dans ce cas précis : Cela dit le complément fonctionne très bien en PDF !

Bonjour PatrickToulon, Merci pour votre réponse. Comment activité cette autorisation, je présume que vous l'avez fait ? Comment autoriser la création d'un fichier html sur le bureau avec wscript.shell. @+

Bonsoir, Meilleurs @ tous. Je viens d’installer "complement Xla d'export de code en html et pdf avec coloration syntaxique 2.4.1" et voici le petit souci que je rencontre : Petite explication svp, merci d'avance.

Bonjour Staple1600, Votre fonction est intéressante. Petite remarque : si on colorie A1 D3 ne change pas ?

Est-ce que If temp <> "" Then temp = temp & """, """ & Me.ListBox1.List(i) est bien une chaine de caractère ? Faut-il écrire Tabl = Split(Temp,", ") au lieu de Tabl = Split(Temp,",")

Bonjour Hasco, C'est désespérant j'ai fait plein de tests avec différentes variantes : For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then If temp <> "" Then temp = temp & """, """ & Me.ListBox1.List(i) Else temp = Me.ListBox1.List(i) 'If...

Bonjour Hasco, Encore une fois merci pour votre réponse. Si je remplace Tabl = Array(temp) parTabl = Split(Temp,",") Cela envoi un message : Erreur d’exécution 13 Incompatibilité de type

Bonjour, Je reviens sur ma demande initiale, et je modifie la question. Dans un UserForm je récupère dans une variable Array les Items sélectionnés dans la ListBox contenant les extensions de fichiers les plus courants, ensuite je souhaiterai avec cette variable faire un filtre automatique sur...

Bonjour Hasco 👍👏 Bravo et merci. Je viens de tester ça fonction hyper bien, votre solution et bien plus simple que la mienne. Je vous suis reconnaissant pour votre réactivité et votre contribution. Exellente après midi et bonne soirée.