Vba envoi de RDV via Excel avec des données sélectionnées

Bonjour,

J'ai un fichier Excel ou je fait un suivi de personne ayant un CDD, j'ai fait une macro me permettant de créer un RDV sur Outlook depuis mon fichier excel avec des Inputbox:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub Creation_RDV()   Dim objoutlook As Outlook.Application Dim objreunion As Outlook.AppointmentItem Dim objexplorer As Outlook.Explorer Dim strmail, strsujet, strdate, strduration, strbody As String   Set objoutlook = Outlook.Application Set objexplorer = objoutlook.ActiveExplorer Set objreunion = objoutlook.CreateItem(olAppointmentItem)   strmail = InputBox("personnes à ajouter", "créer un RDV Outlook etape 1: 'mail'", "valeur par défaut") strsujet = InputBox("sujet du Rdv", "créer un RDV Outlook etape 2") strdate = InputBox("Date de rappel, format: date heures", "créer un RDV Outlook etape 3") strduration = InputBox("Durée", "créer un RDV Outlook etape 4")       With objreunion   .MeetingStatus = olMeeting .Recipients.Add (strmail) .Subject = strsujet .Start = strdate .Duration = strduration .Display   End With   Set objoutlook = Nothing Set objreunion = Nothing Set objexplorer = Nothing     End Sub

---

je souhaiterais améliorer cette macro mais la j’atteins mes limites (qui ne sont pas très élevé ;) ).

J'aimerais qu'a la place des Inputbox il y ai un code qui me remplisse du fait de ma sélection les différents items .

Par exemple je met a jours mon dossier j'ajoute une ligne (16) je voudrais qu'en sélectionnant
ma ligne le sujet se remplisse automatiquement avec la cellule I 16.

Pouvez- vous m'aider ?

Merci d'avance.

Bonne journée.

Bonjour et bienvenue au forum !
Comment doit se lancer la macro ? Est-ce que c'est toujours I16 qui comporte le sujet ?
Pour récupérer la valeur d'une cellule :

Code:

---

strsujet = Range("I16").Value

---

Si tu veux récupérer la valeur de la cellule active (par ex. tu sélectionnes une celule, puis tu lances la macro) :

Code:

---

strsujet = ActiveCell.Value

---

Pour récupere la ligne de la cellule active :

Code:

---

1 2	Dim myRow As Long myRow = ActiveCell.Row

---

Ensuite, pour obtenir les valeurs des autres colonnes de la ligne, par ex. :

Code:

---

strmail = Range("A" & myRow).Value

---

Mais pour t'aider, il faudrait un peu plus de précisions sur quand est-ce que doit se lancer la macro ? Quel est l'élément déclencheur ? Comment sait-on quelle cellule il faut prendre en compte ?

Citation:

---

Envoyé par riaolle

Bonjour et bienvenue au forum !
Comment doit se lancer la macro ? Est-ce que c'est toujours I16 qui comporte le sujet ?
Pour récupérer la valeur d'une cellule :

Code:

---

strsujet = Range("I16").Value

---

Si tu veux récupérer la valeur de la cellule active (par ex. tu sélectionnes une celule, puis tu lances la macro) :

Code:

---

strsujet = ActiveCell.Value

---

Pour récupere la ligne de la cellule active :

Code:

---

1 2	Dim myRow As Long myRow = ActiveCell.Row

---

Ensuite, pour obtenir les valeurs des autres colonnes de la ligne, par ex. :

Code:

---

strmail = Range("A" & myRow).Value

---

Mais pour t'aider, il faudrait un peu plus de précisions sur quand est-ce que doit se lancer la macro ? Quel est l'élément déclencheur ? Comment sait-on quelle cellule il faut prendre en compte ?

---

Bonjour riaolle,

Merci pour ta réponse, la macro se lance avec un bouton au quelle la macro est attaché.

il n'y a que cette cellule qui est a prendre en fonction du tableau le reste se remplie avec les Inputbox.

avec ta solution il faut avant de lancer la macro se mettre sur la cellules en question ?

Car je voudrai qu'il n'y ai besoin que de sélectionner la ligne (exemple la ligne 16) et qu'avec la macro avoir un code pour dire en gros comme j'ai sélectionné cette ligne je veux prendre en compte la cellule I 16.

Merci.