Discussion :

[tvbfl]

Bonjour à tous,

Je vous expose mon problème. Je réalise en ce moment une base de données. Le but est d'engendrer une fiche crée automatiquement par des USF. Une fois la fiche finie, l'utilisateur n'a qu'a appuyé sur un bouton pour l'enregistrer via ce code:

Code :

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

1
2
3
4
5
 
ChDir "C:\Users\....\.......\"
Sheets("Fiche ").ExportAsFixedFormat Filename:=Sheets("Fiche").Range("I1").Value, Type:=xlTypePDF, Quality:= _
xlQualityStandard, includeDocproperties:=True, IgnorePrintAreas:=False, _
from:=1, To:=2, openafterpublish:=True

Jusque là tout marche bien. Maintenant je veux qu'en cliquant sur le même bouton des données telles que celles-ci



se rangent dans un tableau,comme celui-ci en s'incrémentant automatiquement ligne par ligne. ce tableau se situant dans un autre onglet de mon classeur.



De plus, j'aimerai que dans la colonne "A" du tableau qui correspond à la colonne N° de fiche soit un lien hypertexte vers cette fiche. L'enregistrement de la fiche en pdf portant déjà le nom du numéro de la fiche. Et bien sûr que cela se crée pour chaque fiche que je crée.

Voici mon code pour l'incrémentation et lien mais ça ne marche pas

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
 
  With Sheets("Tableau")
Dim DerLigne As Long
      DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
 
      .Cells(DerLigne, "B") = Sheets("Fiche").Range("D7").MergeArea.Value
      .Cells(DerLigne, "C") = Sheets("Fiche").Range("D8").MergeArea.Value
      .Cells(DerLigne, "D") = Sheets("Fiche").Range("D10").MergeArea.Value
      .Cells(DerLigne, "E") = Sheets("Fiche").Range("K6").MergeArea.Value
      .Cells(DerLigne, "F") = Sheets("Fiche").Range("D4").MergeArea.Value
      .Cells(DerLigne, "G") = Sheets("Fiche").Range("K8").MergeArea.Value
      .Cells(DerLigne, "H") = Sheets("Fiche").Range("K9").MergeArea.Value
      .Cells(DerLigne, "I") = Sheets("Fiche ").Range("C12").MergeArea.Value
 
      Worksheets("Tableau ").Hyperlinks.Add Anchor:=Worksheets("Tableau").Range("H" & DerLigne), Address:="C:\Users\....\...\", TextToDisplay:=Sheets("Fiche").Range("I1").MergeArea.Value
  End With

J'espère que j'ai été assez clair.....

Merci d'avance, toute aide sera la bienvenue

Bonne soire soirée à vous,

[kiki29]

Salut, si curieux voir ceci : Liste des fichiers d'un dossier + Liens