| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 20/12/2017 à 12:14 | titwo | Envoi de relance mail automatique | A première vue, ton code semble correct. Cependant, je m'interroge sur le calcul de la borne inférieure : Je te suggère le remplacer par : Bien entendu en remplaçant "NomFeuille" par le nom de ta feuille... |
| 20/12/2017 à 09:51 | merhune | TVA déductible: si payé, à déduire | Après quelques jours d'absence sur le site, je me penche à nouveau sur votre sujet. Au préalable, j'ai quelques interrogations concernant l'exemple donné : Comment le lettrage AA a-t-il pu être réalisé alors que les sommes ne s'équilibrent pas (diff -125)? Telles que les lignes se présentent, il sem... |
| 17/12/2017 à 18:09 | Zombie49 | E-mail vers Excel | Zombie49, Une nouvelle version en pièce jointe. J'y ai : Ajouté une fonction de décodage des messages HTML adaptée aux SMS que tu reçois : "parseHTMLBody". Ajouté un ordre "Application.OnTimer" pour relancer le scan des mails toutes les x minutes, y secondes. Les nombres x et y sont déclarés en débu... |
| 15/12/2017 à 15:33 | Zombie49 | E-mail vers Excel | Peux-tu m'en envoyer un exemplaire bidon sur gvialles@hotmail.com... |
| 15/12/2017 à 15:14 | Zombie49 | E-mail vers Excel | Le texte du SMS est dans le corps du mail ou dans le sujet... |
| 15/12/2017 à 14:34 | Zombie49 | E-mail vers Excel | Etrange, je n'ai pas cette erreur... Peux-tu vérifier la version OUTLOOK avec laquelle tu travailles... |
| 15/12/2017 à 14:20 | AMOP | VBA - copier-coller une plage variable | AMOP, Une idée : donner un nom à la "plage variable" (par ex "NomPlage") dans le classeur et la récupérer dans le code de la façon suivante : set range = thisworkbook.Names("NomPlage").ReferstoRange... |
| 15/12/2017 à 14:00 | Zombie49 | E-mail vers Excel | Zombie49, En P.J. ton EXCEL complété avec remplissage de la feuille par les mails "non lus". Pour l'erreur d'exécution, peux-tu indiquer la ligne de code sur laquelle elle se produit... |
| 15/12/2017 à 12:43 | flomahe | Création d'un indicateur | En P.J. une proposition d'indicateur sous le tableau... |
| 15/12/2017 à 11:53 | merhune | TVA déductible: si payé, à déduire | Votre sujet est-il toujours d'actualité... |
| 15/12/2017 à 11:48 | SophiaB | Macro VBA pour convertir une liste de .tsv en .xls | Votre sujet est-il toujours d'actualité... |
| 15/12/2017 à 11:09 | Zombie49 | E-mail vers Excel | Zombie49, L'erreur de compil est étrange, ça passe chez moi...y compris sur l'EXCEL que tu m'a envoyé...à creuser... Sinon, je n'ai pas d'exemple de sms arrivant dans OUTLOOK, aussi peux-tu me préciser à quel endroit du mail tu trouves le N°de Tel... |
| 15/12/2017 à 10:23 | Zombie49 | E-mail vers Excel | Zombie49, Pour l'erreur de compil, n'aurais-tu pas omis cette remarque ? Pour le code permettant le stockage des SMS dans une feuille EXCEL, peux-tu fournir un exemple EXCEL de que ce que tu voudrais obtenir... |
| 14/12/2017 à 17:55 | Zombie49 | E-mail vers Excel | Zombie49, Dans un p1er temps, je te propose le squelette de code suivant : Il faudra que tu références "Microsoft Outlook 16.0 Object Library" (dans IDE VBA : Outils/Références...) Pour que ça fonctionne, tu dois t'assurer qu'une session OUTLOOK est en exécution. Pour ce faire une petite fonction ... |
| 14/12/2017 à 17:19 | Lendoss2pac | Message d'alerte sur OUTLOOK | Lendoss2pac, Pour l'envoi de mails depuis EXCEL, dans VBA, il faut référencer l'objet "Microsoft Outlook xx" un squelette de fonction VBA : Pour que ça fonctionne, une session OUTLOOK doit être en exécution sur le poste de travail. On peut s'en assurer au moyen de cette fonction ... |
| 14/12/2017 à 16:32 | Zombie49 | E-mail vers Excel | Zombie49, Dans le principe, toutes les applis de la suite MS Office peuvent interagir les unes avec les autres donc dans ton cas EXCEL avec OUTLOOK Par exemple, tu peux réaliser en VBA dans EXCEL une fonction qui parcourt une boîte OUTLOOK et ceci ne nécessite pas de dev. au niveau d'OUTLOOK. Mainte... |
| 14/12/2017 à 16:19 | patsw | Filtre Listbox avec Combobox | Patsw, Dans un 1er temps: - le code d'initialisation du Userform est s'intitule : Userform 1 _Initialize. Il faut simplement enlever le "1" pour qu'il s'exécute. Dans un second temps : le code redimensionne la forme de façon incorrecte, je propose de supprimer cette partie de code. Ce qui donne : J'... |
| 14/12/2017 à 16:00 | Frozbee | Changer le destinataire d'un mail selon une checkbox d'un Userform | Le code sans les balises de mise en forme ... |
| 14/12/2017 à 15:58 | Frozbee | Changer le destinataire d'un mail selon une checkbox d'un Userform | Frozbee, Une petite modification dans le code : et ça passe pour moi... |
| 14/12/2017 à 15:48 | bullosphere | Aide pour feuille de calcul | J'ai jeté un rapide coup-d'oeil sur l'EXCEL. Quelques remarques préliminaires: -Pour réaliser la sommation des bouteilles reçues/dégustées sur le critère "Maison+Echantillon reçu" il est nécessaire que les "Maisons+Echantillons" d'année en année soit libellées de la même manière. Or, pour ne prendre... |
| 13/12/2017 à 10:39 | joscarca | Mensualisation | Effectivement, la solution proposée pré-suppose une connaissance VBA. Pour ce qui est de " je ne comprends pas pourquoi, quand j'essaie votre formule et que je supprime par la suite, les macros ça ne fonctionnent plus." , une fois les mouvements récurrents chargés pour le mois, si on les efface, il... |
| 12/12/2017 à 18:23 | VH_AE | Lien hypertexte vers macro ? Userform ? Signets et boutons | En P.J. une proposition réalisée sur une suggestion trouvée sur le site "OFFICE " sujet "Tooltips for shapes, Form Control Buttons, or ActiveX Control Buttons (in the spreadsheet, not on a user form? ". J'espère que ça fait la blague pour toi..... |
| 12/12/2017 à 17:03 | Ahah | Archivage Auto | Guillaume, Le code que tu cherches : Pour qu'il fonctionne, il faut que tu créés quelque part sur la feuille - une textbox nommée TextBox1 : =INCORPORER("Forms.TextBox.1";"") - une listbox nommée ListBox1 =INCORPORER("Forms.ListBox.1";"") Et que tu modifie la plage : dans la macro A2:A24... |
| 12/12/2017 à 16:52 | joscarca | Mensualisation | En P.J. une proposition à base de VBA. Par rapport au classeur initial, pour que cette solution fonctionne, j'ai ajouté les plages nommées suivantes : "PRELEVEMENT_MOIS" pour la plage E6:G15 de la feuille "Prélèvements et recettes M" "RECETTES_MOIS" pour la plage I6:K6 de la feuille "Prélèvements et... |
| 12/12/2017 à 14:38 | Ahah | Archivage Auto | Guillaume, Version avec effacement des données ... |
| 12/12/2017 à 11:37 | LucWalraf | Lancement de recherche sur un site web par Excel VBA | Il semble que ce site demande un login/Mot de passe pour lancer une recherche : Dans ce forum, h2so4 a donné une réponse pour réaliser une connexion dans le message : "Connexion sur site avec mot de passe automitiquement"... |
| 12/12/2017 à 11:06 | Ahah | Archivage Auto | Ma proposition de macro pour ajouter des lignes ... |
| 11/12/2017 à 12:17 | stef58 | Calcul date bute | A la condition de modifier les entêtes de mois avec un date à la place de texte (de les formater en "mois - année" pour avoir le même rendu), la formule suivante doit faire la blague : =FIN.MOIS(DATEVAL(CONCATENER(I2;"/";MOIS(I1);"/";ANNEE(I1)));7)... |
| 11/12/2017 à 11:35 | jeremy_91 | VBA - Contrôle somme montants | Dans l'EXCEL donné en exemple, les montants ne sont pas signés. Est-ce la colonne "C" qui indique le signe sur les ligne "2"... |
| 11/12/2017 à 11:13 | Reclaimer | Impossibilité de supprimé une Querytable | Si le problème est toujours d'actualité, je propose le code : Il est préférable dans le code VBA d'utiliser directement un objet "range" plutôt que "selection" même si lorsque l'on passe par l'enregistrement de macro, EXCEL lui génère avec "Selection". Dans l'adresse du range j'ai remplacé "W2" par... |
| 11/12/2017 à 10:37 | OumaiD | Ouverture de fichier | Le code joint est très éloigné de l'orthodoxie VBA EXCEL. D'où sort-il? Pour aller plus avant, il serait nécessaire d'avoir un exemple du fichier lu et de l'EXCEL à coloriser... |
| 11/12/2017 à 09:56 | Link71 | Formule concatener | Si la partie à extraire fait toujours 6 caractères, la formule la plus simple : =DROITE(A1;6) A1 étant la cellule dans laquelle se trouve la référence complète... |
| 08/12/2017 à 17:43 | Ahah | Archivage Auto | Si ton pb est toujours d'actualité, voici ma proposition : Pour une exécution lorsque l'onglet "Archivage" est sélectionné, il te faut ajouter dans le module attaché à la feuille ... |
| 08/12/2017 à 15:41 | nonopince | Les 2 macro ne lancent pas quant elles sont combinés | Nonopince, As-tu bien modifié l'extention xls en xlsx comme recommandé ? vFilename = Application.GetSaveAsFilename(filefilter:="Microsoft Excel Workbooks,*.xlsx", _ Title:="Copie du classeur sans les macros") J'ai testé de mon côté et c'est OK... |
| 08/12/2017 à 15:38 | atlonia | Adaptation macros encore et toujours | Atlonia, Je propose de remplacer dans ta procédure "NumerosEquipes" le With Sheets("Feuil4") Par With thisworkbook.ActiveSheet... |
| 08/12/2017 à 15:18 | kalista | Somme des données filtrées | Kalista, A ma connaissance, la formule SOUS.TOTAL fonctionne quelque soit le nombre de filtres aussi tu peux filtrer sur "Soldé" et une valeur dans une autre colonne, tu devrais obtenir le nb de cellules non vides... |
| 08/12/2017 à 12:48 | amadese | Exporter des donneés Excel vers un fichier word | Amadese, et si tu remplaces newobj.ActiveWindow.Selection.InsertAfter (ws.Name) par newobj.ActiveWindow.Selection.InsertBefore (ws.Name) & vbCrLf newobj.ActiveWindow.Selection.GoToNext (wdGoToLine) cela va-t-il mieux? (Code testé)... |
| 08/12/2017 à 12:29 | EloM91 | Incrémentation données et couleurs dans cellule | Elodie, Après l'instruction : Cells(ligne, col) = "- " & Fnr & vbcrlf & Cells(ligne, col) essais d'ajouter : Cells(ligne, col).Wraptext = false Cells(ligne, col).Columns.Autofit... |
| 08/12/2017 à 12:10 | kalista | Somme des données filtrées | Je propose: =SOUS.TOTAL(103;I:I)... |
| 08/12/2017 à 11:53 | amadese | Exporter des donneés Excel vers un fichier word | Amadese, Dans la boucle, ajoute l'instruction en gras : For Each ws In ActiveWorkbook.Sheets newobj.ActiveWindow.Selection.InsertAfter (ws.Name) ws.UsedRange.Copy newobj.ActiveWindow.Selection.PasteExcelTable False, False, False newobj.ActiveWindow.Selection.InsertBreak Type:=7 Next (Code non testé)... |
| 08/12/2017 à 11:44 | EloM91 | Incrémentation données et couleurs dans cellule | Pour l'amélioration de la présentation des fournisseurs, une suggestion : Cells(ligne, col) = "- " & Fnr & vbcrlf & Cells(ligne, col) Pour les états, ce que tu veux est possible mais avec un effort de programmation supplémentaire: cela consiste à Insérer une ligne au bon endroit : Fusionner les cell... |
| 08/12/2017 à 11:02 | amadese | Exporter des donneés Excel vers un fichier word | Dans le code, l'instruction : newobj.ActiveWindow.Selection.InsertBreak Type:=7 est censée insérer un saut de page entre les worksheets dans le doc WORD. Est-ce bien ce qui se produit? Si oui, pour un saut de section, il suffit de remplacer dans l'instruction le Type 7 pour un type 3 ou 4 suivant ce... |
| 08/12/2017 à 10:04 | max1811 | Amélioration rapidité pour trie de lignes | Mon classeur test... |
| 08/12/2017 à 10:03 | max1811 | Amélioration rapidité pour trie de lignes | Je viens de tester ce code à nouveau sous EXCEL 2007 et il fonctionne comme attendu. Je joins mon classeur de test. Vérifies la valeur des filtres dans ton propre EXCEL et s'ils sont différents de "Pass" et "Fail", modifies-les dans la macro... |
| 07/12/2017 à 16:49 | max1811 | Amélioration rapidité pour trie de lignes | Maxime, Essaie ce genre de code et vois si ça va plus vite : Sub LinesDispatcher() Const cColFilter = 3 Dim oSheetMesures As Excel.Worksheet Dim oSheetPASS As Excel.Worksheet Dim oSheetFAIL As Excel.Worksheet Dim oRange As Excel.Range Set oSheetMesures = ThisWorkbook.Worksheets(1) Set oSheetPASS = T... |
| 07/12/2017 à 16:08 | Curtis Newton | Interdire insertion de formes | Pour les sujets relatifs au ruban, je te conseille le site de Ron De Bruin: https://www.rondebruin.nl/win/s2/win001.htm... |
| 07/12/2017 à 15:00 | EloM91 | Incrémentation données et couleurs dans cellule | Je voulais dire que, si j'ai bien compris, plusieurs fournisseurs = plusieurs états. Donc pour la colorisation de la dernière cellule il faudrait décider quel état prendre. Suis-je clair... |
| 07/12/2017 à 13:26 | EloM91 | Incrémentation données et couleurs dans cellule | Pour ajouter tous les fournisseurs dans la même cellule : Cells(ligne, col) = Cells(ligne, col) & vbcrlf & Fnr Pour la cellule état, il faut peut-être que tu fixes une règle de préséance : "Vérifié", "A faire" ou "A risque"... |
| 07/12/2017 à 11:58 | jaja38 | VBA Récopier des cellules en colonne dans des lignes avec des boucles | Jaja38, Tu trouveras ma proposition en P.J. Le module contenant le code est intitulé "PropositionGVS"... |
| 07/12/2017 à 10:53 | cytho450 | Classements de fichiers Word en fonction d'une liste Excel | Un exemple correspondant au plus près de la réalité serait la bienvenue... |