Lien hypertexte - Contrôle d'existance du doc lié par execel
48 réponses
Mclain
Bonjour,
Je suis entrain de faire une base donn=E9es clients via Excel.
Je stock mes donn=E9es clients dans un fichier excel et les documents annex=
es dans un autre dossier. Les factures arrivent par mail et sont stock=E9es=
dans un dossier q:\fact_clients\
Les factures sont archiv=E9es au format N=B0Client_objet.doc
Dans ma base Excel, je fais un lien (par concatenation de la colonne A : N0=
client et de la colonne N "Objet" que je mets en lien hypertexte avec ajout=
du chemin de stockage sur ce dossier q:\fact_clients\N=B0Client_objet.doc.
La question, que je me pose : est-il possible de v=E9rifier que le lien est=
actif ou non, donc de savoir si le document facture est pr=E9sent, sans av=
oir =E0 cliquer sur ce lien hypertexe qui ne s'ouvrirait pas car le fichier=
facture n'aurait pas =E9t=E9 receptionn=E9 ?
Et la je bloque !
Je ne sais pas si je suis clair...j'esp=E8re!
Merci d'avance pour vos conseils et votre aide !
Si dans les colonnes i, j et k, tu fais une sélection multiple, tous les fichiers de cette sélection vont s'ouvrir. Au besoin, selon ta manière de travailler, on peut indiquer à la procédure de ne rien faire si la sélection est multiple... Une question de préférence!
Un dernier commentaire :
Si dans les colonnes i, j et k, tu fais une sélection multiple, tous les fichiers de cette
sélection vont s'ouvrir. Au besoin, selon ta manière de travailler, on peut indiquer à
la procédure de ne rien faire si la sélection est multiple... Une question de préférence!
Si dans les colonnes i, j et k, tu fais une sélection multiple, tous les fichiers de cette sélection vont s'ouvrir. Au besoin, selon ta manière de travailler, on peut indiquer à la procédure de ne rien faire si la sélection est multiple... Une question de préférence!
MichD
Une dernière version du fichier pour corriger une toute petite coquille... ;-) http://www.cjoint.com/c/EHAwrojZh1R
Une dernière version du fichier pour corriger une toute petite coquille... ;-)
http://www.cjoint.com/c/EHAwrojZh1R
J'espère que tu auras passé un excellent week.end.
Ma demande, concerne le lien hypertexte...le lien affiché n'est pas "cliq uable" facilement...peut-on l'améliorer. A l'utilisation, je reçois, une facture complémentaire en PDF ou doc, l a macro que je relance en manuelle ne permet pas toujours d'afficher le nou veau lien. En supprimant le N° client et en le ressaisissant cela fonctio nne...il m'affiche bien les deux doc... Si cela n'est pas possible, ce n'est pas grave tant ton aide m'a été im portante et me fais gagner du temps ! A bientôt en tout cas!
Mclain
Bonsoir MichD,
J'espère que tu auras passé un excellent week.end.
Ma demande, concerne le lien hypertexte...le lien affiché n'est pas "cliq uable" facilement...peut-on l'améliorer.
A l'utilisation, je reçois, une facture complémentaire en PDF ou doc, l a macro que je relance en manuelle ne permet pas toujours d'afficher le nou veau lien. En supprimant le N° client et en le ressaisissant cela fonctio nne...il m'affiche bien les deux doc...
Si cela n'est pas possible, ce n'est pas grave tant ton aide m'a été im portante et me fais gagner du temps !
A bientôt en tout cas!
J'espère que tu auras passé un excellent week.end.
Ma demande, concerne le lien hypertexte...le lien affiché n'est pas "cliq uable" facilement...peut-on l'améliorer. A l'utilisation, je reçois, une facture complémentaire en PDF ou doc, l a macro que je relance en manuelle ne permet pas toujours d'afficher le nou veau lien. En supprimant le N° client et en le ressaisissant cela fonctio nne...il m'affiche bien les deux doc... Si cela n'est pas possible, ce n'est pas grave tant ton aide m'a été im portante et me fais gagner du temps ! A bientôt en tout cas!
Mclain
MichD
Bonjour,
Une modification simple à effectuer... si tu un grand nombre de factures, cela risque d'être légèrement plus long, mais cela va se faire automatiquement dès l'ouverture du fichier ou manuellement en cliquant sur le bouton.
Pour faire ce que tu désires, ouvre l'éditeur de code d'Excel (raccourci clavier Alt + F11) et dans le module1, remplace la procédure par celle-ci :
'-------------------------------------------------------------------------- Sub Vérification_sur_Ouverture() Dim Rg As Range, C As Range, DerLig As Long
With Worksheets("Facture") DerLig = .Range("B65536").End(xlUp).Row Set Rg = .Range("B2:B" & DerLig) For Each C In Rg.Cells If C <> "" Then Call Check_Fichier(C) End If Next End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub '--------------------------------------------------------------------------
Une modification simple à effectuer... si tu un grand nombre de factures,
cela risque d'être légèrement plus long, mais cela va se faire
automatiquement
dès l'ouverture du fichier ou manuellement en cliquant sur le bouton.
Pour faire ce que tu désires, ouvre l'éditeur de code d'Excel (raccourci
clavier Alt + F11)
et dans le module1, remplace la procédure par celle-ci :
'--------------------------------------------------------------------------
Sub Vérification_sur_Ouverture()
Dim Rg As Range, C As Range, DerLig As Long
With Worksheets("Facture")
DerLig = .Range("B65536").End(xlUp).Row
Set Rg = .Range("B2:B" & DerLig)
For Each C In Rg.Cells
If C <> "" Then
Call Check_Fichier(C)
End If
Next
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------------------------------------------
Une modification simple à effectuer... si tu un grand nombre de factures, cela risque d'être légèrement plus long, mais cela va se faire automatiquement dès l'ouverture du fichier ou manuellement en cliquant sur le bouton.
Pour faire ce que tu désires, ouvre l'éditeur de code d'Excel (raccourci clavier Alt + F11) et dans le module1, remplace la procédure par celle-ci :
'-------------------------------------------------------------------------- Sub Vérification_sur_Ouverture() Dim Rg As Range, C As Range, DerLig As Long
With Worksheets("Facture") DerLig = .Range("B65536").End(xlUp).Row Set Rg = .Range("B2:B" & DerLig) For Each C In Rg.Cells If C <> "" Then Call Check_Fichier(C) End If Next End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub '--------------------------------------------------------------------------
