Code ok sur mon PC mais pas chez les autres ?

[catherineFR27]

Bonjour,

Dans un document Word, j'ai écrit plusieurs procédures, dont une qui écrit dans un fichier Excel.
Mon problème est le suivant : mon code fonctionne bien sur mon poste, mais pas sur celui des autres utilisateurs.

Une erreur se produit sur une bête et banale ligne :

Code :

1
2
3
4
   With xlApp
        .Workbooks("monclasseur.xls").Worksheets("mafeuille").Select
        .Range(MonAddress).Activate 'PLANTAGE ICI
   End with

(la variable MonAddress de type Str contient "G12").

L'erreur est "Erreur d'exécution 1004 : La méthode 'Range' de l'objet '_Application' a échoué."

Je ne parviens pas à trouver pourquoi cela fonctionne sur mon poste et pas chez les autres. J'ai cherché du côté des Références dans le menu Outils/Références, mais celles-ci semblent associées au fichier Word, elles sont actives sur les postes des autres utilisateurs lors de l'ouverture du document.

J'ai vérifié du côté des macros complémentaires installées dans Excel, mais même après avoir activé chez un autre utilisateur l'"Analysis tool-pak - VBA" qui est active sur mon PC, le problème est toujours là.

Merci de votre aide,

Catherine

[SilkyRoad]

bonsoir

Tu peux essayer

Code :

1
2
3
4
With xlApp.Workbooks("monclasseur.xls").Worksheets("mafeuille")
    .Select
    .Range(MonAddress).Activate
End With

michel

[catherineFR27]

Merci de ta réponse.

Ta proposition ne solutionne pas le problème : j'ai maintenant un message d'erreur 'Erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet.'

Je vais essayer d'exécuter un morceau de code semblable directement depuis Excel pour voir si ça fonctionne...

Catherine

[catherineFR27]

J'ai transposé le code directement dans Excel (sous le compte d'un utilisateur chez qui ça ne fonctionne pas correctement), et ça fonctionne bien.
Je poursuis mes recherches !

[Maxence HUBICHE]

Bizarre ça !

Code :

1
2
3
4
5
6
7
8
9
 
    Dim xlWkb as Excel.Workbook
    Set xlWkb = xlApp.Workbooks("monclasseur.xls").Worksheets("mafeuille")
 
    With xlWkb
        .Select
        Debug.Print MonAdresse & vbtab & TypeName(Monadresse)
        .Range(MonAddress).Select
    End with

ensuite, regarde ce qui est inscrit dans la fenêtre exécution (CTRL+G)

[catherineFR27]

Bonjour !

Envoyé par Maxence HUBICHE

Bizarre ça !
...
Debug.Print MonAdresse & vbtab & TypeName(Monadresse)
...
ensuite, regarde ce qui est inscrit dans la fenêtre exécution (CTRL+G)

ça donne I10 String

J'ai fini par trouver ce qui cloche :

Dans mon code je fais appel à Excel mais sans l'afficher (xlapp.visible = false), afin que l'utilisateur ne puisse pas agir accidentellement sur le fichier utilisé par la macro. Et c'est ça qui gène...

J'ai ajouté dans mon code :

Code :

1
2
     xlapp.visible = true
     xlapp.windows("MonClasseur").visible = true

et là tout baigne.

J'ai juste eu du mal à identifier le problème car en phase de tests j'affichais quasi systématiquement (manuellement) l'application pour suivre le déroulement...
Par contre je ne saisis toujours pas pourquoi ça fonctionnait sur mon pc et pas chez les autres... j'ai re-testé ce matin sur mon poste et l'erreur s'est produite, j'ai du louper qqchose... Strange !

Maintenant, puisqu'il faut qu'Excel soit visible, il faut que je trouve le moyen de laisser au premier plan ma progress bar (Userform) afin que l'utilisateur ne touche à rien... Or une progressbar ne peut pas être modale sinon ça bloque le code en arrière plan.
Je vais tester si un simple application.screenupdating suffit !

Merci de vos contributions !

[Maxence HUBICHE]

Dans ce cas, essaie d'utiliser Select pour ta feuille, plutôt que Activate...