Contenu récent par Olic78124

Bonjour, Personne n'aurait une petite idée de ce qui aurait pu être modifié au niveau système, sachant que je n'a pas touché à la macro depuis des lustres ? Merci. Olivier.

Bonjour à toutes et à tous, Je viens vers vous car je sèche... Je génère depuis quelques temps via une Macro Excel des fichier TXT destinés à être importés dans SAGE, et jusqu'à avant-hier tout allait bien. Ces fichiers sont formatés avec des tabulations Chr(9) entre les champs, il y a un...

Bonjour à toutes et à tous, Je coince encore sur un problème, cette fois d'envoi de mail via Outlook, code ci-dessous Dim OutApp As Object Dim OutMail As Object ' Mon code de construction strHTML Set OutApp = CreateObject("Outlook.Application") Set OutMail =...

Bonjour @patricktoulon , Un seul mot : respect, ça fonctionne à merveille et si je retiens le truc, j'aurai vraiment appris quelque chose :) With Sheets("Mapping"): Set RangeCalcul = .Range(.Cells(Valeur.Row, ColonneProjet), .Cells(Valeur.Row, DernColonne)): End With Longue vie au forum. Olivier

Il me semblait tellement évident que Set RangeCalcul = Sheets("Mapping").Range(Cells(2, 5), Cells(2, 33)) faisait référence à la feuille "Mapping" pour le Range attenant, mais visiblement ce n'est pas le cas ! Merci pour cette réponse, je teste début PM et je reviens (pour râler) si ça ne...

Bonjour à toutes et à tous, Pas de code à poster à part cette ligne Set RangeCalcul = Sheets("Mapping").Range(Cells(Valeur.Row, ColonneProjet), Cells(Valeur.Row, DernColonne)) qui ne veut rien savoir : "Erreur d'exécution 1004" Valeur.Row, ColonneProjet et DernColonne contiennent bien les...

CORRECTION : en supprimant le "On Error Resume Next" j'ai une erreur "Index de la matrice en dehors des limites" !

Bonjour à toutes et à tous, Tout est dans le titre ou presque, en espérant ne pas trop faire bondir @dysorthographie :) J'ai un environnement TEST lorsque je modifie ma fameuse macro développée à l'arrache sur plusieurs années, et je souhaite afficher les mails générés au lieu de les envoyer...

Bonjour, Je suis pour la paix des méninges hein, faut pas vous fâcher à cause de moi ;) Effectivement, avec un CDate ça semble se passer beaucoup mieux, je vais donc modifier en ce sens. Merci pour ces réponses et désolé d'avoir provoqué le "pourrissement" de ce post avec des questions qui n'ont...

Je suis d'accord, c'est tellement écrit en dépit du bon sens (je ne suis pourtant pas un pro VBA mais là ça dépasse tout ce que je pouvais imaginer...) que ça me ferait modifier trop de choses dans les différentes Sub/Fonctions sans compter les contrôles dans les TextBox_Change. Ce sera la...

Bonjour Patrick, OK tout simple compris donc Cells(1) première cellule à laquelle on peut certainement appliquer un Offset... je vais de ce pas tester tout ça. Mille fois merci à vous deux, mais on devrait se revoir rapidement car j'ai un problème de date qui lorsqu'elle passe d'un Userform à...

Bonjour dysorthographie, le forum, C'est la réponse que je n'avais surtout pas envie de lire en fait mais bon... je vais essayer de changer mon fusil d'épaule et d'adapter ton code en copiant mes données en 2 fois. J'ai une question au sujet de ce code, quand tu écris que signifie exactement...

Je n'exclue pas qu'il y ait eu des modifications, mais je n'en suis pas à l'origine... et à te lire je me dis que je ne suis pas au bout de mes surprises :rolleyes:

Bonsoir dysorthographie, Je n'ai strictement rien modifié hormis au début pour essayer de fusionner 2 range. Le code est brut de fonderie, tel que je l'ai eu en récupérant la gestion du fichier (qui soit dit en passant à été modifié/bidouillé par plusieurs personnes avant moi). Il fonctionne...

il n'est pas car 100% inutile, j'ai un "EXIT SUB" sur le rng.copy (vu en pas à pas plusieurs fois de suite) mais je le rajoute de suite au cas où ça pourrait avoir une quelconque incidence :)