Macro ok pour 2003 mais pas 2007

[jojodanslalune]

Bonjour,

J'ai une macro qui marche tu tonnerre sous Excel 2003: elle insère une photo dans une cellule automatiquement;

Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(sel, Range("D8")) Is Nothing Then ' remplacer B1 par la cellule de saisie du numéro
    Dim rep As String
    rep = "C:\Users\Vincent\Pictures\École\Vincent-Marie\03 septembre 2007\"  ' remplacer par le chemin du répertoire photos

    With Sheets("Français") ' remplacer Français par nom de la feuille où l'on insère la photo
        .Activate
        .Range("C1").Select ' remplacer C1 par nom de la cellule où l'on insère la photo
        Dim photo As Object ' declaration variable image
        For Each photo In ActiveSheet.DrawingObjects ' boucle pour tous les objets
            If ActiveCell.Address = photo.TopLeftCell.Address Then
                photo.Delete ' on efface la photo précédente
            End If
        Next
        If Dir(rep & .Range("F2").Value & ".JPG") = "" Then
            .Range("C1").Value = "Pas de photo" ' test existance photo éléve
            MsgBox ("photo inexistante") ' ligne à supprimer pouréviter le message erreur
            Exit Sub
        End If
        .Pictures.Insert (rep & .Range("F2").Value & ".JPG")
    End With      ' remplacer F2 par nom de la cellule où l'on trouve le prénom

End If
End Sub

Malheureusement, sous Excel 2007, cela ne marche pas du tout !!!!

Quelqu'un sait-il pourquoi?

Ma question fait suite au post suivant: https://www.excel-downloads.com/threads/photomaton.81223/

 

[MichelXld]

Re : Macro ok pour 2003 mais pas 2007

bonjour

La procédure fonctionne chez moi.
Quel est le message d'erreur ? et sur quelle ligne ?


Bonne soirée
MichelXld