Macro ouverture lien hypertexte, modif et fermeture
Bonjour,
J'ai un fichier excel avec 2000 liens (qui ouvre vers un autre fichier excel) et pour chaque lien m'ouvre sur un tableau qui est parfois decaler d'une ligne (ligne 60 au lieu de 61).
J'essaie de creer une macro qui permettrait d'ouvrir le lien hypertexte puis de decaler (ou non) le tableau d'une ligne. Si le tableau commence ligne 61 : OK si ligne 60 decaler d'une ligne. Ensuite enregistrer et fermer le lien. Et passer au suivant dans le fichier excel avec tous les liens. J'espere que c'est plutôt clair.
Je cherche de l'aide car aucune idée comment creer le code pour aller sur le lien ouvrir, modifier et fermer le lien.
Merci pour votre aide.
Anthony
J'ai un fichier excel avec 2000 liens (qui ouvre vers un autre fichier excel) et pour chaque lien m'ouvre sur un tableau qui est parfois decaler d'une ligne (ligne 60 au lieu de 61).
J'essaie de creer une macro qui permettrait d'ouvrir le lien hypertexte puis de decaler (ou non) le tableau d'une ligne. Si le tableau commence ligne 61 : OK si ligne 60 decaler d'une ligne. Ensuite enregistrer et fermer le lien. Et passer au suivant dans le fichier excel avec tous les liens. J'espere que c'est plutôt clair.
Je cherche de l'aide car aucune idée comment creer le code pour aller sur le lien ouvrir, modifier et fermer le lien.
Merci pour votre aide.
Anthony
2 réponses
-
Bonjour,
Comment reconnaître que le tableau commence bien ligne 61? L'en-tête de colonne est-il fixe ?
A+ -
Bonjour,
Voici un code que j'ai essayer de creer (un peu differents de la question que j'ai poser)
Ce code devrait me permettre d'ouvrir le lien hypertexte faire une recher dans le fichier excel ouvert et copier coller une donner puis le fermer.
Mais je n'arrive toujours pas a creer le code pour ouvrir le lien hypertexte.
Sub Test()
Dim PS As Object
Dim Trouve As Variant
Dim PlageDeRecherche As Range
Dim Valeur_Chercher As Variant
For i = 2 To 4
Set PS = Workbooks("Equip_Parts_List_X74C").Sheets("List equipment").Cells(i, 5) ‘Lien hypertexte
Workbooks("Equip_Parts_List_X74C").Activate
Valeur_Chercher = Sheets("List equipment").Cells(i, 11) ‘ Valeur prise dans le fichier excel original
'Hyperlink("Process sheet V1 _20161005\"& PS).Follow
Set PlageDeRecherche = Sheets(1).Range("P58:AD69") ‘ Plage de recherché dans l’excel ouvert du lien hypertexte
Set Trouve = PlageDeRecherche.Cells.Find(Valeur_Chercher, , , xlWhole)
If Trouve Is Nothing Then
Workbooks("Equip_Parts_List_X74C").Activate
Sheets("List equipment").Cells(i, 15).Interior.ColorIndex = 3
Sheets("List equipment").Cells(i, 16).Interior.ColorIndex = 3
Else
Trouve.Copy
Workbooks("Equip_Parts_List_X74C").Activate
Sheets("List equipment").Cells(i, 15).Paste
'Workbooks("884_4D_T83W059_V1.xls").Sheets(1).Trouve
' Workbooks("Equipments Parts List -Liste_des_moyens_gamme_X74E-1101").Sheets("List equipment").Cells(i, 16) = Workbooks("884_4D_T83W059_V1.xls").Sheets(1).Trouve
End If
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
Workbooks("PS").Close SaveChanges:=True
Next
End Sub
