vba, erreur 9 sur un changement de pc

Question

Bonsoir



Il s'agit d'un prog cr&#233;&#233; sur excel 2000 sous XP, sauvegard&#233; comme
classeur 97\200 \95 et qui tourne sans pb sur le pc du labo (W95 et
excel 97)(un peu poussif le pc du labo mais &#231;a tourne)

J'ai ajout&#233; une sauvegarde  d'une page  de donn&#233;es  du
classeur de travail vers un classeur de sauvegarde, &#231;a tourne nickel
sur mon pc mais sur le pc du labo &#231;a plante 4 fois sur 5 sur la routine
ajout&#233;e, (donc &#231;&#224; passe 1 fois sur 5): erreur 9

 voici le code en question  initi&#233; par call CmdSauv_Click



Private Sub CmdSauv_Click()



    Sheets("Resultats").Select

    Sheets("Resultats").Copy After:=Sheets(3)

    Sheets("Resultats (2)").Select

    Sheets("Resultats (2)").Name = Range("b3").Text

    Workbooks.Open Filename:=ActiveWorkbook.Path & "\SauvMalade.xls"

    Windows("VeSave 1.1.xls").Activate '

          Worksheets(lngNoInfo).Move After:=Workbooks("SauvMalade.xls").Sheets(1)

           ActiveWorkbook.Save

           ActiveWorkbook.Close



End Sub



Est ce un pb d'ecriture simplement  ?

un pb de compatibilit&#233; des  versions d'excel avec mon code ?

un pb de lenteur de travail du pc du labo qui plante le prog et dans ce cas la quelques

DoEvents astucieusement plac&#233;s pourraient ils etre utiles ?

J'ai tent&#233; d'etre clair mais si vous avez des questions............



merci

valtrase · Answer

Salut,
Si c'est un prob de lenteur tu peux essayer de supprimer les ******.select et les *****.Activate qui ne te servent &#224; rien dans ton code si ce n'est que de ralentir celui-ci
Private Sub CmdSauv_Click()

    With Sheets("Resultats")
         .Copy After:=Sheets(3)
         .Name = Range("b3").Text
   End With
       Workbooks.Open Filename:=ActiveWorkbook.Path & "\SauvMalade.xls"
       Workbooks("VeSave 1.1.xls").Worksheets(lngNoInfo).Move After:=Workbooks("SauvMalade.xls").Sheets(1)
           Workbooks("VeSave 1.1.xls").Save
           Workbooks("VeSave 1.1.xls").Close

End Sub
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Vba, erreur 9 sur un changement de pc

1 réponse

Discussions similaires