Erreur d'execution VBA Fermé

Question

Bonjour,

Je rencontre des difficultés à activer une macro sur d'autres postes.
Je m'explique : une macro a été crée sur un poste. Cette macro fonctionne correctement sur ce meme poste. Lors de l'envoi du fichier avec la meme macro sur un autre poste, cette derniere ne s'active plus.
Auriez vous une idée ? Merci d'avance! :)

Private Sub Workbook_Open()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\Excel + PowerPoint\1.jpg"
Gauche = Range("D21:F21").Left
Sommet = Range("D21:F21").Top
Largeur = Range("D21:F21").Width
Hauteur = Range("D21:F21").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\Excel + PowerPoint\2.jpg"
Gauche = Range("J21").Left
Sommet = Range("J21").Top
Largeur = Range("J21").Width
Hauteur = Range("J21").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\1.JPG"
Gauche = Range("D8:16").Left
Sommet = Range("D8:D16").Top
Largeur = Range("D8:D16").Width
Hauteur = Range("D8:D16").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\2.JPG"
Gauche = Range("F8:G16").Left
Sommet = Range("F8:G16").Top
Largeur = Range("F8:G16").Width
Hauteur = Range("F8:G16").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\3.JPG"
Gauche = Range("D18:D26").Left
Sommet = Range("D18:D26").Top
Largeur = Range("D18:D26").Width
Hauteur = Range("D18:D26").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\1.JPG"
Gauche = Range("D8:D16").Left
Sommet = Range("D8:D16").Top
Largeur = Range("D8:D16").Width
Hauteur = Range("D8:D16").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\2.JPG"
Gauche = Range("F8:G16").Left
Sommet = Range("F8:G16").Top
Largeur = Range("F8:G16").Width
Hauteur = Range("F8:G16").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\3.JPG"
Gauche = Range("D18:D26").Left
Sommet = Range("D18:D26").Top
Largeur = Range("D18:D26").Width
Hauteur = Range("D18:D26").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

End Sub

jordane45 · Answer

Bonjour,

Première chose.... il semble que tu aies dans ta macro .. des chemins en dur vers des fichiers
C:\Users\NZDT2941\Desktop\
... si ces chemins n'existent pas sur l'autre poste.. normal que ça ne marche pas.

Ensuite, si le souci est pûrement le lancement de la macro... as tu vérifier que l'exécution des macros est activée sur les autres ordi ?


PS: A l'avenir, merci d'utiliser les balises de code pour poster ton code sur le forum :https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Patrice33740 · Answer

Bonjour ReAd-21, Bonjour Jordane Le test suivant ne fonctionne pas (toujours vrai) : If Photo <> False Then A remplacer par : If Dir(Photo) <> "" Then Cordialement Patrice

Erreur d'execution VBA

2 réponses

Discussions similaires