Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fax

Fax

11 réponses
Avatar
Peponne31
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
bonjour peppone
ici don camillo
il te suffit de faire Imprimer et choisir l'imprimante virtuelle de ton
logiciel de fax
HTH
jps

"Peponne31" a écrit dans le message de
news:
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31


Avatar
Peponne31
Bonjour jps

Ni connaissant rien en vba pourrai-tu me donner un example ?
voici la ligne que j'emploie actuellement pour imprimer;
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Merci pour ton coup de main
Cordialement Peponne31

bonjour peppone
ici don camillo
il te suffit de faire Imprimer et choisir l'imprimante virtuelle de ton
logiciel de fax
HTH
jps

"Peponne31" a écrit dans le message de
news:
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31






Avatar
jps
re peppone
essaie de te servir de l'enregistreur de macros pour créer la ligne de
commande de l'envoi sur ton imprimante fax
je te donne ci-dessous les miennes, sachant que la seconde ligne
ActivePrinter n'a d'autre but que celui de remettre l'imprimante réelle par
défaut

Application.ActivePrinter = "Olitec Fax sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"

tu noteras que je ne vois rien de tout cela dans les lignes de code que tu
as écrites
bon courage
jps


"Peponne31" a écrit dans le message de
news:
Bonjour jps

Ni connaissant rien en vba pourrai-tu me donner un example ?
voici la ligne que j'emploie actuellement pour imprimer;
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Merci pour ton coup de main
Cordialement Peponne31

bonjour peppone
ici don camillo
il te suffit de faire Imprimer et choisir l'imprimante virtuelle de ton
logiciel de fax
HTH
jps

"Peponne31" a écrit dans le message
de
news:
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31








Avatar
Peponne31
Bonsoir Jps,

D'après ta réponse, je suis allé dans les paramètre de mon imprimante (Canon
MP730 fax) et en fait si j'enregistre une personne dans le carnet d'adresses,
elle reçevra un mail de ma demande de devis, c'est bien cela ?
Moi, ce que je voudrais c'est envoyer la demande de devis via un n° de
téléphone comme un fax.
Cordialement
Peponne31



re peppone
essaie de te servir de l'enregistreur de macros pour créer la ligne de
commande de l'envoi sur ton imprimante fax
je te donne ci-dessous les miennes, sachant que la seconde ligne
ActivePrinter n'a d'autre but que celui de remettre l'imprimante réelle par
défaut

Application.ActivePrinter = "Olitec Fax sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"

tu noteras que je ne vois rien de tout cela dans les lignes de code que tu
as écrites
bon courage
jps


"Peponne31" a écrit dans le message de
news:
Bonjour jps

Ni connaissant rien en vba pourrai-tu me donner un example ?
voici la ligne que j'emploie actuellement pour imprimer;
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False
Merci pour ton coup de main
Cordialement Peponne31

bonjour peppone
ici don camillo
il te suffit de faire Imprimer et choisir l'imprimante virtuelle de ton
logiciel de fax
HTH
jps

"Peponne31" a écrit dans le message
de
news:
Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31












Avatar
michdenis
Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31
Avatar
Peponne31
Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730 fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31





Avatar
michdenis
Bonjour Peponne 31,

Cette procédure utilise la commande Sendkeys ...
Tu dois donc la lancer à partir de l'interface feuille de calcul et
non pas à partir de l'interface de l'éditeur de macro.

Dans la commande ""^p%nfax"

"fax" est l'élément retenu dans la liste déroulante de la fenêtre
"Imprimer" à partir de la commande "Fichier / imprimer..." du
menu de la feuille de calcul...si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !

Je n'ai pas d'autres alternatives à te proposer.


Salutations!


"Peponne31" a écrit dans le message de news:

Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730 fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31





Avatar
jps
si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !


...auquel cas il y a bien des chances que ça ne fonctionne toujours pas car
les TAB ne correspondront plus à ceux qui permettaient de compléter
l'assistant de l'envoi de télécopie natif de Windows, fonctionnalité dont on
ne peut pas AMHA changer (mais seulement configurer) l'imprimante...si j'ai
tout bien compris
par ailleurs, en disant :
'Fax = Nom de l'onglet de la feuille à faxer
je pense que michel :-) voulait plutôt écrire


'FeuilleAFaxer = Nom de l'onglet de la feuille à faxer
je profite de cet immimiscionnement pour poser la question de savoir si on


peut commander à partir d'une macro et de sendkeys une imprimante virtuelle
autre que Fax, du genre Capture Fax BVRP ou Olifax ou....Canon MP 730 fax
(comme celle de Peppone)....
un grand bonjour au québec
jps

"michdenis" a écrit dans le message de news:
O%23hge%
Bonjour Peponne 31,

Cette procédure utilise la commande Sendkeys ...
Tu dois donc la lancer à partir de l'interface feuille de calcul et
non pas à partir de l'interface de l'éditeur de macro.

Dans la commande ""^p%nfax"

"fax" est l'élément retenu dans la liste déroulante de la fenêtre
"Imprimer" à partir de la commande "Fichier / imprimer..." du
menu de la feuille de calcul...si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !

Je n'ai pas d'autres alternatives à te proposer.


Salutations!


"Peponne31" a écrit dans le message
de news:

Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens
pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730
fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message
de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31









Avatar
Peponne31
Bonjour,

