Discussion :

[Teddy7]

Bonjour,
De mon prog vb je test si un fichier excel est ouvert ou non. Si non, je l'ouvre puis ecrit dedans. Si oui, j'aimerai écrire directement dedans mais là il me manque qlqchose ...
Voici a quoi ressemble mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
If IsFileOpen(App.Path & "\toto.xls") = False Then 
   Set appExcel = CreateObject("Excel.Application")
   Set wbExcel = appExcel.Workbooks.Open(App.Path & "\toto.xls")
   appExcel.Visible = True
End If
 
Set FeuilleExcel = appExcel.ActiveWorkbook.Sheets("Contacts")
FeuilleExcel.Cells(6, 2) = Adresse

La fonction IsFileOpen marche très bien et me retourne True ou False. Dans le cas ou mon fichier est déjà ouvert, je récupère donc True et passe tout de suite à l'écriture mais là mon appli plante pour 1 variable non definie, j'imagine que c'est appExcel qui n'est 'définie' que dans le cas de l'ouverture du fichier mais comment définir cette variable autrement ?

[DarkVader]

Bonjour,
De mon prog vb je test si un fichier excel est ouvert ou non. Si non, je l'ouvre puis ecrit dedans. Si oui, j'aimerai écrire directement dedans mais là il me manque qlqchose ...
Voici a quoi ressemble mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
If IsFileOpen(App.Path & "\toto.xls") = False Then 
   Set appExcel = CreateObject("Excel.Application")
   Set wbExcel = appExcel.Workbooks.Open(App.Path & "\toto.xls")
   appExcel.Visible = True
End If
 
Set FeuilleExcel = appExcel.ActiveWorkbook.Sheets("Contacts")
FeuilleExcel.Cells(6, 2) = Adresse

La fonction IsFileOpen marche très bien et me retourne True ou False. Dans le cas ou mon fichier est déjà ouvert, je récupère donc True et passe tout de suite à l'écriture mais là mon appli plante pour 1 variable non definie, j'imagine que c'est appExcel qui n'est 'définie' que dans le cas de l'ouverture du fichier mais comment définir cette variable autrement ?

Pas besoin de IsFileOpen

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
on error resume next
set wbExcel=getobject(App.Path & "\toto.xls")
if wbExcel is nothing then
   set  appExcel=createobject("Excel.Application")
   Set wbExcel = appExcel.Workbooks.Open(App.Path & "\toto.xls")
   appExcel.Visible = True
endif
 
 
'.../...

[Teddy7]

Ok Dark, mais dans ce cas comment précise tu la feuille sur laquelle travailler ?
J'ai besoin d'un truc comme

Code :

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

1
2
3
 
Set FeuilleExcel = appExcel.ActiveWorkbook.Sheets("Contacts")
FeuilleExcel.Cells(6, 2) = Adresse

Ca c'est bon si j'ouvre mon fichier car alors j'identifie bien appExcel. Mais dans le cas ou le fichier est déjà ouvert, cette variable n'est alors pas renseignée !
Que j'utilise ton code ou pas, j'ai le même problème, il faut bien que je precise d'une manière ou d'une autre la feuille sur laquelle je veux travailler ...

[SfJ5Rpw8]

Le code à DackVader te donne directement une variable pointant sur ton classeur : wbExcel , utilise la

Code :

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

wbExcel.sheets("Contacts").Cells(6, 2) = Adresse

tu peu aussi passer par une variable intermédiaire de type feuille de calcul :

Code :

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

set Feuille = wbExcel.sheets("Contacts")

[Teddy7]

Ok, merci beaucoup.