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 '
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil. Daniel "catochem" a écrit dans le message de news:
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut écrire les dimensions (en pixel) de l'image trouvée dans une autre colonne ?
Et merci encore, si vous ne me répondez pas à cette requête considérez quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" a écrit dans le message de news: %
Il faut que la cellule active active soit sur le premier nom de fichier. Si la colonne à droite de la cellule active est disponible, exécute le code suivant :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant '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 fich = Dir("F:Prodvisuels_2008" & Nom_Image) If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé" ActiveCell.Offset(1, 0).Select End If ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne trouve pas d'équivalence. Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et poste ici l'adresse générée. Daniel
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil.
Daniel
"catochem" <catochem@autocyclo.com> a écrit dans le message de news:
OlrGJ8FjIHA.6032@TK2MSFTNGP03.phx.gbl...
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi
m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut
écrire les dimensions (en pixel) de l'image trouvée dans une autre colonne
?
Et merci encore, si vous ne me répondez pas à cette requête considérez
quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23WqvYVFjIHA.4844@TK2MSFTNGP06.phx.gbl...
Il faut que la cellule active active soit sur le premier nom de fichier.
Si la colonne à droite de la cellule active est disponible, exécute le
code suivant :
Dim Nom_Image As Variant
Nom_Image = ActiveCell.Value
Dim comp As Variant
Dim Nom_fichier_image As Variant
'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
fich = Dir("F:Prodvisuels_2008" & Nom_Image)
If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé"
ActiveCell.Offset(1, 0).Select
End If
' la variable est initialisée avec la nouvelle valeur de la cellule
active
Nom_Image = ActiveCell.Value
Set Nom_fichier_image = Nothing
Loop
J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne
trouve pas d'équivalence.
Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et
poste ici l'adresse générée.
Daniel
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil. Daniel "catochem" a écrit dans le message de news:
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut écrire les dimensions (en pixel) de l'image trouvée dans une autre colonne ?
Et merci encore, si vous ne me répondez pas à cette requête considérez quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" a écrit dans le message de news: %
Il faut que la cellule active active soit sur le premier nom de fichier. Si la colonne à droite de la cellule active est disponible, exécute le code suivant :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant '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 fich = Dir("F:Prodvisuels_2008" & Nom_Image) If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé" ActiveCell.Offset(1, 0).Select End If ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne trouve pas d'équivalence. Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et poste ici l'adresse générée. Daniel
catochem
Ok Daniel, mission accomplie. Encore merci
"Daniel.C" a écrit dans le message de news: u$d$
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil. Daniel "catochem" a écrit dans le message de news:
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut écrire les dimensions (en pixel) de l'image trouvée dans une autre colonne ?
Et merci encore, si vous ne me répondez pas à cette requête considérez quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" a écrit dans le message de news: %
Il faut que la cellule active active soit sur le premier nom de fichier. Si la colonne à droite de la cellule active est disponible, exécute le code suivant :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant '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 fich = Dir("F:Prodvisuels_2008" & Nom_Image) If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé" ActiveCell.Offset(1, 0).Select End If ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne trouve pas d'équivalence. Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et poste ici l'adresse générée. Daniel
Ok Daniel, mission accomplie. Encore merci
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u$d$weGjIHA.4744@TK2MSFTNGP06.phx.gbl...
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil.
Daniel
"catochem" <catochem@autocyclo.com> a écrit dans le message de news:
OlrGJ8FjIHA.6032@TK2MSFTNGP03.phx.gbl...
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi
m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut
écrire les dimensions (en pixel) de l'image trouvée dans une autre
colonne ?
Et merci encore, si vous ne me répondez pas à cette requête considérez
quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23WqvYVFjIHA.4844@TK2MSFTNGP06.phx.gbl...
Il faut que la cellule active active soit sur le premier nom de fichier.
Si la colonne à droite de la cellule active est disponible, exécute le
code suivant :
Dim Nom_Image As Variant
Nom_Image = ActiveCell.Value
Dim comp As Variant
Dim Nom_fichier_image As Variant
'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
fich = Dir("F:Prodvisuels_2008" & Nom_Image)
If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé"
ActiveCell.Offset(1, 0).Select
End If
' la variable est initialisée avec la nouvelle valeur de la cellule
active
Nom_Image = ActiveCell.Value
Set Nom_fichier_image = Nothing
Loop
J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne
trouve pas d'équivalence.
Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et
poste ici l'adresse générée.
Daniel
C'est pas simple, ça, tu ferais mieux d'ouvrir un nouveau fil. Daniel "catochem" a écrit dans le message de news:
Daniel ! ça fonctionne, merci mille fois !
Si j'abuse dîtes le moi, mais tant que je vous tiens pouvez-vous aussi m'indiquer une autre macro (tjrs pour le même fichier excel) qui peut écrire les dimensions (en pixel) de l'image trouvée dans une autre colonne ?
Et merci encore, si vous ne me répondez pas à cette requête considérez quand même que vous avez fait une heureuse aujourd'hui.
"Daniel.C" a écrit dans le message de news: %
Il faut que la cellule active active soit sur le premier nom de fichier. Si la colonne à droite de la cellule active est disponible, exécute le code suivant :
Dim Nom_Image As Variant Nom_Image = ActiveCell.Value Dim comp As Variant Dim Nom_fichier_image As Variant '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 fich = Dir("F:Prodvisuels_2008" & Nom_Image) If fich <> "" 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(0, 1) = Nom_Image & "pas trouvé" ActiveCell.Offset(1, 0).Select End If ' la variable est initialisée avec la nouvelle valeur de la cellule active Nom_Image = ActiveCell.Value Set Nom_fichier_image = Nothing Loop J'inscris un "fichier x non trouvé" en face de ceux pour lequel je ne trouve pas d'équivalence. Si l'erreur persiste, mets un classeur exemple sur www.cjoint.com et poste ici l'adresse générée. Daniel