Merci à michdenis et jps, je vais essayer de me débrouiller avec vos
informations, je vais voir avec le bouquin de l'imprimante pour les
paramètres du fax.
Merci encore.
Cordialement
Peponne31


si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !


....auquel cas il y a bien des chances que ça ne fonctionne toujours pas car
les TAB ne correspondront plus à ceux qui permettaient de compléter
l'assistant de l'envoi de télécopie natif de Windows, fonctionnalité dont on
ne peut pas AMHA changer (mais seulement configurer) l'imprimante...si j'ai
tout bien compris
par ailleurs, en disant :
'Fax = Nom de l'onglet de la feuille à faxer
je pense que michel :-) voulait plutôt écrire


'FeuilleAFaxer = Nom de l'onglet de la feuille à faxer
je profite de cet immimiscionnement pour poser la question de savoir si on


peut commander à partir d'une macro et de sendkeys une imprimante virtuelle
autre que Fax, du genre Capture Fax BVRP ou Olifax ou....Canon MP 730 fax
(comme celle de Peppone)....
un grand bonjour au québec
jps

"michdenis" a écrit dans le message de news:
O%23hge%
Bonjour Peponne 31,

Cette procédure utilise la commande Sendkeys ...
Tu dois donc la lancer à partir de l'interface feuille de calcul et
non pas à partir de l'interface de l'éditeur de macro.

Dans la commande ""^p%nfax"

"fax" est l'élément retenu dans la liste déroulante de la fenêtre
"Imprimer" à partir de la commande "Fichier / imprimer..." du
menu de la feuille de calcul...si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !

Je n'ai pas d'autres alternatives à te proposer.


Salutations!


"Peponne31" a écrit dans le message
de news:

Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens
pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730
fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message
de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31














Avatar
michdenis
Évidemment pour JPS les commandes Sendkeys ne sont pas suffisantes...

essaie ce fichier ....http://cjoint.com/?ego0Wfd4ng


Salutations!


"jps" a écrit dans le message de news:
si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !


...auquel cas il y a bien des chances que ça ne fonctionne toujours pas car
les TAB ne correspondront plus à ceux qui permettaient de compléter
l'assistant de l'envoi de télécopie natif de Windows, fonctionnalité dont on
ne peut pas AMHA changer (mais seulement configurer) l'imprimante...si j'ai
tout bien compris
par ailleurs, en disant :
'Fax = Nom de l'onglet de la feuille à faxer
je pense que michel :-) voulait plutôt écrire


'FeuilleAFaxer = Nom de l'onglet de la feuille à faxer
je profite de cet immimiscionnement pour poser la question de savoir si on


peut commander à partir d'une macro et de sendkeys une imprimante virtuelle
autre que Fax, du genre Capture Fax BVRP ou Olifax ou....Canon MP 730 fax
(comme celle de Peppone)....
un grand bonjour au québec
jps

"michdenis" a écrit dans le message de news:
O%23hge%
Bonjour Peponne 31,

Cette procédure utilise la commande Sendkeys ...
Tu dois donc la lancer à partir de l'interface feuille de calcul et
non pas à partir de l'interface de l'éditeur de macro.

Dans la commande ""^p%nfax"

"fax" est l'élément retenu dans la liste déroulante de la fenêtre
"Imprimer" à partir de la commande "Fichier / imprimer..." du
menu de la feuille de calcul...si tu utilises autre chose, entre
exactement la chaîne de caractère que tu as dans ta liste déroulante !

Je n'ai pas d'autres alternatives à te proposer.


Salutations!


"Peponne31" a écrit dans le message
de news:

Bonsoir michdenis,

Merci pour ton aide, je viens de faire un essai et ça bloque au niveau de
l'imprimante, le progamme va chercher une imprimante réseau et ne tiens
pas
compte de l'imprimante qui devrai prendre le fax, c'est une Canon MP 730
fax.
Peux tu si tu as le temps me traduire plus clairement le fonctionnement du
programme ?
Cordialement
Peponne31


Bonjour Peponne31,

Essaie ceci en copiant le tout dans un module standard


'---------------------------
Sub test()

'Utilisation de sendkeys pour envoyer la page active
'de l'application excel.

'Fax = Nom de l'onglet de la feuille à faxer
'Denis = Nom du destinataire
'999999999 = No. de Tel à composer

FaxeFeuille "fax", "denis", "999999999"

End Sub
'---------------------------

'---------------------------------
Public Sub FaxeFeuille(FeuilleAFaxer As String, destinataire As String, _
numero As String)
Dim keys As String
Dim Objet As String
Dim Note As String
Objet = "Un gros test"
Note = "Est-ce que cela fonctionne"

Worksheets(FeuilleAFaxer).Select
keys = "^p%nfax~~~" & destinataire & "{TAB}{TAB}" & _
numero & "~" & "{Tab}" & "{Down 5}" & Objet & "{Tab}" & Note & _
"~" & "%S" & "~"
SendKeys keys
End Sub
'---------------------------------


Salutations!



"Peponne31" a écrit dans le message
de news:

Bonjour,

Voila, je voudrais faxer une demande de devis chez un négociant de
matériaux
sans imprimer le devis (cela fais du bois économisé) et de plus double
emploie. Donc je cré un devis et par l'appui d'un commandButton (fax)
j'aimerai l'envoyer au destinataire. Cela parait-il réalisable ?
Merci pour votre soutient.
Peponne31









1 2