Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007,
Application.FileSearch n'est plus reconnu, savez-vous comment détourner le
problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à
chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et de
passer à la cellule suivante :
Dim Nom_Image As Variant
Nom_Image = ActiveCell.Value
Dim comp As Variant
Dim Nom_fichier_image As Variant
Nom_fichier_image = Application.FileSearch.Filename
'Déclaration de la variable récupérant le texte de la cellule pour aller
chercher l'image correspondante
' Exécute la boucle jusqu'à la première cellule vide
Do Until Nom_Image = ""
' la variable sera égale à la valeur de la cellule active
With Application.FileSearch
.RefreshScopes
.NewSearch
.LookIn = "F:\Prod\visuels_2008"
.SearchSubFolders = False
.Filename = Nom_Image
.MatchTextExactly = True
If .Execute > 0 Then
With ActiveCell
.Hyperlinks.Add .Range("A1"), "F:\Prod\visuels_2008\" &
Nom_Image
'Se déplace d'une cellule vers le bas pour continuer le
traitement
ActiveCell.Offset(1, 0).Select
End With
Else
ActiveCell.Offset(1, 0).Select
End If
End With
' la variable est initialisée avec la nouvelle valeur de la cellule active
Nom_Image = ActiveCell.Value
Set Nom_fichier_image = Nothing
Loop
'
End Sub '
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Le forum Excel en langue française aurait été mieux indiqué, le sujet y a été évoqué.
-- A+
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007,
Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Le forum Excel en langue française aurait été mieux indiqué, le sujet y
a été évoqué.
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Le forum Excel en langue française aurait été mieux indiqué, le sujet y a été évoqué.
-- A+
catochem
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" a écrit dans le message de news: %
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et de passer à la cellule suivante :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant Nom_fichier_image = Application.FileSearch.Filename 'Déclaration de la variable récupérant le texte de la cellule pour aller chercher l'image correspondante ' Exécute la boucle jusqu'à la première cellule vide Do Until Nom_Image = "" ' la variable sera égale à la valeur de la cellule active With Application.FileSearch .RefreshScopes .NewSearch .LookIn = "F:Prodvisuels_2008" .SearchSubFolders = False .Filename = Nom_Image .MatchTextExactly = True If .Execute > 0 Then With ActiveCell .Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" & Nom_Image 'Se déplace d'une cellule vers le bas pour continuer le traitement ActiveCell.Offset(1, 0).Select End With Else ActiveCell.Offset(1, 0).Select End If End With ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop ' End Sub '
Merci pour votre aide Catochem
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" <catochem@autocyclo.com> a écrit dans le message de news:
%23ykvK6AjIHA.5956@TK2MSFTNGP03.phx.gbl...
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007,
Application.FileSearch n'est plus reconnu, savez-vous comment détourner le
problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à
chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et
de passer à la cellule suivante :
Dim Nom_Image As Variant
Nom_Image = ActiveCell.Value
Dim comp As Variant
Dim Nom_fichier_image As Variant
Nom_fichier_image = Application.FileSearch.Filename
'Déclaration de la variable récupérant le texte de la cellule pour aller
chercher l'image correspondante
' Exécute la boucle jusqu'à la première cellule vide
Do Until Nom_Image = ""
' la variable sera égale à la valeur de la cellule active
With Application.FileSearch
.RefreshScopes
.NewSearch
.LookIn = "F:Prodvisuels_2008"
.SearchSubFolders = False
.Filename = Nom_Image
.MatchTextExactly = True
If .Execute > 0 Then
With ActiveCell
.Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" &
Nom_Image
'Se déplace d'une cellule vers le bas pour continuer le
traitement
ActiveCell.Offset(1, 0).Select
End With
Else
ActiveCell.Offset(1, 0).Select
End If
End With
' la variable est initialisée avec la nouvelle valeur de la cellule active
Nom_Image = ActiveCell.Value
Set Nom_fichier_image = Nothing
Loop
'
End Sub '
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" a écrit dans le message de news: %
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et de passer à la cellule suivante :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant Nom_fichier_image = Application.FileSearch.Filename 'Déclaration de la variable récupérant le texte de la cellule pour aller chercher l'image correspondante ' Exécute la boucle jusqu'à la première cellule vide Do Until Nom_Image = "" ' la variable sera égale à la valeur de la cellule active With Application.FileSearch .RefreshScopes .NewSearch .LookIn = "F:Prodvisuels_2008" .SearchSubFolders = False .Filename = Nom_Image .MatchTextExactly = True If .Execute > 0 Then With ActiveCell .Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" & Nom_Image 'Se déplace d'une cellule vers le bas pour continuer le traitement ActiveCell.Offset(1, 0).Select End With Else ActiveCell.Offset(1, 0).Select End If End With ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop ' End Sub '
Merci pour votre aide Catochem
catochem
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" a écrit dans le message de news: %
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et de passer à la cellule suivante :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant Nom_fichier_image = Application.FileSearch.Filename 'Déclaration de la variable récupérant le texte de la cellule pour aller chercher l'image correspondante ' Exécute la boucle jusqu'à la première cellule vide Do Until Nom_Image = "" ' la variable sera égale à la valeur de la cellule active With Application.FileSearch .RefreshScopes .NewSearch .LookIn = "F:Prodvisuels_2008" .SearchSubFolders = False .Filename = Nom_Image .MatchTextExactly = True If .Execute > 0 Then With ActiveCell .Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" & Nom_Image 'Se déplace d'une cellule vers le bas pour continuer le traitement ActiveCell.Offset(1, 0).Select End With Else ActiveCell.Offset(1, 0).Select End If End With ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop ' End Sub '
Merci pour votre aide Catochem
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" <catochem@autocyclo.com> a écrit dans le message de news:
%23ykvK6AjIHA.5956@TK2MSFTNGP03.phx.gbl...
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007,
Application.FileSearch n'est plus reconnu, savez-vous comment détourner le
problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à
chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et
de passer à la cellule suivante :
Dim Nom_Image As Variant
Nom_Image = ActiveCell.Value
Dim comp As Variant
Dim Nom_fichier_image As Variant
Nom_fichier_image = Application.FileSearch.Filename
'Déclaration de la variable récupérant le texte de la cellule pour aller
chercher l'image correspondante
' Exécute la boucle jusqu'à la première cellule vide
Do Until Nom_Image = ""
' la variable sera égale à la valeur de la cellule active
With Application.FileSearch
.RefreshScopes
.NewSearch
.LookIn = "F:Prodvisuels_2008"
.SearchSubFolders = False
.Filename = Nom_Image
.MatchTextExactly = True
If .Execute > 0 Then
With ActiveCell
.Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" &
Nom_Image
'Se déplace d'une cellule vers le bas pour continuer le
traitement
ActiveCell.Offset(1, 0).Select
End With
Else
ActiveCell.Offset(1, 0).Select
End If
End With
' la variable est initialisée avec la nouvelle valeur de la cellule active
Nom_Image = ActiveCell.Value
Set Nom_fichier_image = Nothing
Loop
'
End Sub '
Désolée, je n'ai pas bien regardé, rappellez vous le lien du sujet ?
"catochem" a écrit dans le message de news: %
Bonjour,
Ma macro créee sous Excel 2002 ne fonctionne plus avec Office 2007, Application.FileSearch n'est plus reconnu, savez-vous comment détourner le problème ?
Voici la macro, son principe est de créeer un lien hypertexte dans Excel à chaque fois qu'un fichier image.jpg est reconnu dans un dossier connu et de passer à la cellule suivante :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant Nom_fichier_image = Application.FileSearch.Filename 'Déclaration de la variable récupérant le texte de la cellule pour aller chercher l'image correspondante ' Exécute la boucle jusqu'à la première cellule vide Do Until Nom_Image = "" ' la variable sera égale à la valeur de la cellule active With Application.FileSearch .RefreshScopes .NewSearch .LookIn = "F:Prodvisuels_2008" .SearchSubFolders = False .Filename = Nom_Image .MatchTextExactly = True If .Execute > 0 Then With ActiveCell .Hyperlinks.Add .Range("A1"), "F:Prodvisuels_2008" & Nom_Image 'Se déplace d'une cellule vers le bas pour continuer le traitement ActiveCell.Offset(1, 0).Select End With Else ActiveCell.Offset(1, 0).Select End If End With ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop ' End Sub '
