Automat. l'incrémentation de lien hypertexte
Mariejo83510
Messages postés
30
Statut
Membre
-
mariejo83510 -
mariejo83510 -
Bonjour,
J'enregistre sur mon serveur, dans un dossier archives, tous mes courriers et autres.
J'aimerai automatiser l'incrémentation des liens hypertextes, dans un classeur excel, afin d'afficher,d'un clic le contenu.
Voici un exemple :
\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\RH2012012 Affichage J. fériés SA 2012.doc
Merci par avance de votre aide.
Bien cordialement.
J'enregistre sur mon serveur, dans un dossier archives, tous mes courriers et autres.
J'aimerai automatiser l'incrémentation des liens hypertextes, dans un classeur excel, afin d'afficher,d'un clic le contenu.
Voici un exemple :
\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\RH2012012 Affichage J. fériés SA 2012.doc
Merci par avance de votre aide.
Bien cordialement.
A voir également:
- Automat. l'incrémentation de lien hypertexte
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Verificateur de lien - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
- Lien copié ✓ - Forum Google Chrome
3 réponses
Bonsoir Raymond et merci de t'intéresser à ma question.
Je vais essayer d'être un peu plus claire.
Chaque fois que je crée un document (.doc, .xls, .pdf et ...), je l'enregistre dans un dossier archive. J'aimerai répertorier dans une feuille excel tous les liens hypertextes de ces documents, pour les visualiser d'un clic, et automatiquement à chaque enregistrement.
J'ai essayé de comprendre la méthode macro, mais je suis nulle et tout juste efficace en formule excel. C'est pourquoi je sollicite l'aide des champions.
Voilà ! Merci pour votre aide.
Mariejo.
Je vais essayer d'être un peu plus claire.
Chaque fois que je crée un document (.doc, .xls, .pdf et ...), je l'enregistre dans un dossier archive. J'aimerai répertorier dans une feuille excel tous les liens hypertextes de ces documents, pour les visualiser d'un clic, et automatiquement à chaque enregistrement.
J'ai essayé de comprendre la méthode macro, mais je suis nulle et tout juste efficace en formule excel. C'est pourquoi je sollicite l'aide des champions.
Voilà ! Merci pour votre aide.
Mariejo.
Bonjour Mariejo.
Tu m'excuses, j'avais omis de te souhaiter la bienvenue parmi les membres de CCM !
C'est beaucoup plus sage de procéder manuellement, au lieu de t'embarquer dans des complications sans nom ...
Ainsi tu es maître de tes décisions et tu pourras effectuer toutes les corrections et mises à jour que tu souhaiteras.
Cordialement.
Tu m'excuses, j'avais omis de te souhaiter la bienvenue parmi les membres de CCM !
C'est beaucoup plus sage de procéder manuellement, au lieu de t'embarquer dans des complications sans nom ...
Ainsi tu es maître de tes décisions et tu pourras effectuer toutes les corrections et mises à jour que tu souhaiteras.
Cordialement.
Merci beaucoup Raymond,
En fait, je suis un peu têtue et j'ai persevérée.
ceci dit j'ai encore quelques problèmes:
voici les codes appliqués :
Sub ARCHIVES_COURRIERS_DOC()
'
' ARCHIVES_COURRIERS_DOC Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.doc")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sub CHRONOS_XLS()
'
' CHRONOS_XLS Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.xls")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sub ARCHIVES_COURRIERS_ODF()
'
' ARCHIVES_COURRIERS_ODF Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.pdf")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sauf, que la céllule D1 ne fonctionne pas automatiquement au format "lien hypertexte", dans le tableau excel, car je ne sais pas comment donner ce format lienhypertexte. En fait je ne trouve pas la commande.
Exemple:
Chemin du répertoire:
céllule A1 = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\
Dans le répertoire, documents à incrémenter :
céllule B1 =Convention escom Ebre.doc
Formule appluqée : concatener(A1;B1) :
céllule C1 = \\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\Convention escom Ebre.doc
Résultat = copier coller valeur C1 pour incrémentation dans D1 :
céllule D1 = \\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\Convention escom Ebre.doc
Ensuite je tire la formule vers le bas pour visualiser le document par un clic sur la cellule, et là :
cela ne fonctionne que sur la première ligne.
Peut être avez vous un conseil à me donner.
avec mes sincères remerciements.
Mariejo.
En fait, je suis un peu têtue et j'ai persevérée.
ceci dit j'ai encore quelques problèmes:
voici les codes appliqués :
Sub ARCHIVES_COURRIERS_DOC()
'
' ARCHIVES_COURRIERS_DOC Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.doc")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sub CHRONOS_XLS()
'
' CHRONOS_XLS Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.xls")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sub ARCHIVES_COURRIERS_ODF()
'
' ARCHIVES_COURRIERS_ODF Macro
'Sub repertorier_fichier()
Dim Chemin As String, Fichier As String
'indique le répertoire contenant les fichiers
Chemin = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\"
'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.pdf")
numligne = 1
Do While Len(Fichier) > 0
Range("B" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub
Sauf, que la céllule D1 ne fonctionne pas automatiquement au format "lien hypertexte", dans le tableau excel, car je ne sais pas comment donner ce format lienhypertexte. En fait je ne trouve pas la commande.
Exemple:
Chemin du répertoire:
céllule A1 = "\\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\
Dans le répertoire, documents à incrémenter :
céllule B1 =Convention escom Ebre.doc
Formule appluqée : concatener(A1;B1) :
céllule C1 = \\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\Convention escom Ebre.doc
Résultat = copier coller valeur C1 pour incrémentation dans D1 :
céllule D1 = \\Serv2008\commun\SOCIAL\ARCHIVES COURRIERS\DOCUMENTS\Convention escom Ebre.doc
Ensuite je tire la formule vers le bas pour visualiser le document par un clic sur la cellule, et là :
cela ne fonctionne que sur la première ligne.
Peut être avez vous un conseil à me donner.
avec mes sincères remerciements.
Mariejo.
Bonjour,
Je pensais avoir réglé le problème, mais non !
J'ai bien fait un copier/coller de la premiere cellule, dans la colone devant revoir les liens hypertextes.
Ceux-ci se mettent bien en lien et en bleu, quand je clic sur la cellule le lien ne s'ouvre pas tout de suite, il faut que je double clic sur la cellule, que je descende sur la cellule suivante et que je revienne sur la cellule pour obtenir l'ouverture du document.
Avez-vous une solutuon à ce problème ?
Avec mes remerciements.
Mariejo
Je pensais avoir réglé le problème, mais non !
J'ai bien fait un copier/coller de la premiere cellule, dans la colone devant revoir les liens hypertextes.
Ceux-ci se mettent bien en lien et en bleu, quand je clic sur la cellule le lien ne s'ouvre pas tout de suite, il faut que je double clic sur la cellule, que je descende sur la cellule suivante et que je revienne sur la cellule pour obtenir l'ouverture du document.
Avez-vous une solutuon à ce problème ?
Avec mes remerciements.
Mariejo
