Recherche:

Bonjour,

Les entités HTML sont toujours précédées du "et commercial" ou "esperluette" (&)
Afin d'afficher le code d'une entité, remplacer le & par ... son code entité ;) :

&
Et donc "...

Bonjour,

Voici une solution qui pourrait vous convenir. Il faudra cependant revoir votre façon de travailler.

Vous générez de nombreux documents Word à la mise en page identique : je vous...

Bonjour,

Voir dans la FAQ

Bonjour,



Peut être commencer par cela :



Être poli (Bonjour / bonsoir)
Ne pas "polluer" de vieux posts fermés qui n'ont rien à voir avec votre problème

Tu peux aller voir ici ou ici.

Voici aussi un exemple de code pour récupérer les données du message courant (ouvert) :



Dim oCurrentMessage As Outlook.MailItem
Dim DateEnvoi, DateReception...

As-tu essayé simplement comme ceci ?



Dim appExcel As New Excel.Application 'Ouverture de l'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As...

Dans un premier lieu, pourrais-tu préciser exactement ta demande ?

1/ tu veux enregistrer dans un dossier TOUS les mails de la date du jour ?

OU

2/ tu veux enregistrer dans un dossier UN...

Solution "simpliste" que j'emploie souvent par manque de temps (et/ou flemmardise :oops: ?) pour contourner ces problèmes de sécurité :

- Change l'extension de ton fichier en ".txt" par exemple
-...

Bonsoir,

Essaye avec



SavePath = Repertoire & "\" & NomExport & ".msg"
Mail.SaveAs SavePath, OlSaveAsType.olMSG

Sinon vérifie que le répertoire de sauvegarde est correct.

Bonsoir,

Il doit être possible de tout faire en une fois, mais sans voir ton code, il est cependant difficile de se prononcer.


Voici un exemple de code pour créer un mail à partir de Excel :...

Pour simuler un clic sur le bouton d'un input de type "file" :


IEdoc.getElementById("wpUploadFile").click


où "wpUploadFile" est l'ID de ton input et IEdoc la page contenant l'input.

Bonjour,

Voici un petit bout de code pour enregistrer un fichier avec incrémentation si le fichier existe déjà (à adapter) :


Save_Path = FolderPath & FileName & Ext

n = 1
Same_Path =...

Tout simplement avec :


Set xlBook = appExcel.Workbooks("Macro.xlsm")

Ou encore, en prévoyant le cas où le fichier n'est pas ouvert :



Set xlBook = Nothing

Dead-end avec Firefox... pas moyen de trouver d'add-ons qui fassent autre chose qu'ouvrir les pdf.
Et s'il y en a un qui permet l'édition, il renvoie sur un site online (aussi)

Une imprimante...

Personnellement, je travaille avec le site PDFRotate! (facilement trouvé avec Google)

Compatible avec GoogleDrive et Chrome.

Je ne sais pas ce qu'il en est de Firefox par contre...

Code à adapter :



ExcelFilePath = "" 'chemin vers le fichier
Set wbk = CreateObject("Excel.Application").Workbooks.Open(ExcelFilePath, , True) 'read-only
With wbk.Sheets(1)
li = 1 'ou 2...

et avec :


item ="<a href=\"#\" onclick=\"window.open('" + url + "', '_blank', 'location=yes')\">link</a>";
?

Bonjour,

Pouvez-vous vérifier ceci :

Fichier > Options > Options avancées > Général (tout en bas)

La case "ignorer les autres applications...." est-elle cochée ?

→ si oui, décocher,...

OMG je l'avais raté celui-là... 8O
(vais me noyer dans mon verre de champagne du coup... bon réveillon les gens :D)

En ce qui concerne ce dernier lien, oui, c'est bon.

Et après un peu de "nettoyage", le code devrait ressembler plutôt à ça :


Cordialement<br>
Prenom Nom<br>
<IMG...

En effet, je vois cela. Mais sache qu'on apprécie toujours mieux quelqu'un qui cherche et fait un effort pour trouver seul, même un début de piste, plutôt que quelqu'un qui se contente d'attendre...

Il manque une "." avant le dernier Cells


.Cells(Ligne, 5) = .Cells(Ligne, 5) + .Cells(Target.Row, 3)

Va voir : le lien de Bisûnûrs

Il y a :



Pour rajouter un lien vers ta société, il ne te reste plus qu'à.... réfléchir un peu.

P.S. c'est comme ça qu'on apprend.

Essaye en remplaçant les variables I dans les deux boucles "Trouver la ligne du User" et "Parcourir ses feuilles permises" par L et C par exemple

N'oublie pas de les déclarer au début de la...

With Sheets("CalculsMacros")
If Isnumeric(Ligne) And Target.Column < 6 And Application.CountA(Cells(Target.Row, 1).Resize(, 5)) = 5 Then
'on cherche sur la feuille...