Astuces Excel
  1. Astuces Excel
  3. Problème macro avec attachement du file
Intereting Posts
VBA pour returnner le premier résultat Google en tant que hyperlink dans excel Excel VBA: comment afficher les blancs comme 0 dans le tableau pivot? Excel-VBA: comment get l'historique des modifications sur un champ dans une list SharePoint Conversion du time de calcul OpenOffice Pourquoi l'ouverture d'un file MS Excel change-t-elle le SHA hash d'un document? datatables sont copiées en colonne au lieu de la ligne mise en forme conditionnelle et vba Analyser un file de feuilles de calcul XML exporté à partir de Microsoft Excel Analyser un file Excel complexe à l'aide de PHP Excel Library et récupérer des données pour les templates de messagerie Syntaxe de l'object VBA filepath Afficher le text dans la cellule Excel Comment puis-je empêcher les nombres d'être remplacés par un pourcentage? Ajouter le numéro de ligne changé au corps du courrier Comment puis-je get excel chart config par ChartObject qui appartient à Microsoft.Office.Interop.Excel ne peut pas sélectionner des loggings uniques basés sur des critères multiples

Problème macro avec attachement du file

L'idée est de joindre un file Excel en utilisant Attachment.Add reference à une list que j'ai utilisé une macro pour get. La macro lit les files dans un dossier et l'affiche dans une colonne. Dans cette colonne, j'aimerais joindre ces files via Excel. Je continue d'get une erreur sur la ligne ci-dessous. 

 .Attachments.Add Filelist & "\" & "Attch"

Est-ce que quelqu'un peut aider? 

 Sub Sendemailusingword() Dim Olapp As Outlook.Application Dim Olemail As Outlook.MailItem Dim olmail As Object Dim olinsp As Outlook.Inspector Dim wddoc As Word.Document Dim count As Integer Dim x As Integer Dim Filelist As Ssortingng Dim Attch As Ssortingng x = 1 row_number = 7 count = Sheet1.Range("K1") For x = 1 To count row_number = row_number + 1 Attch = Sheet1.Range("D" & row_number).Value Filelist = "K:\3SHARE\2016 Plan\Statment Email Send" Set Olapp = New Outlook.Application Set Olemail = Olapp.CreateItem(olMailItem) With Olemail .Display .To = Sheet1.Range("G" & row_number) .Subject = Sheet1.Range("D6") & Sheet1.Range("F" & row_number) .SentOnBehalfOfName = "[email protected]" .BodyFormat = olFormatHTML .CC = Sheet1.Range("H" & row_number) & ";" & Sheet1.Range("I" & row_number) Set olinsp = .GetInspector Set wddoc = olinsp.WordEditor Sheet1.Activate Range("B2").CurrentRegion.Copy wddoc.Range.Paste .Attachments.Add Filelist & "\" & "Attch" End With Next x End Sub 

 .Attachments.Add Filelist & "\" & Attch

En supposant que la variable Attch contient le nom de file du file à joindre.

EDIT: remarqué que vous avez marqué avec excel-vba-mac , auquel cas je ne pense pas que la barre oblique inverse fonctionne comme un séparateur de path. : ou peut / être / devrait / il fonctionner, ou utiliser Application.PathSeparator