BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.
BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.
BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
> BOjour,
> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
> des fichiers et j'aimerais savoir s'il est possible de lancer une
> macro qui irait chercher chanque fichier et les enregistrer dans un
> repertoire reseau.
> merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
> BOjour,
> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
> des fichiers et j'aimerais savoir s'il est possible de lancer une
> macro qui irait chercher chanque fichier et les enregistrer dans un
> repertoire reseau.
> merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
> BOjour,
> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
> des fichiers et j'aimerais savoir s'il est possible de lancer une
> macro qui irait chercher chanque fichier et les enregistrer dans un
> repertoire reseau.
> merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?
bonne journée
On 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
DanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?
bonne journée
On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?
bonne journée
On 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
DanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> Bonjour,
> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
> fichier incorect ? une idée ?
> bonne journée
> On 22 sep, 15:22, DanielCo wrote:
>> Bonjour. Essaie le code suivant :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp" & fich
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> BOjour,
>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>> repertoire reseau.
>>> merci de votre aide.- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> Bonjour,
> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
> fichier incorect ? une idée ?
> bonne journée
> On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
>> Bonjour. Essaie le code suivant :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp" & fich
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> BOjour,
>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>> repertoire reseau.
>>> merci de votre aide.- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> Bonjour,
> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
> fichier incorect ? une idée ?
> bonne journée
> On 22 sep, 15:22, DanielCo wrote:
>> Bonjour. Essaie le code suivant :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp" & fich
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> BOjour,
>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>> repertoire reseau.
>>> merci de votre aide.- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://
On 23 sep, 09:27, DanielCo wrote:Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
DanielBonjour,j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?bonne journéeOn 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End SubDanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://
On 23 sep, 09:27, DanielCo <dcolardelle...@free.fr> wrote:
Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
Bonjour,
j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?
bonne journée
On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://
On 23 sep, 09:27, DanielCo wrote:Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
DanielBonjour,j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?bonne journéeOn 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End SubDanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
> la forme http://
> On 23 sep, 09:27, DanielCo wrote:
>> Bonjoour.
>> Peut-être as-tu des adresses mail dans certaines cellules ?
>> Teste la macro suivante:
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 4) <> "mail" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> Bonjour,
>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>> fichier incorect ? une idée ?
>>> bonne journée
>>> On 22 sep, 15:22, DanielCo wrote:
>>>> Bonjour. Essaie le code suivant :
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp" & fich
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> BOjour,
>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent su r
>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>> repertoire reseau.
>>>>> merci de votre aide.- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
> la forme http://
> On 23 sep, 09:27, DanielCo <dcolardelle...@free.fr> wrote:
>> Bonjoour.
>> Peut-être as-tu des adresses mail dans certaines cellules ?
>> Teste la macro suivante:
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 4) <> "mail" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> Bonjour,
>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>> fichier incorect ? une idée ?
>>> bonne journée
>>> On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
>>>> Bonjour. Essaie le code suivant :
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp" & fich
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> BOjour,
>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent su r
>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>> repertoire reseau.
>>>>> merci de votre aide.- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
> la forme http://
> On 23 sep, 09:27, DanielCo wrote:
>> Bonjoour.
>> Peut-être as-tu des adresses mail dans certaines cellules ?
>> Teste la macro suivante:
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 4) <> "mail" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> Bonjour,
>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>> fichier incorect ? une idée ?
>>> bonne journée
>>> On 22 sep, 15:22, DanielCo wrote:
>>>> Bonjour. Essaie le code suivant :
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp" & fich
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> BOjour,
>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent su r
>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>> repertoire reseau.
>>>>> merci de votre aide.- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
BOnjour,
non toujours meme erreur mais en cliquant sur le lien dans ma feuille
excel il me lance IE avant de telecharger le fichier peu etre une
piste ???
merci de votre aide.
On 23 sep, 15:11, DanielCo wrote:Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Danielnon pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://On 23 sep, 09:27, DanielCo wrote:Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
DanielBonjour,j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?bonne journéeOn 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End SubDanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
BOnjour,
non toujours meme erreur mais en cliquant sur le lien dans ma feuille
excel il me lance IE avant de telecharger le fichier peu etre une
piste ???
merci de votre aide.
On 23 sep, 15:11, DanielCo <dcolardelle...@free.fr> wrote:
Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://
On 23 sep, 09:27, DanielCo <dcolardelle...@free.fr> wrote:
Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Daniel
Bonjour,
j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?
bonne journée
On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End Sub
Daniel
BOjour,
j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.
merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
BOnjour,
non toujours meme erreur mais en cliquant sur le lien dans ma feuille
excel il me lance IE avant de telecharger le fichier peu etre une
piste ???
merci de votre aide.
On 23 sep, 15:11, DanielCo wrote:Alors, tu as peut-être des liens vers des fichiers ou des adresses FTP
?
Essaie :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 7) = "http://" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
Danielnon pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sous
la forme http://On 23 sep, 09:27, DanielCo wrote:Bonjoour.
Peut-être as-tu des adresses mail dans certaines cellules ?
Teste la macro suivante:
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
If Left(h.Address, 4) <> "mail" Then
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
End If
Next h
Next sh
End Sub
DanielBonjour,j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
fichier incorect ? une idée ?bonne journéeOn 22 sep, 15:22, DanielCo wrote:Bonjour. Essaie le code suivant :
Sub test()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp" & fich
Next h
Next sh
End SubDanielBOjour,j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
des fichiers et j'aimerais savoir s'il est possible de lancer une
macro qui irait chercher chanque fichier et les enregistrer dans un
repertoire reseau.merci de votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Bonjour.
Utilise le code suivant, il te donneras l'adresse de la première
cellule provoquant l'erreur. Poste l'adresse web correspondante :
Sub test4()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
On Error GoTo Err
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
Next h
Next sh
Err:
MsgBox sh.Name & " " & h.Range.Address
End Sub
Daniel
> BOnjour,
> non toujours meme erreur mais en cliquant sur le lien dans ma feuille
> excel il me lance IE avant de telecharger le fichier peu etre une
> piste ???
> merci de votre aide.
> On 23 sep, 15:11, DanielCo wrote:
>> Alors, tu as peut-être des liens vers des fichiers ou des adresses F TP
>> ?
>> Essaie :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 7) = "http://" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sou s
>>> la forme http://
>>> On 23 sep, 09:27, DanielCo wrote:
>>>> Bonjoour.
>>>> Peut-être as-tu des adresses mail dans certaines cellules ?
>>>> Teste la macro suivante:
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> If Left(h.Address, 4) <> "mail" Then
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp & fich"
>>>> End If
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> Bonjour,
>>>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>>>> fichier incorect ? une idée ?
>>>>> bonne journée
>>>>> On 22 sep, 15:22, DanielCo wrote:
>>>>>> Bonjour. Essaie le code suivant :
>>>>>> Sub test()
>>>>>> Dim c As Range, Fich As String
>>>>>> Dim sh As Worksheet, h As Hyperlink
>>>>>> For Each sh In Worksheets
>>>>>> For Each h In sh.Hyperlinks
>>>>>> Fich = Dir(h.Address)
>>>>>> FileCopy h.Address, "c:temp" & fich
>>>>>> Next h
>>>>>> Next sh
>>>>>> End Sub
>>>>>> Daniel
>>>>>>> BOjour,
>>>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>>>> repertoire reseau.
>>>>>>> merci de votre aide.- Masquer le texte des messages précédent s -
>>>>>> - Afficher le texte des messages précédents -- Masquer le text e des
>>>>>> messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjour.
Utilise le code suivant, il te donneras l'adresse de la première
cellule provoquant l'erreur. Poste l'adresse web correspondante :
Sub test4()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
On Error GoTo Err
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
Next h
Next sh
Err:
MsgBox sh.Name & " " & h.Range.Address
End Sub
Daniel
> BOnjour,
> non toujours meme erreur mais en cliquant sur le lien dans ma feuille
> excel il me lance IE avant de telecharger le fichier peu etre une
> piste ???
> merci de votre aide.
> On 23 sep, 15:11, DanielCo <dcolardelle...@free.fr> wrote:
>> Alors, tu as peut-être des liens vers des fichiers ou des adresses F TP
>> ?
>> Essaie :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 7) = "http://" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sou s
>>> la forme http://
>>> On 23 sep, 09:27, DanielCo <dcolardelle...@free.fr> wrote:
>>>> Bonjoour.
>>>> Peut-être as-tu des adresses mail dans certaines cellules ?
>>>> Teste la macro suivante:
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> If Left(h.Address, 4) <> "mail" Then
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp & fich"
>>>> End If
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> Bonjour,
>>>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>>>> fichier incorect ? une idée ?
>>>>> bonne journée
>>>>> On 22 sep, 15:22, DanielCo <dcolardelle...@free.fr> wrote:
>>>>>> Bonjour. Essaie le code suivant :
>>>>>> Sub test()
>>>>>> Dim c As Range, Fich As String
>>>>>> Dim sh As Worksheet, h As Hyperlink
>>>>>> For Each sh In Worksheets
>>>>>> For Each h In sh.Hyperlinks
>>>>>> Fich = Dir(h.Address)
>>>>>> FileCopy h.Address, "c:temp" & fich
>>>>>> Next h
>>>>>> Next sh
>>>>>> End Sub
>>>>>> Daniel
>>>>>>> BOjour,
>>>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>>>> repertoire reseau.
>>>>>>> merci de votre aide.- Masquer le texte des messages précédent s -
>>>>>> - Afficher le texte des messages précédents -- Masquer le text e des
>>>>>> messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjour.
Utilise le code suivant, il te donneras l'adresse de la première
cellule provoquant l'erreur. Poste l'adresse web correspondante :
Sub test4()
Dim c As Range, Fich As String
Dim sh As Worksheet, h As Hyperlink
On Error GoTo Err
For Each sh In Worksheets
For Each h In sh.Hyperlinks
Fich = Dir(h.Address)
FileCopy h.Address, "c:temp & fich"
Next h
Next sh
Err:
MsgBox sh.Name & " " & h.Range.Address
End Sub
Daniel
> BOnjour,
> non toujours meme erreur mais en cliquant sur le lien dans ma feuille
> excel il me lance IE avant de telecharger le fichier peu etre une
> piste ???
> merci de votre aide.
> On 23 sep, 15:11, DanielCo wrote:
>> Alors, tu as peut-être des liens vers des fichiers ou des adresses F TP
>> ?
>> Essaie :
>> Sub test()
>> Dim c As Range, Fich As String
>> Dim sh As Worksheet, h As Hyperlink
>> For Each sh In Worksheets
>> For Each h In sh.Hyperlinks
>> If Left(h.Address, 7) = "http://" Then
>> Fich = Dir(h.Address)
>> FileCopy h.Address, "c:temp & fich"
>> End If
>> Next h
>> Next sh
>> End Sub
>> Daniel
>>> non pas d'adrese mais j'ai du mal m'explique le lien hypertxt est sou s
>>> la forme http://
>>> On 23 sep, 09:27, DanielCo wrote:
>>>> Bonjoour.
>>>> Peut-être as-tu des adresses mail dans certaines cellules ?
>>>> Teste la macro suivante:
>>>> Sub test()
>>>> Dim c As Range, Fich As String
>>>> Dim sh As Worksheet, h As Hyperlink
>>>> For Each sh In Worksheets
>>>> For Each h In sh.Hyperlinks
>>>> If Left(h.Address, 4) <> "mail" Then
>>>> Fich = Dir(h.Address)
>>>> FileCopy h.Address, "c:temp & fich"
>>>> End If
>>>> Next h
>>>> Next sh
>>>> End Sub
>>>> Daniel
>>>>> Bonjour,
>>>>> j'ai testé les 2 macro et j'obtiens la meme erreur 52 nom ou n° e
>>>>> fichier incorect ? une idée ?
>>>>> bonne journée
>>>>> On 22 sep, 15:22, DanielCo wrote:
>>>>>> Bonjour. Essaie le code suivant :
>>>>>> Sub test()
>>>>>> Dim c As Range, Fich As String
>>>>>> Dim sh As Worksheet, h As Hyperlink
>>>>>> For Each sh In Worksheets
>>>>>> For Each h In sh.Hyperlinks
>>>>>> Fich = Dir(h.Address)
>>>>>> FileCopy h.Address, "c:temp" & fich
>>>>>> Next h
>>>>>> Next sh
>>>>>> End Sub
>>>>>> Daniel
>>>>>>> BOjour,
>>>>>>> j'ai un fichier avec des centaines de lien hypertxt qui pointent sur
>>>>>>> des fichiers et j'aimerais savoir s'il est possible de lancer une
>>>>>>> macro qui irait chercher chanque fichier et les enregistrer dans un
>>>>>>> repertoire reseau.
>>>>>>> merci de votre aide.- Masquer le texte des messages précédent s -
>>>>>> - Afficher le texte des messages précédents -- Masquer le text e des
>>>>>> messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des
>>>> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -