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. 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.
    0
    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.
      0
      1. 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

        0
        1. Ctesias Auteur
          Ok, je vais essayer de m'en inspirer, merci Bien =)
          0
          2. 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"

            ...
            0