Contenu récent par David62800

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