> Tous les forums > Forum Bureautique
 Lien hypertexte vers 2 destinations ?
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jeje137
  Posté le 25/05/2005 @ 10:10 
Aller en bas de la page 
Petit astucien
Bonjour, Je souhaiterais savoir s'il ait possible de créer un lien hypertexte sous EXCEL pour ouvrir un fichier qui peut se trouver à deux endroits différents. J'explique... Le fichier que je souhaite ouvrir se trouve soit sur le réseau (Z:\dossier\...\2005\fichier.pdf) soit en local (C:\mondossier\...\2005\fichier.pdf) et je souhaiterais effectuer si possible un test logique qui tenterait d'ouvrir le fichier réseau et s'il ne trouve pas ce fichier, qu'il tente d'ouvrir le fichier local. Comment faire (si possible!) ? Par la formule LIEN_HYPERTEXTE, est-ce possible ? Faut-il utiliser une macro ? Si j'ai pas le choix, comment faire cette macro et la reproduire rapidemment ? Merci d'avance Jéjé [boom]
Publicité
ritchi92
 Posté le 25/05/2005 à 13:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien
question trÞs intÚressante et cela peut rÚpondre Ó certaines attentes donc Ó suivre ... s¹rement avec des fonctions si dans la macro

Modifié par ritchi92 le 25/05/2005 13:23
telliak
 Posté le 25/05/2005 à 16:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour, Je ne connais pas Excel (trop cher pour moi...), mais avec Word il existe une mÚthode DriveExists, sans doute a-t-elle un Úquivalent sous Excel.
DriveExists, mÚthode Description Renvoie la valeur True si le lecteur spÚcifiÚ existe, False dans le cas contraire. Syntaxe object.DriveExists(drivespec) La syntaxe de la mÚthode DriveExists comprend les ÚlÚments suivants : ?lÚment Description object Correspond toujours au nom d'un objet FileSystemObject. drivespec Une lettre dÚsignant un lecteur ou une spÚcification de chemin complÞte. Remarques Pour les lecteurs de supports amovibles, la mÚthode DriveExists renvoie True mÛme si le lecteur ne contient pas de support. Utilisez la propriÚtÚ IsReady de l'objet Drive pour dÚterminer si un lecteur est prÛt.
jeje137
 Posté le 26/05/2005 à 15:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Si je comprends bien, cela correspond Ó la syntaxe d'une macro mais comment appliquer cette macro Ó par exemple du texte dans Word (exemple : "cliquer sur lien"). Merci encore
telliak
 Posté le 26/05/2005 à 17:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour, bonjour JÚjÚ, HonnÛtement, je ne sais pas. Il doit y avoir moyen, par exemple, si la connexion au serveur se fait avant l'ouverture du document, de changer la lettre du drive et le chemin d'accÞs dans les hyperliens.... Bref yaka chercher, c'est ce que je vais faire [idee]...
telliak
 Posté le 27/05/2005 à 21:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir Ó tous, J'ai bricolÚ une macro qui, sous Word, peut servir de point de dÚpart pour rÚalisr la mise Ó jour d'hyperliens, selon qu'un disque rÚseau existe ou non. C'est un peu de l'Úpicerie, mais elle fonctionne. En connaissant bien la gestion des hyperliens par Word, on devrait pouvoir trouver plus malin. Par prudence, essayer sur une copie du document rÚel...
Sub ChangerDriveHyperlinks() ' Au dÚpart les hyperliens sont : ' - supposÚs pointer sur un lecteur rÚseau (E:). ' - Ûtre dÚfinis comme 'absolus' et non comme 'relatifs'. ' Si ce lecteur n'existe pas (identification par erreur dans command 'Dir'), ' le lecteur local (C:) est pris. ' Les caractÞres æ_Æ, utilisÚs pour le cadrage du texte, sont Ó supprimer ____Dim DriveHyperlinks As String ____Dim DriveHyperlinksLocaux As String ____Dim DriveHyperlinksRÚseau As String ____Dim CodeErreur As Integer ____Dim sWork As String ' DÚfinition des lecteurs rÚseau et local ____DriveHyperlinksLocaux = "C:" ____DriveHyperlinksRÚseau = "E:" ____DriveHyperlinks = DriveHyperlinksRÚseau On Error GoTo MauvaisLecteur ' Si erreur d'accÞs, prendre ____sWork = Dir(DriveHyperlinks) ' le lecteur local (voir 'Mauvaislecteur') On Error GoTo 0 ' Rendre visibles les codes de champs ____ActiveWindow.View.ShowFieldCodes = True ' DÚbut du fichier ____Selection.HomeKey Unit:=wdStory ' Changer de 'RÚseau' en 'Local' (par exemple...) les lecteurs des hyperliens ____Selection.Find.ClearFormatting ____Selection.Find.Replacement.ClearFormatting ____With Selection.Find ________.Text = "hyperlink """ + DriveHyperlinksRÚseau ________.Replacement.Text = "hyperlink """ + DriveHyperlinks ________.Forward = True ________.Wrap = wdFindContinue ____End With ____Selection.Find.Execute Replace:=wdReplaceAll ' Masquer les codes de champs ____ActiveWindow.View.ShowFieldCodes = False ' Afficher les hyperliens pour vÚrifier ____For Each AHyperLien In ActiveDocument.Hyperlinks ________MsgBox AHyperLien.Name + vbCrLf + AHyperLien.Address ____Next AHyperLien ____End ' Sortir de la macro ____ MauvaisLecteur: ____CodeErreur = Err ____If CodeErreur = 52 Then ' Si le lecteur est inaccessible ________DriveHyperlinks = DriveHyperlinksLocaux ' prendre le lecteur local ________Resume Next ____Else ________MsgBox "Erreur >" + Error(CodeErreur) + "< sur commande ½Dir?." ____End If End Sub
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
Lessive ARIEL Dash 2en1 70 lavages lavande et camomille à 11,92 €
11,92 € 14,90 € -20%
@Amazon
Mini PC AOOSTAR GEM12 (Ryzen 9 6900HX, 32 Go RAM, SSD 1 To, Radeon 680M, Oculink, Windows 11 Pro) à 499 €
499 € 575 € -13%
@Geekbuying
Carte mémoire SDXC UHS-I U3 Samsung PRO Plus 512 Go (jusqu'à 180 Mo/s) à 48,13 €
48,13 € 69,99 € -31%
@Amazon Allemagne
Lego Creator Exprert 10298 Vespa 125 à 73,99 €
73,99 € 99,99 € -26%
@Amazon
Système de sécurité Amazon Ring Alarm L 11 pièces à 259,99 €
259,99 € 450 € -42%
@Amazon
Liseuse et carnet de notes Kindle Scribe 10.2 pouces + stylet basique à 277,74 €
277,74 € 350 € -21%
@Amazon Allemagne

Sujets relatifs
lien hypertexte de excel vers messagerie
Lien hypertexte vers messagerie
Lien hypertexte vers fichier en lecture seule
lien hypertexte excel vers image
Lien hypertexte vers autre fichier ppt et retour
Lien hypertexte vers base Access
Lien hypertexte vers .pdf et fermeture de ppt
Lien hypertexte de excel vers pdf
[XL+lien hypertexte+googlemap]
Lien Hypertexte
Plus de sujets relatifs à Lien hypertexte vers 2 destinations ?
 > Tous les forums > Forum Bureautique