Macro et lien hypertexte Excel 2003
Résolu
Bonjour,
J'ai cherché à peu près partout mais sans succés, alors voilà ma question:
Je cherche à créer une une macro qui serait en bout de ligne.
Cette macro serait en quelque sorte un lien hypertexte.
J'arrive à réaliser ce type de macro, mais en indiquant le lien manuellement.
Etant donné que j'ai environ 1300 lignes, je voudrai connaître la solution qui me permettrait "d'automatiser" la macro.
Faire une sorte de recopie incrémentée dans la macro.
Voilà la macro:
Private Sub CommandButton1_Click()
'
' Lien Macro
'
'
'
Range("K3").Select
Workbooks.Open Filename:= _
"C:\Documents and Settings\Bureau\Essai macro\BlaBla.xls"
ActiveWindow.Visible = False
Windows("BlaBla.xls").Visible = True
End Sub
J'ai cherché à peu près partout mais sans succés, alors voilà ma question:
Je cherche à créer une une macro qui serait en bout de ligne.
Cette macro serait en quelque sorte un lien hypertexte.
J'arrive à réaliser ce type de macro, mais en indiquant le lien manuellement.
Etant donné que j'ai environ 1300 lignes, je voudrai connaître la solution qui me permettrait "d'automatiser" la macro.
Faire une sorte de recopie incrémentée dans la macro.
Voilà la macro:
Private Sub CommandButton1_Click()
'
' Lien Macro
'
'
'
Range("K3").Select
Workbooks.Open Filename:= _
"C:\Documents and Settings\Bureau\Essai macro\BlaBla.xls"
ActiveWindow.Visible = False
Windows("BlaBla.xls").Visible = True
End Sub
5 réponses
-
ContributeurBonjour,
Le problème posé ne me semble pas clair.
Quelle est la valeur qui doit être incrémentée ? K3 ?, le nom du fichier à ouvrir est-il différent à chaque ligne ?
Il s'agit semble t-il d'une macro liée à un bouton, donc la macro agit différemment selon la ligne sélectionnée ?
Sans doute un petit exemple (sans infos confidentielles) sur www.cijoint.fr nous sera très utile.
A+
-
K3 est bien la valeur à incrémenter, et le nom de fichier est différent à chaque ligne, la macro est bien liée à un bouton
-
Bonjour,
Je n'osais le dire, mais moi non plus, je n'ai pas trouvé cela limpide.
Cordialement,
Migou -
ContributeurBon alors, une idée :
faire un seul bouton qui agit différemment selon la ligne selectionnée.
Par exemple le nom du fichier se trouve dans la colonne H alors voila la macro :
ligne = ActiveCell.Row ' Cells(ligne, 11).Select Workbooks.Open Filename:=Cells(ligne, 8) ActiveWindow.Visible = False
Dans cet exemple il prend le numéro de ligne de la selection et sélectionne la cellule en colonne "K" (colonne 11) et ouvre le fichier dont le nom est en colone "H" (colonne 8).
A+ -
Merci, ça marche après quelque petites modifs c'est OK.
Désolé de ne pas avoir été très clair, c'est vrai que quand on est dedans c'est difficile d'expliquer clairement ce que l'on veut.
Encore merci et bonne journée à tous.
