La macro ne marche avec l office 2003

[Marina01]

Bonjour forum,

J'ai un gros souci sur mon fichier, voilà, je travail habituellement mon fichier qui reste contenu dans une clé usb. En faisant copier/coller dans le disque dur, certaine macro ne marchent pas. C'est rageant!!!!

J'avais travaillé sur l office 2007 mais maintenant suis sur le 2003 avec XP SP2Que faire pour que toutes les macros marchent?

Merci d avance.

 

[tototiti2008]

Re : La macro ne marche avec l office 2003

Bonjour Marina,

il y a quelques différences en VBA entre les versions 2003 et 2007
sans plus de détail sur les macros en question, difficile à dire

 

[Marina01]

Re : La macro ne marche avec l office 2003

Que veux tu dire ? J ai du mal a comprendre. Est il possible que cela refonctionne ou pas ?

 

[tototiti2008]

Re : La macro ne marche avec l office 2003

Re,

sans doute en modifiant un peu le code, mais il faut que l'on voit le code, sinon on ne pourra pas t'aider

 

[pierrejean]

Re : La macro ne marche avec l office 2003

bonjour Marina01

Salut Tototiti

Poste un exemple de ton fichier ( sans données confidentielles) et on pourra peut-etre te proposer des modifications pour que tes macros tournent aussi bien sous 2003 que 2007

 

[Marina01]

Re : La macro ne marche avec l office 2003

Ok simplement pour vous donner un apercu. J ai un formulaire avec des options en feuil2, en cliquant dans une option j atteri en feuill1 et j 'ai des listes deroulantes et donc au clik de l'element contenu dans la liste une photo s y rapportant s affiche. Tout marche sauf l'affichage des photos en feuill1.

En feuil1 j'ai cela : pour la premiere liste deroulante

Private Sub ComboBox1_Change()

    
    On Error Resume Next
    
        Application.ScreenUpdating = False
   
    
    If ComboBox1 <> "" Then
    
        
        Image = rep1 & ComboBox1.Value & ".jpg"
        
        
        ActiveSheet.Shapes("Photo1").Fill.UserPicture Image 'Cadre 1
    End If
    
    [H21].Select

End Sub

Vous voyez ?

 

[Marina01]

Re : La macro ne marche avec l office 2003

Desolé en rep1, placer dans le formulaire 1

rep1 = ThisWorkbook.Path & "\Dossier1\Dossier2\"

Dans le module 1

Public rep1 As String

 

[tototiti2008]

Re : La macro ne marche avec l office 2003

Re,

en Excel 2003, je ne vois pas de méthode Fill sur les objets Shape
ça doit être une nouveauté 2007

 

[Marina01]

Re : La macro ne marche avec l office 2003

Oui quand j exploite le fichier avec la clé usb en utilisant l office 2003 ca marche bien. Et lorsque je copie le fichier dans le disque dur, et que je l exploite ca ne marche plus, du moins les photos ne affiche plus.

La rage!!!

 

[Marina01]

Re : La macro ne marche avec l office 2003

Je vais preparer un exemple concret en espérant que vous trouviez la solution.

 

[pierrejean]

Re : La macro ne marche avec l office 2003

Re

Question idiote:
As-tu bien importé egalement les jpg sur ton disque dur ?

 

[tototiti2008]

Re : La macro ne marche avec l office 2003

Salut PierreJean,

Mais non, ce n'est pas une question idiote

 

[Marina01]

Re : La macro ne marche avec l office 2003

J ai un gros dossiers et des sous dossiers dans lesquels se trouvent les photos. J'ai fait un copier/coller donc les jpg sont là. Ca me soule!!!!

 

[tototiti2008]

Re : La macro ne marche avec l office 2003

Re,

Bon, finalement j'ai testé en 2003 et
Fill.UserPicture Image
fonctionne bien chez moi...

peux-tu exécuter en pas à pas et vérifier ce que vaut la variable Image, et si ça correspond bien à l'adresse valide d'une de tes images ?

 

[Marina01]

Re : La macro ne marche avec l office 2003

Ca correspond bien aux adresses, d autant qu elle marche (la macro) quand j utilise la clé usb.