Résultats de la recherche

Pour les adresses CC = "mail2" & ';' & mail3" & ';' & mail3" Il faut séparer les adresses par ; soit dans le code soit dans la une cellule

Depuis le tps que je cherche Merci

Bonjour Voici mon code vba Sub envoyermailorigine() Application.ScreenUpdating = False Dim Mafeuille As Worksheet, NbLigne%, Plage As Range NbLigne = Sheets("Dashboard").Application.CountIf([Tableau2[PROJETS]], "><") Set Plage = Sheets("Dashboard").Range("A3:M" & NbLigne + 4) Plage.Select...

bonjour le fil j ai testé ca ne fonctionne pas chez moi erreur d'exécution 438 avec ce code seul Sub ChangeConnection() Application.ActiveExplorer.CommandBars.ExecuteMso "ToggleOnline" End Sub david

Bonjour le fil c'est bien pour activer outlook pas explorer ? Je vais tester Merci

bonjour je viens de teste ca ne fonctionne pas david

Bonjour le fil Pas d info Comment faire pour que le message ne reste pas en boîte d'envoi quand Outlook est en mode hors connexion il faut une action VBA pour passer du mode hors connexion en mode en ligne ou option Outlook

Bonjour le fil existe t'il une action pour valider la demande de connexion outlook avant l envoie du mail La macro fonctionne parfaitement mais le mail se met en boîte d envoie tant que l on a pas cliquer sur demande de confirmation de connexion sur Outlook 2019 Une idée ? Merci

les 2 codes sont bien assemblés sujet résolu merci

merci Gégé a force de bidouiller je venez juste de trouver Sub selection_fonctionne_ok() Dim Mafeuille As Worksheet, NbLigne%, Plage As Range NbLigne = Sheets("Dashboard").Application.CountIf([Tableau2[PROJETS]], "><") Set Plage = Sheets("Dashboard").Range("A3:M" & NbLigne + 4) Plage.Select End...

bonjour j ai un souci pour assembler 2 codes vba trouver sur le fil et avec l'aide vos lumières ce code fonctionne mais la sélection a envoyer n'est pas la bonne(voir second code) Sub envoyermailorigine() Dim Mafeuille As Worksheet Dim NbLigne As Long Dim Plage As Range...

voici mon code complet Sub test5() Dim oOutlook As Object Dim Mafeuille As Worksheet Dim NbLigne As Integer Set Mafeuille = ThisWorkbook.Sheets("Dashboard") 'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A NbLigne =...

bonjour le fil non le code fonctionne mais la sélection non NbLigne = Mafeuille.Application.CountIf([Tableau15], "><") Mafeuille.Range("A1:O" & NbLigne + 5).Select il faut que la sélection se fasse par rapport a la colonne A est remplie ou contient du texte sans prendre en compte la mise en...

Bonjour oui ces 2 codes la fonctionnent

Voici le fichier pour visu je l adapte à ma feuille ensuite Dim NbLigne As Integer Set Mafeuille = ThisWorkbook.Sheets("Dashboard") NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row Mafeuille.Range("A1:M" & NbLigne).Select

Du texte

Effectivement je suis pas un spécialiste Juste un débutant ça bloque certainement à cause des formules alors pas de la mise en forme conditionnel Par quoi puis je le modifié

bonjour je cherche a faire une sélection de toute les lignes contenant du texte dans une feuille ou tableau avec mise en forme par couleur actuellement j utilise ce code qui lui prend toutes les lignes non vides(mais il prend la mise en forme par couleur comme non vide ) Dim NbLigne As Integer...

bonjour le fil je travail sur un autre pc ou Outlook fonctionne mais le code non

bonjour les amis j essaye de créer un code vba pour envoyé la sélection par mail mais ca bloque sur Set oOutlook = CreateObjet("Outlook.application") ou est le problème svp Sub test5() 'selection par mail faire avant() Dim oOutlook As Object Set oOutlook = CreateObjet("Outlook.application")...