> Tous les forums > Forum Bureautique
 Créer un lien hypertexte vbaSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
patton
  Posté le 12/08/2014 @ 13:06 
Aller en bas de la page 
Petit astucien

Bonjour à tous!!!

Voilà, je me heurte à un petit souci :

J'enregistre un fichier Excel sous un nom (disons toto dans le dossier titi) dans une première procédure.

Je l'enregistre dans une variable :

fName = Application.GetSaveAsFilename

Je voudrais récupérer ce nom pour l'utiliser dans une deuxième procédure pour créer un lien hypertexte vers ce fichier.

Merci à tous!!!

Publicité
ferrand
 Posté le 12/08/2014 à 15:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Précise ce que tu veux faire ! ?

Classeur qui contient la procédure - Classeur nommé - Classeur qui accueille lien ... ??

Ta variable doit être niveau module, le cas échéant publique, pour récupérer sont contenu dans une autre procédure.

patton
 Posté le 12/08/2014 à 15:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

En fait, je fait un copier / coller de certaines cellules d'un premier classeur (celui qui est enregistré dans ma variable) vers un deuxième classeur

Windows("Classeur1").Activate

Range("D19").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Classeur2").Activate

Range("B32").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Windows("Classeur1").Activate

Application.CutCopyMode = False

Range("D11").Select

Selection.Copy

Windows("Classeur2").Activate

Range("C32").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

etc......

ferrand
 Posté le 12/08/2014 à 15:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Ça du code enregistré, qui mériterait d'être réécrit, mais sans rapport avec un quelconque lien hypertexte ?

patton
 Posté le 12/08/2014 à 15:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

j'ai utilisé l'enregistreur car je suis une truffe en vba ...
Comment faire si je souhaite que "C32" contienne en plus le lien hypertexte...
Si la ligne n'y est pas c'est parce que je ne sais pas comment l'écrire

ferrand
 Posté le 12/08/2014 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Exemple de syntaxe :

ActiveSheet.Hyperlinks.Add Range("C32"), "E:\Documents\Classeur1.xls"

patton
 Posté le 13/08/2014 à 08:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
ferrand a écrit :

Exemple de syntaxe :

ActiveSheet.Hyperlinks.Add Range("C32"), "E:\Documents\Classeur1.xls"

Déjà je progresse en comprenant la syntaxe.
Mais ton exemple est OK avec un lien entré en dur.

Quid de ma variable?????

patton
 Posté le 13/08/2014 à 09:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ca marche!!
J'ai mis la variable en global

Comme quoi les solutions simples ne sautent pas toujours aux yeux

Merci encore

ferrand
 Posté le 13/08/2014 à 10:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Déjà je progresse en comprenant la syntaxe.

Pour simplifier ton code enregistré, exemple : dans une séquence telle que :

Windows("Classeur1").Activate
Range("D19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur2").Activate
Range("B32").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

VBA n'a nul besoin d'activer ou sélectionner pour mener à terme une action (sauf bien sûr si l'action est justement de sélectionner...). Au contraire, cela ralentit l'exécution. Ce code résulte du fait que c'est chaque mouvement de l'utilisateur qui est enregistré, et de surcroît l'enregistreur reproduit les valeurs par défaut des arguments, ce qui alourdit encore le code. Il suffit donc de :

Workbooks("Classeur1.xls").Range("D19").Copy
Workbooks("Classeur2.xls").Range("B32").PasteSpecial xlPasteValues

(NB- L'utilisation de l'objet Workbook est préférable à l'objet Window si la commande porte sur le contenu et non l'affichage dans la fenêtre ; "Application.CutCopyMode = False" sert à vider le Presse-papier, ici inutile puisque son contenu va être remplacé par la copie, et généralement inutile sauf avant fermeture pour inhiber le message demandant si l'on veut conserver ou non son contenu ; pour le collage en valeurs, un seul argument utile "Paste:=" qui n'a pas sa valeur par défaut, premier argument : on gagne donc à le fournir par position plutôt que le nommer.)

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite Active 75t à 99,99 €
Valable jusqu'au 01 Décembre

Amazon fait une belle promotion sur les Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite Active 75t qui passent à 99,99 € livrés. On les trouve ailleurs à partir de 179 €.

Confortables, les Jabra Elite Active 75t tiennent parfaitement dans l'oreille et s'adaptent à toutes les morphologies. Ils comportent 4 microphones embarqués pour des conversations parfaitement claires et audibles avec vos interlocuteurs. Les bruits de fond indésirables sont filtrés pour vous assurer une expérience confortable à chaque utilisation. Ils sont certifiés IP57 pour une résistance accrue à la poussière et à l'eau. Ils sont parfaitement adaptés au sport.

Côté autonomie, ces écouteurs assurent jusqu'à 7h30 d'utilisation sur une seule charge et une autonomie pouvant atteindre 24 heures grâce à l'étui de charge/transport fourni. Ce dernier dispose également d'une fonction de charge rapide avec 1 heure d'énergie supplémentaire en seulement 15 minutes de recharge.


> Voir l'offre
74,99 €Alimentation modulaire Corsair RM650 80+ Gold à 74,99 €
Valable jusqu'au 03 Décembre

Cdiscount propose actuellement l'alimentation modulaire Corsair RM650 à 74,99 €. Cette alimentation de 650W est certifiée 80+ Gold et est garantie 10 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 100 €. 


> Voir l'offre
99,99 €Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 75t à 99,99 €
Valable jusqu'au 03 Décembre

Amazon fait une belle promotion sur les Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 75t qui passent à 99,99 € livrés. On les trouve ailleurs à partir de 149 €.

Confortables, les Jabra Elite 75t tiennent parfaitement dans l'oreille et s'adaptent à toutes les morphologies. Ils comportent 4 microphones embarqués pour des conversations parfaitement claires et audibles avec vos interlocuteurs. Les bruits de fond indésirables sont filtrés pour vous assurer une expérience confortable à chaque utilisation.Ils sont certifiés IP55 pour une résistance accrue à la poussière et à l'eau.

Côté autonomie, ces écouteurs assurent jusqu'à 7h30 d'utilisation sur une seule charge et une autonomie pouvant atteindre 28 heures grâce à l'étui de charge/transport fourni. Ce dernier dispose également d'une fonction de charge rapide avec 1 heure d'énergie supplémentaire en seulement 15 minutes de recharge.


> Voir l'offre

Sujets relatifs
dans word 2007 créer retour d'un lien hypertexte
Créer un titre pour lien hypertexte
Créer un lien hypertexte dans le même document!
lien hypertexte de excel vers messagerie
[XL+lien hypertexte+googlemap]
Lien Hypertexte
Lien hypertexte vers messagerie
Macro Excel 2010-lien hypertexte
lien hypertexte - changer la couleur
Modifier un lien hypertexte
Plus de sujets relatifs à Créer un lien hypertexte vba
 > Tous les forums > Forum Bureautique