Ceci devrait aller, j'ai déclaré chacune des variables :
'---------------------------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
Dim N As Name, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each N In Application.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name & ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, _
ByVal Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
Dim Image As Object
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
.Width = Largeur - 0.01
'Hauteur de l'image
.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
43889cd9$0$25529$
Bonsoir michdenis,
j'ai essayer de mettre le prog. en application, j'obtient "erreur de
compilation" car
la variable "n" n'est pas définie.
Si j'ajoute Dim n as object ou variant cela continue mais alors
j'ai le meme message pour Rg.
si j'ajoute Dim Rg as object le programme saute de la ligne For Each n in
Application.Names
à End Sub.
J'ai bien mis l'adresse complete du fichier ( "c:Documents and
Settingrenemes documentsnomdefichier" )
que dois-je faire?
merci d'avance.La procédure pourrait ressembler à ceci :
A ) Tu dois renseigner la variable RepImage adéquatement.
B ) Comme tu veux pouvoir trier la plage de données incluant
les images, tu dois t'assurer que toutes les lignes de la plage
sont de la même hauteur avant de débuter... sinon ce ne sera
pas très beau après le tri. ;-) Tu aurais alors besoin d'une autre
procédure pour replacer les images.
C ) Les bornes de l'image doivent être totalement à l'intérieur de la
cellule. Dans la procédure :"InsérerImage", j'ai enlevé .01 à la
grandeur de l'image pour cette raison....à tester sa véritable
nécessité !
'----------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each n In Application.Names
Set Rg = Range(n.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(n.Name, 4)) <> ".jpg" Then
Img = RepImage & n.Name & ".jpg"
Else
Img = RepImage & n.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, ByVal Rg As Range, NomImage As
String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
Image.Width = Largeur - 0.01
'Hauteur de l'image
Image.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Ceci devrait aller, j'ai déclaré chacune des variables :
'---------------------------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
Dim N As Name, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each N In Application.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name & ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, _
ByVal Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
Dim Image As Object
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
.Width = Largeur - 0.01
'Hauteur de l'image
.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
43889cd9$0$25529$ba620e4c@news.skynet.be...
Bonsoir michdenis,
j'ai essayer de mettre le prog. en application, j'obtient "erreur de
compilation" car
la variable "n" n'est pas définie.
Si j'ajoute Dim n as object ou variant cela continue mais alors
j'ai le meme message pour Rg.
si j'ajoute Dim Rg as object le programme saute de la ligne For Each n in
Application.Names
à End Sub.
J'ai bien mis l'adresse complete du fichier ( "c:Documents and
Settingrenemes documentsnomdefichier" )
que dois-je faire?
merci d'avance.
La procédure pourrait ressembler à ceci :
A ) Tu dois renseigner la variable RepImage adéquatement.
B ) Comme tu veux pouvoir trier la plage de données incluant
les images, tu dois t'assurer que toutes les lignes de la plage
sont de la même hauteur avant de débuter... sinon ce ne sera
pas très beau après le tri. ;-) Tu aurais alors besoin d'une autre
procédure pour replacer les images.
C ) Les bornes de l'image doivent être totalement à l'intérieur de la
cellule. Dans la procédure :"InsérerImage", j'ai enlevé .01 à la
grandeur de l'image pour cette raison....à tester sa véritable
nécessité !
'----------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each n In Application.Names
Set Rg = Range(n.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(n.Name, 4)) <> ".jpg" Then
Img = RepImage & n.Name & ".jpg"
Else
Img = RepImage & n.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, ByVal Rg As Range, NomImage As
String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
Image.Width = Largeur - 0.01
'Hauteur de l'image
Image.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Ceci devrait aller, j'ai déclaré chacune des variables :
'---------------------------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
Dim N As Name, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each N In Application.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name & ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, _
ByVal Rg As Range, NomImage As String)
Dim Largeur As Double, Hauteur As Double
Dim Image As Object
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
.Width = Largeur - 0.01
'Hauteur de l'image
.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
43889cd9$0$25529$
Bonsoir michdenis,
j'ai essayer de mettre le prog. en application, j'obtient "erreur de
compilation" car
la variable "n" n'est pas définie.
Si j'ajoute Dim n as object ou variant cela continue mais alors
j'ai le meme message pour Rg.
si j'ajoute Dim Rg as object le programme saute de la ligne For Each n in
Application.Names
à End Sub.
J'ai bien mis l'adresse complete du fichier ( "c:Documents and
Settingrenemes documentsnomdefichier" )
que dois-je faire?
merci d'avance.La procédure pourrait ressembler à ceci :
A ) Tu dois renseigner la variable RepImage adéquatement.
B ) Comme tu veux pouvoir trier la plage de données incluant
les images, tu dois t'assurer que toutes les lignes de la plage
sont de la même hauteur avant de débuter... sinon ce ne sera
pas très beau après le tri. ;-) Tu aurais alors besoin d'une autre
procédure pour replacer les images.
C ) Les bornes de l'image doivent être totalement à l'intérieur de la
cellule. Dans la procédure :"InsérerImage", j'ai enlevé .01 à la
grandeur de l'image pour cette raison....à tester sa véritable
nécessité !
'----------------------
Sub TestMonImage()
Dim Img As String
Dim RepImage As String
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
On Error Resume Next
For Each n In Application.Names
Set Rg = Range(n.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(n.Name, 4)) <> ".jpg" Then
Img = RepImage & n.Name & ".jpg"
Else
Img = RepImage & n.Name
End If
If Dir(Img) <> "" Then
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------
Sub InsérerImage(Feuille As String, ByVal Rg As Range, NomImage As
String)
With Worksheets(Feuille)
Largeur = Rg.Offset(, 1)(, Rg.Columns.Count).Left - Rg.Left
Hauteur = Rg.Offset(Rg.Rows.Count).Top - Rg(1).Top
Set Image = .Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left + 0.01
.Top = Rg.Top + 0.01
'Largeur de l'image
Image.Width = Largeur - 0.01
'Hauteur de l'image
Image.Height = Hauteur - 0.01
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlMove 'orxlFreeFloating or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing
End Sub
'---------------------------------------
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388ccd2$0$1304$ba620e4c@news.skynet.be...
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
René
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388ccd2$0$1304$ba620e4c@news.skynet.be...
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
René
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388d5a2$0$9935$ba620e4c@news.skynet.be...
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OI7$z4s8FHA.3416@TK2MSFTNGP15.phx.gbl...
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388ccd2$0$1304$ba620e4c@news.skynet.be...
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
René
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388d5a2$0$9935$ba620e4c@news.skynet.be...
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OI7$z4s8FHA.3416@TK2MSFTNGP15.phx.gbl...
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388ccd2$0$1304$ba620e4c@news.skynet.be...
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
René
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Pour insérer dans la cellule à droite de l'image le nom de l'image ,
tu ajoutes une ligne de code :
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Et si le nom de s'inscrire dans la cellule de gauche de l'image ,
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388da68$0$27476$
Je m'explique mal,
Mathieu ,c'est le nom auquel correspond une photo " Mathieu.jpg "dans un
répertoire.
Je veux accoler la photo dans une cellule sur la même ligne que le nom
Mathieu.
Et par la suite trier la feuille, sur différents critères, mais je veux
que
les photos restent en ligne avec les noms.
Si je dois introduire les noms de chaque image manuellement dans les
cellules je risque pas mal d'erreur, c'est pourquoi je demandais si cela
etait réalisable en auto ou si il est possible d'utiliser les noms déjà
dans
les cellules.
Mais je vais te laisser aller dormir, je ne veux pas te tenir plus
longtemps, tu m'as déjà bien aider.
un grand merci
RenéJe n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par
nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci
pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Pour insérer dans la cellule à droite de l'image le nom de l'image ,
tu ajoutes une ligne de code :
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Et si le nom de s'inscrire dans la cellule de gauche de l'image ,
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388da68$0$27476$ba620e4c@news.skynet.be...
Je m'explique mal,
Mathieu ,c'est le nom auquel correspond une photo " Mathieu.jpg "dans un
répertoire.
Je veux accoler la photo dans une cellule sur la même ligne que le nom
Mathieu.
Et par la suite trier la feuille, sur différents critères, mais je veux
que
les photos restent en ligne avec les noms.
Si je dois introduire les noms de chaque image manuellement dans les
cellules je risque pas mal d'erreur, c'est pourquoi je demandais si cela
etait réalisable en auto ou si il est possible d'utiliser les noms déjà
dans
les cellules.
Mais je vais te laisser aller dormir, je ne veux pas te tenir plus
longtemps, tu m'as déjà bien aider.
un grand merci
René
Je n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388d5a2$0$9935$ba620e4c@news.skynet.be...
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OI7$z4s8FHA.3416@TK2MSFTNGP15.phx.gbl...
Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" <mathieu.rene@skynet.be> a écrit dans le message de news:
4388ccd2$0$1304$ba620e4c@news.skynet.be...
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par
nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci
pour
ce
que tu as déjà donné.
René
Copie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
Pour insérer dans la cellule à droite de l'image le nom de l'image ,
tu ajoutes une ligne de code :
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Et si le nom de s'inscrire dans la cellule de gauche de l'image ,
If Dir(Img) <> "" Then
Application.EnableEvents = False 'ligne à ajouter
Rg.Offset(, 1) = Img 'ligne à ajouter
Application.EnableEvents = True 'ligne à ajouter
InsérerImage Rg.Parent.Name, Rg, Img
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388da68$0$27476$
Je m'explique mal,
Mathieu ,c'est le nom auquel correspond une photo " Mathieu.jpg "dans un
répertoire.
Je veux accoler la photo dans une cellule sur la même ligne que le nom
Mathieu.
Et par la suite trier la feuille, sur différents critères, mais je veux
que
les photos restent en ligne avec les noms.
Si je dois introduire les noms de chaque image manuellement dans les
cellules je risque pas mal d'erreur, c'est pourquoi je demandais si cela
etait réalisable en auto ou si il est possible d'utiliser les noms déjà
dans
les cellules.
Mais je vais te laisser aller dormir, je ne veux pas te tenir plus
longtemps, tu m'as déjà bien aider.
un grand merci
RenéJe n'ai rien compris !
Qu'est-ce que tu veux faire avec Mathieu ? Et pourquoi vouloir y ajouter
l'extension du fichier ?
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388d5a2$0$9935$
En fait, j'ai les noms + d'autres infos liées dans le tableur, et je veux
y
insérer les photos comme
un album de famille.
Exemple:
|...A1..|..........B1...........|........C1......|....D1...|
René | Mathieu | Bruxelles | Photo| photo à insérer en D1
ajouter ".jpg" au nom est facile avec la fonction "&".
c'est pour cela que je me demande comment utiliser Mathieu.jpg pour
l'utiliser comme nom dans le
le module TestMonImage
"michdenis" a écrit dans le message de news:
OI7$Si je comprends bien, tu voudrais avoir dans une colonne, la liste de
tous
les noms de ton classeur qui sont associés à une image
dans une feuille donnée.
A )
Dans cette procédure générale que je te soumets, tu dois adapter le nom
de
la feuille
et la colonne où tu veux que les noms s'inscrivent :
'---------------
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
'---------------
B ) Si tu as un certain nombre de "NOM" dans ton classeur qui ne
reprsésente pas des images à insérer, je te suggère d'effacer ce
bout de code dans la procédure, elle va seulement alourdir le
déroulement.
'--------------------
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
'------------------------
Voici la procédure à adapter ...
'----------------------------------
Sub TestMonImage()
Dim Img As String, A As Integer
Dim RepImage As String
Dim N As Variant, Rg As Range
'Répertoire où sont les images
'Ne pas oublier le symbole "backlash"
RepImage = "c:windows" 'à déterminer
Application.ScreenUpdating = False
On Error Resume Next
For Each N In ThisWorkbook.Names
Set Rg = Range(N.Name)
If Err <> 0 Then
Err = 0
Else
If LCase(Right(N.Name, 4)) <> ".jpg" Then
Img = RepImage & N.Name '& ".jpg"
Else
Img = RepImage & N.Name
End If
If Dir(Img) <> "" Then
With Worksheets("Feuil1") 'à déterminer
A = A + 1
Application.EnableEvents = False
.Range("A" & A) = N.Name
Application.EnableEvents = True
End With
InsérerImage Rg.Parent.Name, Rg, Img
Else
MsgBox "Ce fichier image n'existe pas : " & _
vbCrLf & Img
End If
End If
Next
End Sub
'----------------------------------
Salutations!
"René MATHIEU" a écrit dans le message de news:
4388ccd2$0$1304$
Youpee, ça fonctionne bien avec un tableau test, et je peux trier avec
les
colonnes adjacentes.
reste un problème, comment introduire les noms dans les cellules
d'arrivées,
ils se trouvent déjà dans une colonne de la feuille.
Y a t'il un moyen auto pour les utiliser sans les introduire nom par
nom,
j'en ai +/- 300 a mettre.
Bon, c'est faisable mais tant qu'on y est.
je demande beaucoup de ton temps, de toute façon un tout grand merci
pour
ce
que tu as déjà donné.
RenéCopie les 2 procédures dans un module standard du classeur où elles
doivent insérer les images.
Modifie cette ligne de code
For Each N In Application.Names
Pour ceci :
For Each N In ThisWorkbook.Names
