Discussion :

[chtrousselle]

Bonjour,

J'effectue une macro permettant de générer un lien hypertexte sur les cellules d'une même colonne dans un seul fichier. Je souhaite par une seule action activer cette macro sur tous les fichiers du dossier courant, mais je ne sais pas comment m'y prendre...

Tous les fichiers sont identiques

J'ai le code suivant :

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
Sub LienHypertext()
 
Dim cpt_l As Integer
Dim lienAdresse As String, lienDefaut As String, element As String
 
lienDefaut = "https://www.exemple.fr/"
 
For cpt_l = 2 To 2000
    If Sheets("Feuille1").Cells(cpt_l, 3).Value <> "" Then
        element= Sheets("Feuille1").Cells(cpt_l, 3).Value
        lienAdresse = lienDefaut & element
        Sheets("Feuille1").Cells(cpt_l, 3).Select
        Sheets("Feuille1").Cells(cpt_l, 3).Hyperlinks.Add Anchor:=Selection, Address:=lienAdresse, SubAddress:=lienAdresse, TextToDisplay:=IM 'lien
    End If
Next cpt_l
 
Range("A2").Select
 
End Sub

Merci d'avance !

[nanousik]

Bonjour,

Je ne suis pas sure d'avoir saisie ce que tu souhaites.

Est ce que tu souhaites faire une boucle qui ouvre tous les fichiers d'un dossier sur lesquels ça génère un lien hypertexte sur les cellules d'une même colonne?

Si c'est ça voila comment je ferais :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub LienHypertext()
 
Dim cpt_l As Integer
Dim lienAdresse As String, lienDefaut As String, element As String
Dim FileName, Path As String
 
lienDefaut = "https://www.exemple.fr/"
 
'Met le chemin de ton dossier courant dans la variable Path
Path = "C:\repertoire\*.*"
 
'Filename prend comme valeur le nom du premier fichier du dossier courant
FileName = Dir(Path)
 
'Parcours du dossier
While FileName <> ""
    Workbooks(FileName).Sheets("Accueil").lst_acc.AddItem (FileName)
 
    For cpt_l = 2 To 2000
        If Workbooks(FileName).Sheets("Feuille1").Cells(cpt_l, 3).Value <> "" Then
            element = Workbooks(FileName).Sheets("Feuille1").Cells(cpt_l, 3).Value
            lienAdresse = lienDefaut & element
            Workbooks(FileName).Sheets("Feuille1").Cells(cpt_l, 3).Select
            Workbooks(FileName).Sheets("Feuille1").Cells(cpt_l, 3).Hyperlinks.Add Anchor:=Selection, Address:=lienAdresse, SubAddress:=lienAdresse, TextToDisplay:=IM 'lien
        End If
    Next cpt_l
 
    Workbooks(FileName).Range("A2").Select
 
    'Filename prend la valeur du prochain fichier dans le dossier
    FileName = Dir
Wend
 
End Sub

[chtrousselle]

Merci pour votre réponse,
Oui c'est ca que je souhaite faire

J'ai un problème avec cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Workbooks(FileName).Sheets("Accueil").lst_acc.AddItem (FileName)

Si je comprend bien c'est la feuille de chaque fichier a "visiter" dans le dossier courant. Je remplace donc "Accueil" par le nom de ma feuille mais cela ne fonctionne pas...

[nanousik]

Ah c'est une erreur de ma part cette ligne n'a rien à faire ici. elle servait dans un de mes programmes pour remplir une liste déroulante qui s'appelait lst_acc.

Tu peux donc la supprimer et ton code fonctionnera

[chtrousselle]

J'ai inséré la macro dans un fichier indépendant du dossier
J'ai essayé en ouvrant les fichiers a parcourir et en les laissant également fermé et rien ne marche...

J'ai l'impression qu'il ne trouve pas la feuille a parcourir alors que je suis sûr de mon chemin...