Sauvegarde information + lien hypertext.

[whooki]

Bonjour à tous,

J'utilise un code qui sauvegarde des informations sur un autre classeur intitulé "liste mois encours.xls".

Dans ce fichier, je liste certains éléments, notament le numéro de mes offres.
Je souhaiterais pouvoir ouvrir mon classeur avec un lien hypertext lorsque j'ouvre ce classeur liste moi en cours.xls.

Voici mon code actuel:

ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True

Chemin = "c:\gestcom\offres de prix\"
FileNameXls = Range("offre!f4").Value & ".xls"
chemXls = Chemin & FileNameXls
ActiveWorkbook.SaveCopyAs (chemXls)

Application.ScreenUpdating = False
Sheets("offre").Select
demand = Cells(4, 6).Value
jour = Cells(2, 9).Value
client = Cells(6, 8).Value
total = Cells(57, 10).Value


Workbooks.Open Filename:="C:\gestcom\OFFRES DE PRIX\liste mois encours.xls"
Windows("liste mois encours.xls").Activate
pos = Cells(2, 1).Value

Cells(pos + 3, 2).Value = client
Cells(pos + 3, 3).Value = jour
Cells(pos + 3, 4).Value = demand
Cells(pos + 3, 5).Value = total


Merci encore pour votre aide.

 

[whooki]

Re : Sauvegarde information + lien hypertext.

Fichier oublié pardon