Bravo pour initier des ignorants tels que moi ! Vous y réussissez parfaitement 👍
@AGNESTutosFormations
8 ай бұрын
☺️ Merci pour votre message de retour ! N’oubliez pas que nous sommes tous des apprenants à différents stades de notre parcours. Bonne continuation.
@mahamadoutoure856
8 ай бұрын
Bonjour AGNES ! Merci infiniment pour le savoir partager 😊 Cela nous fait très plaisir 😊 Vos vidéos sont aussi très bénéfique 😊 et nous vous remercions sans cesse 😊 J'ai hâte de voir la prochaine vidéo😊
@AGNESTutosFormations
8 ай бұрын
Bonjour et ☺️ merci pour votre message de retour ! Je suis ravie de lire que vous trouviez les tutoriels utiles. Bonne continuation.
@FrankBZH
8 ай бұрын
Une pépite, merci Agnès. 🙃☝
@AGNESTutosFormations
8 ай бұрын
☺️ Avec plaisir ! Ravie que ce tutoriel vous soit utile.
@nicolasniko
8 ай бұрын
Merci bien. Encore une fois tuto très clair, ton très bienveillant. J'ai testé ça marche nickel mais (car il y en a toujours ;-) )ça copie aussi toutes les adresses internet s'il y en a ça peut s'éliminer facilement en ajoutant un test : ➡ If (InStr(1, Hyperlink.Address, "mailto:", 1) 0) Then (Permet d'ajouter seulement si c'est un mail Email = Replace(Hyperlink.Address, "mailto:", "") Worksheet.Hyperlinks.Add Worksheet.Cells(Row, 1), Email, TextToDisplay:=Email Row = Row + 1 ➡End If Merci encore ça m'a donné pas mal d'idée pour la suite.
@AGNESTutosFormations
8 ай бұрын
😊 Avec plaisir et merci pour votre message de retour. En effet, c'est une bonne idée si votre document comporte des URLs Internet, il faut ajouter quelques lignes de codes. Voici le code de la macro modifié : Sub ExtraireAdressesMail() Dim Hyperlink As Hyperlink Dim ExcelApp As Object Dim Workbook As Object Dim Worksheet As Object Dim Row As Integer Dim Email As String Set ExcelApp = CreateObject("Excel.Application") Set Workbook = ExcelApp.Workbooks.Add Set Worksheet = Workbook.Worksheets(1) Row = 1 For Each Hyperlink In ActiveDocument.Hyperlinks ' Vérifie si l'hyperlien est un mailto If InStr(1, Hyperlink.Address, "mailto:", 1) 0 Then Email = Replace(Hyperlink.Address, "mailto:", "") Worksheet.Hyperlinks.Add Worksheet.Cells(Row, 1), Email, TextToDisplay:=Email Row = Row + 1 End If Next Hyperlink ExcelApp.Visible = True End Sub
@DamienLEIGNEL
Ай бұрын
bonjour, j'ai presque réussi mais j'ai un message d'erreur sur la macro lors de l'execution sur cette ligne de code Set ExcelApp = CreateObject("Excel.Application")
@AGNESTutosFormations
Ай бұрын
Bonjour, l’erreur que vous rencontrez, peut être due à plusieurs facteurs. A cet effet, je vous invite à vérifier si Excel est correctement installé sur votre ordinateur. Par ailleurs, si vous utilisez un ordinateur d'entreprise, dans de nombreuses entreprises, pour des raisons de sécurité, l'exécution des macros peut être désactivée par défaut, ce qui pourrait empêcher votre macro de fonctionner correctement. Sinon, cela peut être dû également à des restrictions de sécurité sur votre ordinateur ou à des paramètres de compte d'utilisateur. Une autre possibilité, selon la version d'Office que vous utilisez, des problèmes dans le registre Windows peuvent empêcher d'exécuter correctement la macro. Bonne continuation.
Пікірлер: 10