LIEN_HYPERTEXTE ouvrir le lien lié à une cellule

Bonjour,

J'ai un soucis sur VBA et je suis assez novice. J'ai un fichier Excel avec dans la cellule A1 une formule =LIEN_HYPERTEXTE(A2)

Le chemin (qui est sur un serveur de type N:\commercial\...) du lien peux changer suivant ce qui est stipulé en A2.

J'aimerais que le lien situé en A1 s'ouvre par une macro.

Merci par avance pour vos réponses

Bonjour et

Tu peux même te passer de la cellule A1 puisque le chemin est en A2 avec :

Si fichier Microsoft office

Workbooks.Open Filename:=Range("A2")

Ou n'importe quel extension définit depuis windows (y compris Microsoft Office)

   Set App = CreateObject("Shell.Application")
   App.Open (Range("A2"))
   Set App = Nothing

A+

Bonjour,

Merci beaucoup ça fonctionne !

Bonjour,

Cela fonctionne parfaitement, mais après j'aimerais quand mon fichier s'ouvre (FichierB), venir copier/coller les colonnes de A ==> G d'une feuille (Feuil1) vers le classeur de base actif (Fichiersource , Feuilsource). Puis venir fermer le FichierB.

Merci par avance

Bonjour,

A tester :

Workbooks.Open Filename:=Range("A2")
Set FichierB = ActiveWorkbook.Worksheets(1)
Set FichierSource = ThisWorkbook.Worksheets(1)

For Col = 1 To 6
    FichierSource.Columns(Col).Value = FichierB.Columns(Col).Value
Next Col

ActiveWorkbook.Close SaveChanges:=False

Attention, en faisant copie/colle sur colonne "A" tu vire ton lien.

Bon test A+

Rebonjour,

J'ai réussi à ce que les colonnes se copie dans un autre onglet :

Sheets("FILTRE").Select

Workbooks.Open Filename:=Range("L20")
Set FichierB = ActiveWorkbook.Worksheets(1)
Set FichierSource = ThisWorkbook.Worksheets("1 DEVIS")
For Col = 1 To 6
FichierSource.Columns(Col).Value = FichierB.Columns(Col).Value
Next Col

ActiveWorkbook.Close SaveChanges:=False

End sub

Le soucis c'est que dans mon fichier qui s'ouvre j'ai des photos, des cellules fusionnées, ... et la macro ne reprends pas tous ces éléments.

Sinon peut-être faire un déplacer copier de l'onglet qui s'ouvre. J'ai essayé en vain.

Pouvez-vous m'aider svp.

Bonne journée.

Bonjour,

Tu peux envoyer un fichiers representatif de ton "FichierB" et ton "FichierSource" sans info confidentielles/personnelles ?

Bonjour,

J'ai réussi la manip de copier / déplacer l'onglet du fichier ouvert (fichierB) dans mon classeur de base avec le code ci-dessous. Mais au moment de la fermeture de mon fichier B j'ai une erreur.. Et le fichier B ne veux pas se fermer.

Merci pour votre aide.

Bonjour,

FichierB n'est pas le nom de ton classeur mais un objet qui fait ref a une feuille du classeur.
Donc tu devrais pouvoir l'ecrire :

Workbooks(FichierB.Parent.Name).Close SaveChanges:=False

A+

PS: les variables locales a vérifier quand tu passes en execution en pas a pas (touche [F8])
Pour mieux comprendre comment écrire tes macros