KASMINATOR
XLDnaute Nouveau
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
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