Help me please - sélection d'une plage variable

[KASMINATOR]

Bonjour à tous, je suis depuis 14h sur un dilemme.

Je n'arrive pas à solutionner mon problème qui est le suivant :

J'aimerai pouvoir copier deux lignes d'un tableau : une qui restera fixe !
La deuxième ligne serait une sélection faite par l'utilisateur du fichier.

Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Application.Union(Range("A1:H1"), sélectionnez la plage de valeurs.Select

With ActiveSheet.MailEnvelope
.Introduction = "Bonjour ............"
.Item.To = "Tata-@email.fr"
.Item.Subject = "Rajouter utilisateur suivant"
.Item.Send
End With
End Sub

 

[KASMINATOR]

Si je n'ai pas été suffisamment clair dans ma description n'hésitez pas à me demander.

 

[KASMINATOR]

Up

 

[Dranreb]

Bonjour.
Si la ligne est sélectionnée avant le lancement de la macro, essayez
Union(Range("A1:H1"), Selection).Select
À tester.

 

[KASMINATOR]

Bonjour Dranreb,

Merci de ton aide, j'ai essayé hier soir cette solution mais non plus... échec

J'ai essayé aussi cette solution : Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Set myRange = Application.InputBox(prompt := "Sample", type := 8)
Application.Union(Range("A1:H1"), avec la plage sélectionnée.Select


With ActiveSheet.MailEnvelope
.Introduction = "Bonjour ............"
.Item.To = "Tata-@email.fr"
.Item.Subject = "Rajouter utilisateur suivant"
.Item.Send
End With
End Sub

 

[Dranreb]

Enfin si je sélectionne par exemple A10:H10 et que j'exécute Macro1, j'ai bien A1:H1;A10:H10 sélectionnées

Sub Macro1()
Union(Range("A1:H1"), Selection).Select
End Sub

 

[KASMINATOR]

Je viens d'essayer sur mon classeur et toujours rien... çà me sélectionne le classeur en entier.

Je sélectionne bien une seule ligne pourtant....

Je me retrouve avec le tableau en entier dans l'email

Dernière macro :

Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Union(Range("A1:H1"), Selection).Select
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour la cellule Data-Management, nous aimerions permettre la connexion à l'e-CRF de l'étude ACTIDIANE de l'utilisateur ci-dessous"
.Item.To = "TTata-management@chu-poitiers.fr"
.Item.Subject = "ACTIDIANE - Rajouter utilisateur ECRF"
.Item.Send
End With
End Sub

 

[KASMINATOR]

Merci Dranreb en tout cas de m'aider

 

[Dranreb]

Chez moi la méthode MailEnvelope de l'objet Worksheet plante systématiquement et je ne sais rien de la manière dont elle devrait fonctionner si elle ne plantait pas. Peut être utilise-t-elle des fournitures de OutLook, que je sais ne pas avoir sur mon Office.
Peut être faudrait-il copier les ligne dans une feuille spéciale dédiée à cette opération, je ne sais pas.

 

[KASMINATOR]

Je peux te montrer mon classeur si tu veux ?

 

[KASMINATOR]

Voici le fichier :

En gros j'aimerai créer une alerte mail pour demander à mon ami de l'association de l'ajouter ou de le retire juste en sélectionnant la ligne et en gardant les entêtes du répertoire

 

[Dranreb]

Ça ne marche pas sur mon Excel

 

[KASMINATOR]

Je suis à nouveau à la case départ.... merci Dranreb quand même

 

[KASMINATOR]

Si quelqu'un à une idée je suis toujours preneur svp :

Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Set myRange = Application.InputBox(prompt:="Sample", Type:=8)
Application.Union(Range("A1:H1"), myRange).Select
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = ""
.Item.Subject = ""
.Item.Send
End With
End Sub

La selectio n'aboutit pas j'ai toujours la sélection complète du tableau qui est copié dans l'email

 

[KASMINATOR]

Up