XL 2013 VBA - insérer une plage de cellule dans un courriel

  • Initiateur de la discussion Initiateur de la discussion Roseline
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Roseline

XLDnaute Occasionnel
Bonjour et Bonne Année 2021
J'ai besoin de votre aide concernant mon fichier. J'ai un fichier excel qui contient plusieurs données. Je prend une partie de ces données que j'envoie par courriel par VBA.
J'ai déterminé mes variables et tout va bien quand je détermine seulement une cellule, voici une variable par exemple:
ex: urgent=cells(5,6).value
cependant si je veux inclure dans mon courriel une plage de cellule, comment je peux déterminer ma variable.
ex: suite=Range("C8:F25").value
en inscrivant ceci dans mes variables, dans mon courriel ca indique "vrai". Ce que je voudrais c'est que la plage "C8:F25" soit dans le courriel et qu'on voit toutes les données de cette plage.
J'espère être claire, sinon je joindrai mon fichier.
Merci et bonne journée
 
Re

Le but n'est pas de l'intégrer mais de l'adapter
(voir plus loin dans le fil ce que j'ai proposé et qui fonctionne
test tout frais de ce matin)
Faites un test simple qui vous convaincra que cela fonctionne 😉
Et ensuite je vous aiderai volontiers à faire les adaptations nécessaires.

PS: Dans votre message#1, vous avez oublié de poster la fameuse fonction GetBoiler de Dick Kusleika.
Je la poste ci-dessous (pour ceux que cela pourrait interesser)
VB:
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function
[/code]
Bonjour le forum,

Tous mes voeux pour cette nouvelle année.

J'utilise dans un code la fonction ci-dessus mais n'étant pas habitué aux fonctions et comme j'aime comprendre ce que j'utilise est ce que quelqu'un pourrait m'expliquer cette fonction. notamment les éléments ci dessous :
ByVal sFile As String
fso.GetFile(sFile).OpenAsTextStream(1, -2)

Merci d'avance pour votre aide.

@ plus

Jack
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
223
Retour