Bonjour à tous,
Mes connaissances sont trop limitées pour que j'arrive à me débrouiller en copiant collant des bouts de code pris deci delà.

Pourriez vous m'aider à faire ce qui suit ?
Ah, on ne peut pas joindre de fichier avec macro xlsm apparemment

En me positionnant sur une cellule, il s'agit donc de :

- sélectionner un fichier (pdf en l'occurrence) via un boite de dialogue

- le renommer d'après les deux valeurs des cellules A et B de la ligne active

- créer un lien hypertexte vers le nouveau nom de fichier

- afficher dans la cellule le nom du nouveau fichier vers lequel pointe le lien hypertexte


Attention, l'objectif est de partager le classeur et la fonction de création de lien hypertexte n'est pas accessible en partage normalement (via les commandes classiques, je ne sais pas si c'est le cas via VBA).

Je vous remercie beaucoup, je patauge sévère là :-)


Le code que j'ai actuellement pour le lien hypertexte seulement est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub hypertexte()
 Dim Fichier
 Fichier = Application.GetOpenFileName()
  If Fichier <> False Then
  ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & Dir(Fichier) & """)"
  Else
   MsgBox "Vous n'avez pas sélectionné de fichier"
  End If
End Sub