Ouvrir un workbook

Pierrot93

XLDnaute Barbatruc

• 25 Août 2010

• #2

Re : Ouvrir un workbook

Bonjour,

regarde peut être le code ci-dessous :

Code:

Sub test()
Dim w As Workbook
Set w = GetObject("C:\MesDocs\Excel\Test\classeur1.xls")
w.Sheets(1).Range("A1").Value = 123
w.Close True
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

S

sarrsouraa

XLDnaute Occasionnel

• 25 Août 2010

• #3

Re : Ouvrir un workbook

Merci beaucoup pour ta reponse pierrot mais le getObject ne me permet pas d'executer des methodes dans ce workbook
je ne sais pas si t a une autre idee Merciiiiiiii

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2010

• #4

Re : Ouvrir un workbook

Re,

quelle méthode ??

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Août 2010

• #5

Re : Ouvrir un workbook

Re,

une autre solution, désactiver la mise à jour de l'écran..

Code:

Application.ScreenUpdating = False
'ton code d'ouverture ficher et actions..
Application.ScreenUpdating = True

bonne soirée
@+

 

Vote positif 0 Vote négatif

S

sarrsouraa

XLDnaute Occasionnel

• 26 Août 2010

• #6

Re : Ouvrir un workbook

Merci beaucoup pierrot c'est excellent

 

Vote positif 0 Vote négatif