Bonjour le Forum,
Et merci à toi Michel pour ton info.
Mais heureusement pour moi je n'aurai pas à l'utiliser car pendant que tu étais en train de m'aider j'ai réussi par mes propres moyens (bcq de persévérences) à résoudre mon problème.
Donc voici mes lignes de codes qui pourrront peut-être servirent à d'autres...
Sub Telecopie()
Appname1 = 'Gestionnaire de messages'
Appname2 = 'Envoi Delrinafax Pro'
Application.ActivePrinter = 'DelFax sur Ne06:'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
'DelFax sur Ne06:', Collate:=True
'Attente de 2 secondes pour fin impression fax
nvlleHeure = Hour(Now())
nvlleMinute = Minute(Now())
nvlleSeconde = Second(Now()) + 5
waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
Application.Wait waitTime
AppActivate (Appname1)
AppActivate (Appname2)
'Attention il faut que le destinataire soit défini dans le carnet d'@ de Delrinafax
Application.SendKeys 'M. GUY Alain', True 'Destinataire
Application.SendKeys '{Tab}', True
Application.SendKeys '118 218', True 'N° de fax
Application.SendKeys '{Tab}', True
Application.SendKeys 'World Cie', True 'Société
Application.SendKeys '{Tab}', True
Application.SendKeys 'Test', True 'Objet
Application.SendKeys '{Tab}', True
Application.SendKeys 'Salut Jo', True 'Message
Application.SendKeys Chr(13), True 'Message
Application.SendKeys Chr(13), True 'Message
Application.SendKeys 'Bye bye', True 'Message
Application.SendKeys ('%O'), True 'Pas de page de garde
Application.SendKeys 'P', True 'Pas de page de garde
Application.SendKeys 'u', True 'Pas de page de garde
Application.SendKeys ('^s'), True 'Envoi
End Sub
@+ sur le forum.