Contenu récent par Eric 45

  1. E

    XL 2013 lier des images au classeur excel

    Bonjour THROY93, Patrick Pas de réponse !! Tu as grévé 😁😁😁 Première solution que je favoriserai : à chaque sauvegarde du fichier, je créerai un zip du dossier. La deuxième solution serait d'incorporer toutes les images dans le fichier, solution compliquée à mettre en place, et celles-ci ne...
  2. E

    XL 2013 lier des images au classeur excel

    Bonsoir THROY93, Patrick Combien as-tu d'images ? il y a peut-être d'autres solutions A te lire Eric
  3. E

    Autres Couleur du programme VBA

    Bonjour à Toutes et Tous Bonjour Xxaann Tous mes voeux à la communauté Peut-être ici : https://excel-downloads.com/resources/classproc-97.163/ ou ici : https://www.mrexcel.com/download-center/vb-htmlmaker-addin/ Eric
  4. E

    XL 2013 icon avec une image Mso dans la barre de titre du UserForm

    Bonsoir à tous Bonsoir Patrick J'ai trouvé ce code au fond de mon ordi, c'est ce que tu cherches ? ‘Attribute VB_Name = "IconePersoSurUserform" 'mettre une icone de son choix dans la barre de titre d'un Userform '(le fichier icône peut être un fichier.ico ou 'un exécutable contenant une ou...
  5. E

    XL 2010 problème avec type .ico sur imagelist

    Bonjour à toutes et tous Bonjour Haytam.be Avec des .jpg cela fonctionne très bien. Il ne te reste plus qu'à transformer des .ico Eric
  6. E

    Microsoft 365 Lire la date d'un fichier Sharepoint

    Bonjour à toutes et tous Bonjour Eric Tu peux essayer ceci : Sub renseignement_fichier() Dim fs, f, s specfichier = ActiveWorkbook.Name Chemin = ThisWorkbook.Path chemin_complet = ActiveWorkbook.FullName Set fs = CreateObject("Scripting.FileSystemObject") Set f =...
  7. E

    Autres sommeprod en vba

    Bonsoir Simply Tout juste le temps de boire l'apéro :):):):):) Je l'avais pourtant testée Merci beaucoup Eric
  8. E

    Autres sommeprod en vba

    Bonjour à toutes et tous J'aimerai transformer cette formule : =SOMMEPROD(1/NB.SI(A1:A30;A1:A30)) qui compte les valeurs uniques en vba : Set Plage1 = Range("A1:A30") resultat= = !!!!!!! avec en colonne "A" : toto 56 56 56 56 56 83 29 28 28 56 56 56 56 56 22 22 22 56 78 78 39 6 48 48 11 11...
  9. E

    XL 2016 Transferer un fichier à un serveur STFP sécurisé VBA

    Possible, le serveur sur lequel je suis est apparemment non sécurisé.... J'ai trouvé ceci : https://stackoverflow.com/questions/35457719/upload-with-vba-via-sftp-ftp-log-outputs-to-detect-errors à fouiller, je n'ai pas de temps pour tester. A+ Eric
  10. E

    XL 2016 Transferer un fichier à un serveur STFP sécurisé VBA

    Bonjour à tous Si j'ai bien compris, essaie cela : Public fichier As String Public nb As Integer Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _ ByVal sAgent As String, ByVal lAccessType As Long, _ ByVal sProxyName As String, _ ByVal sProxyBypass As...
  11. E

    Extraction pages web

    Re Mon code fonctionne sur d'autres sites. Je ne comprend pas ce qui se passe sur le tien :( Eric
  12. E

    Extraction pages web

    bonsoir à toutes et tous Bonsoir Jordan Tu pourrais essayer ceci : Dim objBK As Workbook Dim objQT As QueryTable Set objBK = Workbooks(ThisWorkbook.Name) AdrURL = "https://www.118000.fr/v_gradignan_33/c_" & Worksheets("Feuil1").Cells(i, 3) With objBK.Worksheets(3) Set objQT...
  13. E

    Fonction proposée par Silkyroad pose problème

    Bonsoir Merci MJ13, mais ..... Silkyroad est peut-être toujours présent sur developpez.com, là où a été récupérée cette "fonction" ? Eric
  14. E

    Fonction proposée par Silkyroad pose problème

    Bonjour Pourquoi tu ne poses pas la question à cette personne ? Eric
  15. E

    Obtention d'un array à partir de 2 autres (VBA)

    essaie ceci : Private Function TABLP1() TABLP1 = w End Function Private Function TABLP2() TABLP2 = y End Function Tabl = Evaluate("TABLP1() - TABLP2()") 'on aurait pu aussi écrire : Tabl = [TABLP1() - TABLP2()] Eric