Bonjour à tous,
je viens vous demander de l'aide concernant une erreur dût à un fichier
introuvable.
Je m'explique, je créé un commentaire contenant une image, j'ai essayer
d'ajouter une petite routine qui verifier l'existance du fichier avant
d'ajouter le commentaire.
Si le fichier existe, le commentaire est ajouter auquel cas je passe mon
chemin sur la ligne suivante.
Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch
With fs
'LookIn = "\\X225\PLAN\"
FileName = "" & noplan + ".bmp"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"\\X225\PLAN\" & noplan + ".bmp"
J'ai donc supprimer cette verification pensent qu'il devait y avoir un moyen
de gerer l'erreur 9 directement.
Quelqu'un aurait il une idéee pour accelerer cette procedure ? pour info
c'est sous 97.
par ligne la verif prend 2-3 s, sachant que je peux avoir une centaine de
ligne, je vous laisse imaginer la tete de l'utilisateur final lorsque son pc
vas aller chercher les infos.
Merci par avance et j'attend avec impatiente vos propositions.
Bonjour à tous, je viens vous demander de l'aide concernant une erreur dût à un fichier introuvable. Je m'explique, je créé un commentaire contenant une image, j'ai essayer d'ajouter une petite routine qui verifier l'existance du fichier avant d'ajouter le commentaire. Si le fichier existe, le commentaire est ajouter auquel cas je passe mon chemin sur la ligne suivante. Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch With fs 'LookIn = "X225PLAN" FileName = "" & noplan + ".bmp" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "X225PLAN" & noplan + ".bmp"
J'ai donc supprimer cette verification pensent qu'il devait y avoir un moyen de gerer l'erreur 9 directement. Quelqu'un aurait il une idéee pour accelerer cette procedure ? pour info c'est sous 97.
par ligne la verif prend 2-3 s, sachant que je peux avoir une centaine de ligne, je vous laisse imaginer la tete de l'utilisateur final lorsque son pc vas aller chercher les infos.
Merci par avance et j'attend avec impatiente vos propositions.
Bonjour à tous,
je viens vous demander de l'aide concernant une erreur dût à un fichier
introuvable.
Je m'explique, je créé un commentaire contenant une image, j'ai essayer
d'ajouter une petite routine qui verifier l'existance du fichier avant
d'ajouter le commentaire.
Si le fichier existe, le commentaire est ajouter auquel cas je passe mon
chemin sur la ligne suivante.
Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch
With fs
'LookIn = "\X225PLAN"
FileName = "" & noplan + ".bmp"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"\X225PLAN" & noplan + ".bmp"
J'ai donc supprimer cette verification pensent qu'il devait y avoir un moyen
de gerer l'erreur 9 directement.
Quelqu'un aurait il une idéee pour accelerer cette procedure ? pour info
c'est sous 97.
par ligne la verif prend 2-3 s, sachant que je peux avoir une centaine de
ligne, je vous laisse imaginer la tete de l'utilisateur final lorsque son pc
vas aller chercher les infos.
Merci par avance et j'attend avec impatiente vos propositions.
Bonjour à tous, je viens vous demander de l'aide concernant une erreur dût à un fichier introuvable. Je m'explique, je créé un commentaire contenant une image, j'ai essayer d'ajouter une petite routine qui verifier l'existance du fichier avant d'ajouter le commentaire. Si le fichier existe, le commentaire est ajouter auquel cas je passe mon chemin sur la ligne suivante. Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch With fs 'LookIn = "X225PLAN" FileName = "" & noplan + ".bmp" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "X225PLAN" & noplan + ".bmp"
J'ai donc supprimer cette verification pensent qu'il devait y avoir un moyen de gerer l'erreur 9 directement. Quelqu'un aurait il une idéee pour accelerer cette procedure ? pour info c'est sous 97.
par ligne la verif prend 2-3 s, sachant que je peux avoir une centaine de ligne, je vous laisse imaginer la tete de l'utilisateur final lorsque son pc vas aller chercher les infos.
Merci par avance et j'attend avec impatiente vos propositions.
Micky
Fuentes Mickael
Ca fonctionne tres bien avec :
On Error Resume Next
il poursuit le script apres l'erreur, c'est le top. merci Micky
"Fuentes Mickael" a écrit dans le message de news:
Bonjour à tous, je viens vous demander de l'aide concernant une erreur dût à un fichier introuvable. Je m'explique, je créé un commentaire contenant une image, j'ai essayer d'ajouter une petite routine qui verifier l'existance du fichier avant d'ajouter le commentaire. Si le fichier existe, le commentaire est ajouter auquel cas je passe mon chemin sur la ligne suivante. Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch With fs 'LookIn = "X225PLAN" FileName = "" & noplan + ".bmp" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "X225PLAN" & noplan + ".bmp"
J'ai donc supprimer cette verification pensent qu'il devait y avoir un
moyen
de gerer l'erreur 9 directement. Quelqu'un aurait il une idéee pour accelerer cette procedure ? pour info c'est sous 97.
par ligne la verif prend 2-3 s, sachant que je peux avoir une centaine de ligne, je vous laisse imaginer la tete de l'utilisateur final lorsque son
pc
vas aller chercher les infos.
Merci par avance et j'attend avec impatiente vos propositions.
Micky
Ca fonctionne tres bien avec :
On Error Resume Next
il poursuit le script apres l'erreur, c'est le top.
merci
Micky
"Fuentes Mickael" <mickael_fuentes@pgep.fr> a écrit dans le message de
news:ungyS9AOJHA.584@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je viens vous demander de l'aide concernant une erreur dût à un fichier
introuvable.
Je m'explique, je créé un commentaire contenant une image, j'ai essayer
d'ajouter une petite routine qui verifier l'existance du fichier avant
d'ajouter le commentaire.
Si le fichier existe, le commentaire est ajouter auquel cas je passe mon
chemin sur la ligne suivante.
Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch
With fs
'LookIn = "\X225PLAN"
FileName = "" & noplan + ".bmp"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"\X225PLAN" & noplan + ".bmp"
il poursuit le script apres l'erreur, c'est le top. merci Micky
"Fuentes Mickael" a écrit dans le message de news:
Bonjour à tous, je viens vous demander de l'aide concernant une erreur dût à un fichier introuvable. Je m'explique, je créé un commentaire contenant une image, j'ai essayer d'ajouter une petite routine qui verifier l'existance du fichier avant d'ajouter le commentaire. Si le fichier existe, le commentaire est ajouter auquel cas je passe mon chemin sur la ligne suivante. Ce precess fonctionne tres bien, mais c'est super lentttttttttt !!!!!!!
Set fs = Application.FileSearch With fs 'LookIn = "X225PLAN" FileName = "" & noplan + ".bmp" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "X225PLAN" & noplan + ".bmp"