Affichage excel deja ouverte

Ctesias -  
Bonjour,

Voila ma question: Comment afficher la fenetre excel?

Je m'explique:

J'ai ce code la: 
Private Sub CommandButton1_Click() 
Dim wordapp As New Word.Application 
Dim excelapp As Excel.Application 
wordapp.Documents.Open "C:\Documents and Settings\faf3\Bureau\PLAN.doc" 

Range("B2:F4").Select 
Selection.Copy 
wordapp.Visible = True 
wordapp.Selection.PasteSpecial 
Application.CutCopyMode = False 
UserForm1.Show 
End Sub


Il ouvre donc une feuille word, il copie deux lignes, mais j'aimerais qu'après, il réaffiche la fenetre excel initiale... Je n'arrive pas à trouver la commande.

Quelqu'un l'a connais?

Merci d'avance,

Ctesias

5 réponses

  1. Ctesias Auteur
    Bon, j'ai reusis a trouver comment faire: 

    Public wordapp As New Word.Application
Private Sub CommandButton1_Click()
wordapp.Documents.Open "C:\Documents and Settings\faf3\Bureau\PLAN.doc"

Range("B2:F4").Select
Selection.Copy

wordapp.Selection.PasteSpecial

wordapp.Visible = False

Application.CutCopyMode = False

UserForm1.Show

End Sub


    Et lorsque l'on quitte le userform1, il reaffiche wordapp.

    Maintenant, autre probleme: erreur (quelques fois) sur : 

    wordapp.Documents.Open "C:\Documents and Settings\faf3\Bureau\PLAN.doc"
    "Le serveur distant n'existe pas ou n'est pas disponible"

    ...
    2. Christof422
      Voila comment je faisai, si cela peut t'aider (en vb net)

      'Déclaration des variables
      Dim appExcel As Excel.Application 'Application Excel
      Dim wbExcel As Excel.Workbook 'Classeur Excel
      Dim wsExcel As Excel.Worksheet 'Feuille Excel

      'Ouverture de l'application
      appExcel = CreateObject("Excel.Application")
      'Ouverture d'un fichier Excel
      wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\" & username & "\Bureau\Temps de ramassage.xls")
      'wsExcel correspond à la première feuille du fichier
      wsExcel = wbExcel.Worksheets(1)

      wsexcel = appExcel.ActiveWorkbook.ActiveSheet

      'traitement quelconque

      wbExcel.Save
      appexcel.DisplayAlerts = false

      wbExcel.Close 'Fermeture du classeur Excel
      appExcel.Quit'Fermeture de l'application Excel

      'Désallocation mémoire
      wsExcel = Nothing
      wbExcel = Nothing
      appExcel = Nothing

      1. Ctesias Auteur
        Je viens de l'enlever, le probleme, c'est que quand il ouvre le fichier word, et bien il reste dessu, donc du coup, ca ne change rien...
        Mais j'ai trouvé la solution je pense. Comme tu m'as dit que tu copiais sans voir ta feuille, et bien j'ai mis :
        wordapp.visible = False.
        2. Christof422
          Essaye d'enlever
           wordapp.Visible = True

          A mon avis il n'a pas besoin de voir la feuille pour coller.

          Enfin moi quand je copie des chose vers excel je ne vois jamais ma feuille excel s'ouvrir.