[HS] Invitation

si je passe par là, j'y manquerai pas,

Sub Voici_le_mien()
n = Array("54", "49", "56", "48", "45", "52", "54", "56")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "isabelle"
End Sub

isabelle

Bonchoir la compagnie,

S'il arrive à l'un ou l'une d'entre vous de passer
par Québec, n'oubliez surtout pas de me téléphoner.
Pourrions trinquer tipeu à la santé de tout un chacun(e) !

:-)))

Sub Ceci_Est_Mon_Numéro_De_Téléphone()
n = Array("51", "49", "48", "48", "45", "57", "50", "53")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "Serge Garneau"
End Sub

Serge

Que voilà une bonne nouvelle !
Bonne soirée,
:-)
Serge

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
40B8C702.12111CA4@videotron.ca...

si je passe par là, j'y manquerai pas,

Sub Voici_le_mien()
n = Array("54", "49", "56", "48", "45", "52", "54", "56")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "isabelle"
End Sub

isabelle

Bonchoir la compagnie,

S'il arrive à l'un ou l'une d'entre vous de passer
par Québec, n'oubliez surtout pas de me téléphoner.
Pourrions trinquer tipeu à la santé de tout un chacun(e) !

:-)))

Sub Ceci_Est_Mon_Numéro_De_Téléphone()
n = Array("51", "49", "48", "48", "45", "57", "50", "53")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "Serge Garneau"
End Sub

Serge

Bonsoir Serge et Isabelle,

Comme je viens de Québec, peut-être oserais-je me
permettre de te donner un coup de fil... Évidemment si tu
as la chance que ce soit Isabelle....

Mais quand même.... Cool ta macro... Alors si tu passes à
Montréal, voici mon code...sauf que je suis dans le 450..

Sub Et_le_mien()
n = Array("51", "51", "57", "50", "45", "57", "54", "57")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "Denys"
End Sub

-----Original Message-----
Que voilà une bonne nouvelle !
Bonne soirée,
:-)
Serge

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le
message de news:

40B8C702.12111CA4@videotron.ca...

si je passe par là, j'y manquerai pas,

Sub Voici_le_mien()
n = Array
("54", "49", "56", "48", "45", "52", "54", "56")

For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "isabelle"
End Sub

isabelle

Bonchoir la compagnie,

S'il arrive à l'un ou l'une d'entre vous de passer
par Québec, n'oubliez surtout pas de me téléphoner.
Pourrions trinquer tipeu à la santé de tout un chacun
(e) !

:-)))

Sub Ceci_Est_Mon_Numéro_De_Téléphone()
n = Array
("51", "49", "48", "48", "45", "57", "50", "53")

For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "Serge Garneau"
End Sub

Serge

.

garnote wrote:

Bonchoir la compagnie,

S'il arrive à l'un ou l'une d'entre vous de passer
par Québec, n'oubliez surtout pas de me téléphoner.
Pourrions trinquer tipeu à la santé de tout un chacun(e) !

:-)))

Sub Ceci_Est_Mon_Numéro_De_Téléphone()
n = Array("51", "49", "48", "48", "45", "57", "50", "53")
For i = UBound(n) To 0 Step -1
num = num & Chr(n(i))
Next i
MsgBox num, vbInformation, "Serge Garneau"
End Sub

Serge

Bonjour à vous mes Amis d'Outre-Atlantique,

J'ai passé 5 mois par chez vous autres.
Je restais à Montréal, Longueuil pour être précis (sans avoir moi-même la coupe de même) et travaillais dans une entre prise d'e-Learning.

Je garde un excellent souvenir du Québec, du Canada et surtout de toute la gang que j'ai rencontré là-bas.
Dès que possible je m'en reviens vous voir !

J'ai beaucoup appris, beaucoup découvert et je promets de ne plus jamais appeler les Etats-Uniens des Américains.

Becs à vous.

Rai
(qui a un peu le mal du pays...)