Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Routing Slip

Routing Slip

2 réponses
Avatar
Denys
Bonjour à tous,

J'utilise la fonction Routing Slip afin de faire parvenir un document excel
à une adresse générique.

Dans la portion sujet j'écris ce qui suit:

"Ceci est une demande pour le no de compte" et ici j'aimerais écrire le no
de compte à la cellulle B23 à la suite.

Voici la macro:

Sub Envoi1()
[j1].Value = "X"
RouteNow:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "MFRP Word Processing"
.Subject = "Ceci est une demande pour le no de compte" & "
range("B23").value " (Ca bloque ici0
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
[j1].Value = ""
End Sub

A la ligne .Subject, c'est là où j'aimerais écrire le no de compte à la
fin de la phrase. Excel n'accepte pas l'instruction ci-haut...

Sauriez-vous comment faire?

Merci pour votre temps

Denys
Signaler un problème avec ce contenu

2 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
Avatar
Jacques93
Bonjour Denys,

Essaie :

.Subject = "Ceci est une demande pour le no de compte " & _
Range("B23").Value

Bonjour à tous,

J'utilise la fonction Routing Slip afin de faire parvenir un document excel
à une adresse générique.

Dans la portion sujet j'écris ce qui suit:

"Ceci est une demande pour le no de compte" et ici j'aimerais écrire le no
de compte à la cellulle B23 à la suite.

Voici la macro:

Sub Envoi1()
[j1].Value = "X"
RouteNow:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "MFRP Word Processing"
.Subject = "Ceci est une demande pour le no de compte" & "
range("B23").value " (Ca bloque ici0
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
[j1].Value = ""
End Sub

A la ligne .Subject, c'est là où j'aimerais écrire le no de compte à la
fin de la phrase. Excel n'accepte pas l'instruction ci-haut...

Sauriez-vous comment faire?

Merci pour votre temps

Denys





--
Cordialement,

Jacques.

Avatar
Denys
Bonjour Jacques93,

Merci beaucoup.... Tout est parfait.....

Bonne journée

Denys


Bonjour Denys,

Essaie :

..Subject = "Ceci est une demande pour le no de compte " & _
Range("B23").Value

Bonjour à tous,

J'utilise la fonction Routing Slip afin de faire parvenir un document excel
à une adresse générique.

Dans la portion sujet j'écris ce qui suit:

"Ceci est une demande pour le no de compte" et ici j'aimerais écrire le no
de compte à la cellulle B23 à la suite.

Voici la macro:

Sub Envoi1()
[j1].Value = "X"
RouteNow:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "MFRP Word Processing"
.Subject = "Ceci est une demande pour le no de compte" & "
range("B23").value " (Ca bloque ici0
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
[j1].Value = ""
End Sub

A la ligne .Subject, c'est là où j'aimerais écrire le no de compte à la
fin de la phrase. Excel n'accepte pas l'instruction ci-haut...

Sauriez-vous comment faire?

Merci pour votre temps

Denys





--
Cordialement,

Jacques.