Sujet Précédent Sujet Suivant

Affichage excel deja ouverte

Fermé
Ctesias Messages postés 724 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 1 décembre 2011 - Modifié par Ctesias le 16/06/2011 à 10:13
Ctesias Messages postés 724 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 1 décembre 2011 - 16 juin 2011 à 10:30
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 867 Date d'inscription mardi 24 mai 2011 Statut Membre Dernière intervention 8 février 2015 212
16 juin 2011 à 10:10
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 724 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 1 décembre 2011 36
Modifié par Ctesias le 16/06/2011 à 10:15
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 867 Date d'inscription mardi 24 mai 2011 Statut Membre Dernière intervention 8 février 2015 212
16 juin 2011 à 10:23
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 724 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 1 décembre 2011 36
16 juin 2011 à 10:25
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 724 Date d'inscription lundi 16 mai 2011 Statut Membre Dernière intervention 1 décembre 2011 36
16 juin 2011 à 10:30
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