Sujet Précédent Sujet Suivant

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

A voir également:

5 réponses

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

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

Posez votre question
Réponse 5 / 5
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