Contenu récent par Tomsound

Bonsoir, J'voyais pas trop comment faire alors j'ai fait une ptite 'bricole' (en fait j'insere un caractere avant le copier coller puis je m'en débarasse apres), y'a surement plus propre et efficace mais ça fonctionne... Sub tst() Dim plage_init As Range, plage_dest As Range 'à toi de...

Oups, avec le fichier ce sera mieux... Bonne soirée [file name=RechercheDates_20060511220404.zip size=11440]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheDates_20060511220404.zip[/file]

Bonsoir, J'ai un peu modifié ton code, ça devrait donner ce que tu cherches. Bonne soirée Message édité par: Tomsound, à: 11/05/2006 22:01

Bonsoir, Regarde si cette formule te convient, je suis parti du principe que tes 2 premieres conditions ne pouvaient etre vraies ensemble (pas de journée à 1+2=3 paniers). @+ [file name=mikepers_horaires_20060506025025.zip...

Re, As tu bien placé un '.display' avant ton sendkeys ? Essaie de le faire manuellement d'abord, fais tourner ta macro puis fait ctrl + entrée au clavier voir si ça fonctionne (sans rien faire d'autre genre changer de fenetre etc...) Sinon, je vois pas, à part préciser un truc du genre...

Re, Tintin, je ne comprends pas cette hstoire de raccourci clavier, quelle version d'outlook utilises-tu, de 2000 à 2003 le raccourci pour envoyer un msg est bien 'controle + entrée 'et il fonctionne bien que tu sois placé ds le corps du message... En tt cas, le seul moyen que je vois de s'en...

Bonjour, En fait '^' & '~' correspond à controle + entrée (raccourci clavier pour 'envoyer' sur outlook, trouvé ds l'aide vba pour sendkeys). Pour ALt + N, ça devient '%' + 'N'. Sinon, pour ton histoire de positionnement, pourquoi ne pas finir ton code par '.Subject = Sujet' ? Donc ça...

Bonsoir, perso je contourne le truc comme un passant par le raccourci clavier, essaie en modifiant ton code comme ceci : Set ElémentCourrier = ApplicOutlook.CreateItem(0) With ElémentCourrier .To = 'Renaud.hannon@winants.be' .Subject = Sujet .Body = Sujet .display End With SendKeys...

Re, j'viens de jeter un oeil à quelques uns de ces fichiers, j'aurai aimé pouvoir les joindre que vous voyiez ça, c impressionant ! En fait, l'utilisateur en question est un controleur de gestion, y' a donc environ 14 -15 onglets (un par mois + des analyses) et y'a un peu de tout dedans ...

Bonjour, Existe-t-il une taille maxi conseillée par MS pour un fichier excel ? Je sais bien que c'est lié à la config matérielle, mais mon pb est que j'ai un utilisateur qui crée des fichies de 90 MO (!!!) et qu'il a la tete dure (pas moyen de lui faire comprendre qu'il doit faire...

Re:espace indésirable Bonsoir, =SUBSTITUE(SUPPRESPACE(A1);'?';'') ou =SUPPRESPACE(SUBSTITUE(A1;'?';'')) Bonne fin de soirée

Bonsoir, Essaie comme ceci : Sub envoimail() Dim monfichier As String monfichier = ActiveWorkbook.Path & '\\' & ActiveWorkbook.Name Dim MonOutlook As Object Dim EMail As Object Set MonOutlook = CreateObject('Outlook.Application') Set EMail = MonOutlook.CreateItem(olMailItem)...

Re:[color=#0000FF]Autoactivation fichier xl[/color Bonsoir, Tu peux essayer le planificateur de taches windows... Panneau de configuration => Taches Planifiées Bonne soirée

Bonjour, Ptite question : combien de tables au maximum, 20 ? J'ai ptet une idée, maiss il faut savoir combien de tables il y aura au max... @+

Bonsoir, Essaie ceci : Sub tst() Dim i As Integer, j As Integer j = 13 For i = 7 To 22 If Cells(i, 4).Text = '0,00' Then Cells(j, 8).Value = Cells(i, 3).Text j = j + 1 End If Next i End Sub @+