Résultats de la recherche

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 :)

Bonjour, Je reviens sur ce sujet encore tout frais car je souhaite effectuer le même genre d'action avec des plages qui ne sont pas forcément contiguës -> Range("A30:AA32,AU30:AV32") par exemple Je reçois bien ce Range dans Sub Email_Range (..., Plage as String,...), j'aurais tendance à dire...

Bonjour, Je déterre un peu... personne n'aurait une idée ou une piste à explorer ? Merci et bon dimanche. Olivier

Re, @dg62 Bon ben pas de "Microsoft Work" ou assimilé à désinstaller, pas de fichier XLA à supprimer dans le répertoire XLSTART (mais bon vu le nom du fichier -GWXL97.XLA- ce n'est plus tout jeune et ça ne doit pas ou plus s'appliquer) ! J'ai lancé une recherche de *.XLA sans succès. D'autres...

Bonjour, @dg62 Merci pour ce lien, je ne l'ai pas vu en cherchant chez mon ami Google, je vais essayer de voir ce que je peux faire (PC société / stratégie info / nous ne sommes pas admin sur les PC et on n'a donc pas tous les droits). @sylvanu Non, pas un problème de protection, j'ai vu ce...

Bonsoir, Je suis devant un problème que je n'aurais pas pensé rencontrer un jour, et il se manifeste de deux façons lors de la création d'une feuille : - soit en cliquant tout simplement sur le bouton "+" à côté du dernier onglet du classeur - soit par macro avec la méthode sheets.add Dans les...