> 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
Ecran PC 27 pouces KTC H27V13 (VA, Full HD, 100 Hz) à 99,99 €
99,99 € 149 € -33%
@Geekbuying
PC portable 15.6 pouces Dell Inspiron G15 (FHD 120Hz, Core i7, 16 Go DDR5, SSD 512 Go, GeForce RTX 4060) à 999 €
999,00 € 1349 € -26%
@Amazon
Disque dur Seagate NAS Iron Wolf 8 To + 3 ans Service Rescue à 171,99 €
171,99 € 230 € -25%
@Amazon
Carte graphique Sapphire Pulse Radeon RX 7900 GRE OC 16G à 554,15 €
554,15 € 649,95 € -15%
@Amazon
NAS Terramaster F4-423 (4 baies, Intel N5105, 4 Go, 2 ports 2.5 GbE) à 367,99 €
367,99 € 499,99 € -26%
@Amazon
Support ErGear articulé pour deux écrans PC 13 à 32 pouces à 19,88 €
19,88 € 37,99 € -48%
@Amazon

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