Générer un fichier de redirection à partir du presse papier
1 réponse
rsecomp
J'ai développé en VBA la macro suivante qui permet de créer un fichier de
redirection c:\temp\liendoc.htm à partir d'une adresse web copiée dans le
presse papier. L'intérêt des de pouvoir stocker des liens sous forme de
fichiers de redirection.
La question est: comment re-développer ce code dans un autre langage pour ne
pas avoir à démarrer une application Office?
_____________________________________________
Sub Auto_Open()
' Cette macro récupère une adresse pour en faire une redirection
' Au préalable il faut copier le lien ddans le presse papier
'
On Error GoTo ErrorHandler
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
ActiveSheet.Range("C1").Select
fichier = "C:\temp\liendoc.htm"
Open fichier For Output As #1
ligne = "<html><head><script>top.location=""" &
ActiveSheet.Range("B2").Value & """;" & "</script></head></html>"
Print #1, ligne
Close #1
Workbooks.Close
Application.Quit
Windows(1).Close
Exit Sub
ErrorHandler: Workbooks.Close
Application.Quit
Windows(1).Close
Exit Sub
End Sub
__________________________________________________
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Pose ta question sur microsoft.fr.scripting (en français) ou microsoft.scripting.vbscript (en anglais)
Cordialement Pascal
"rsecomp" a écrit dans le message de news:
J'ai développé en VBA la macro suivante qui permet de créer un fichier de redirection c:templiendoc.htm à partir d'une adresse web copiée dans le presse papier. L'intérêt des de pouvoir stocker des liens sous forme de fichiers de redirection.
La question est: comment re-développer ce code dans un autre langage pour ne pas avoir à démarrer une application Office? _____________________________________________ Sub Auto_Open() ' Cette macro récupère une adresse pour en faire une redirection ' Au préalable il faut copier le lien ddans le presse papier ' On Error GoTo ErrorHandler ActiveSheet.Range("B2").Select ActiveSheet.Paste ActiveSheet.Range("C1").Select fichier = "C:templiendoc.htm" Open fichier For Output As #1 ligne = "<html><head><script>top.location=""" & ActiveSheet.Range("B2").Value & """;" & "</script></head></html>" Print #1, ligne Close #1 Workbooks.Close Application.Quit Windows(1).Close Exit Sub ErrorHandler: Workbooks.Close Application.Quit Windows(1).Close Exit Sub End Sub __________________________________________________
Bonjour
Pose ta question sur
microsoft.fr.scripting (en français)
ou
microsoft.scripting.vbscript (en anglais)
Cordialement
Pascal
"rsecomp" <rsecomp@discussions.microsoft.com> a écrit dans le message de
news: E3B4F2DB-8BBF-4B43-8E08-2BE8A54E2D10@microsoft.com...
J'ai développé en VBA la macro suivante qui permet de créer un fichier de
redirection c:templiendoc.htm à partir d'une adresse web copiée dans le
presse papier. L'intérêt des de pouvoir stocker des liens sous forme de
fichiers de redirection.
La question est: comment re-développer ce code dans un autre langage pour
ne
pas avoir à démarrer une application Office?
_____________________________________________
Sub Auto_Open()
' Cette macro récupère une adresse pour en faire une redirection
' Au préalable il faut copier le lien ddans le presse papier
'
On Error GoTo ErrorHandler
ActiveSheet.Range("B2").Select
ActiveSheet.Paste
ActiveSheet.Range("C1").Select
fichier = "C:templiendoc.htm"
Open fichier For Output As #1
ligne = "<html><head><script>top.location=""" &
ActiveSheet.Range("B2").Value & """;" & "</script></head></html>"
Print #1, ligne
Close #1
Workbooks.Close
Application.Quit
Windows(1).Close
Exit Sub
ErrorHandler: Workbooks.Close
Application.Quit
Windows(1).Close
Exit Sub
End Sub
__________________________________________________
Bonjour Pose ta question sur microsoft.fr.scripting (en français) ou microsoft.scripting.vbscript (en anglais)
Cordialement Pascal
"rsecomp" a écrit dans le message de news:
J'ai développé en VBA la macro suivante qui permet de créer un fichier de redirection c:templiendoc.htm à partir d'une adresse web copiée dans le presse papier. L'intérêt des de pouvoir stocker des liens sous forme de fichiers de redirection.
La question est: comment re-développer ce code dans un autre langage pour ne pas avoir à démarrer une application Office? _____________________________________________ Sub Auto_Open() ' Cette macro récupère une adresse pour en faire une redirection ' Au préalable il faut copier le lien ddans le presse papier ' On Error GoTo ErrorHandler ActiveSheet.Range("B2").Select ActiveSheet.Paste ActiveSheet.Range("C1").Select fichier = "C:templiendoc.htm" Open fichier For Output As #1 ligne = "<html><head><script>top.location=""" & ActiveSheet.Range("B2").Value & """;" & "</script></head></html>" Print #1, ligne Close #1 Workbooks.Close Application.Quit Windows(1).Close Exit Sub ErrorHandler: Workbooks.Close Application.Quit Windows(1).Close Exit Sub End Sub __________________________________________________