Bonjour,

Je dois modifier un code d'une macro VBA pour excel. A la place d'aller chercher un fichier localement, je dois aller le chercher sur un serveur.
L'URL que je transmet est correcte. J'ai même fais en sorte que les espaces deviennent des "%20". Mais rien n'y fait. Quand je fais le getFile, il bug et me dit que le "fichier est introuvable".

Voici mon code si ça peut aider.
Merci d'avance pour vos réponses.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Fichier_Template_Email_FR_EN_NEW As String
'URLDecode transforme les " " en "%20"
Fichier_Template_Email_FR_EN_NEW = URLDecode(ThisWorkbook.Path & "/mon fichier.htm")
 
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
 
Dim strSubject As String
 
'Pour récupérer le contenu d'un fichier HTML
Dim strBody As String
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
'instance des objets Fso pour récupérer le contenu du fichier HTML
Set oFSO = New Scripting.FileSystemObject
 
'Fichier introuvable
Set oFl = oFSO.GetFile(Fichier_Template_Email_FR_EN_NEW)