Affichage excel deja ouverte

Ctesias Messages postés 786 Statut Membre -  
Ctesias Messages postés 786 Statut Membre -
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 Messages postés 990 Statut Membre 213
     
    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
  2. Ctesias Messages postés 786 Statut Membre 36
     
    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
  3. Christof422 Messages postés 990 Statut Membre 213
     
    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
  4. Ctesias Messages postés 786 Statut Membre 36
     
    Ok, je vais essayer de m'en inspirer, merci Bien =)
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Ctesias Messages postés 786 Statut Membre 36
     
    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