Macro ouverture lien hypertexte, modif et fermeture Fermé

Question

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

wuhrlinanthony · Answer

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

Zoul67 · Answer

Bonjour, 

Comment reconnaître que le tableau commence bien ligne 61? L'en-tête de colonne est-il fixe ?

A+

Macro ouverture lien hypertexte, modif et fermeture

2 réponses

Discussions similaires