Discussion :

[mosquitout]

Bonjour,
Voici se que j'essaye de faire : j'ouvre un document excel et je le rempli avec une appli vb. avant de l'ouvrir je test s'il n'est pas déjà ouvert. Si c'est le cas, je me positionne alors dessus et le rempli. C'est dans ce cas que je ne connais pas la syntaxe !!!!
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
If IsFileOpen(App.Path & "ModeleExcel.xls") = False Then 
        Set appExcel = CreateObject("Excel.Application")
        Set wbExcel = appExcel.Workbooks.Open(App.Path & "ModeleExcel.xls")
        Set Feuille = wbExcel.Worksheets(1)
Else
        Set Feuille = Excel.Application.Workbooks(App.Path & "ModeleDevis.xls").Worksheets(1)
End If
'ici je remplis ma feuille puis l'affiche
appExcel.Visible = True

Si la feuille n'est pas déjà ouverte ca marche mais j'ai un pb dans le second cas. La syntaxe doit pas être très juste heu......
il faut pourtant que j'initialise ma 'Feuille' pour la remplir ! alors comment l'initialiser ? et puis je dois aussi initialiser 'appExcel' pour ensuite l'afficher.

Merci de vos suggestions

[mosquitout]

Bon, ca doit pas être très clair mon explication
Comment, sachant qu'un classeur est déjà ouvert, se positionner sur ce classeur en programmation vb ?
Je n'y connais rien en excel et ai cherché sur ce forum mais pas trouvé de syntaxe pour ca !!!
Thanks

[conconbrr]

Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Classeur1.xls").activate

Ceci dit normalement lorsque tu ouvres un nouveau classeur il devient actif par défaut...

[SfJ5Rpw8]

c'est quoi .. IsFileOpen..?
ton code il s'exécute sous quel applicatif VBA..?

[conconbrr]

Eu desole j'avais pas bien lu
Un truc que je pige pas pourquoi tu veux créer une nouvelle instance d'excel? Tu ne peux pas tt simplement ouvrir ton classeur?

[mosquitout]

Merci de vos réponses.
Bbil, isfileopen est une fonction ou je test si le fichier est déjà ouvert, la fonction me renvoie true ou false. Si le fichier n'est pas déjà ouvert, pas de probleme mon code marche bien. Mais c'est dans le cas ou le fichier serait déjà ouvert ou je bute.

Conconbrr, je voudrai alors tout simplement, non pas ouvrir une nouvelle instance d'excel puisqu'elle existe déjà, mais simplement affiché le classeur déjà ouvert. Mais pour cela, avant je dois remplir certaines zone dedans et donc préciser la feuille active. Et c'est là ou ma syntaxe n'est pas bonne !

Mon code est éxécuté sous vb. Et donc avant de remplir les cellules de ma feuille, je dois préciser de quelle feuille il s'agit.
Aie aie aie, c'est pas simple

[SfJ5Rpw8]

bon voila ne connaissant pas le principe de fonctionnement de ta fonction
IsFileOpen.. commen détermine t'elle qu'un fichier est ouvert..?
je m'en suis passé... du moment qu'un seul PC accéde au fichier ce code devrai te convenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim appExcel As Excel.Application
 Dim wbExcel As Excel.Workbook
 Dim Feuille As Excel.Worksheet
 Set wbExcel = GetObject(App.Path & "ModeleExcel.xls")
 If wbExcel Is Nothing Then
   MsgBox "Erreur impossible d'accéder au classeur .."
   Exit Sub
Else
   Set appExcel = wbExcel.Parent
   Set Feuille = wbExcel.Worksheets(1)
End If
appExcel.Visible = True
wbExcel.Windows(1).Visible = True

(Ps: Merci de jeter un oeil as tes MP..)

[mosquitout]

Merci Bbil,
C'est exactement ça. En faite c'est le "GetObject" que je ne connaissais pas
J'ai lu ton message, désolé pour le forum, c'est effectivement plus dans vb que vba mais à l'origine je pensai que mon probleme était purement excel et donc rattaché à vba ....... mais non. Alors encore désolé et mille merci