porbleme avec vb6.0 et excelRésolu

Question

bonjour voila mon probleme je chercher un code permettant de tester si mon classeur excel et ouvert, si oui il affiche un message box sinon il ouvre mon ficher. Il faut juste me trouver ce que je doit mettre a la place de mes ????????

If ????????????????????????Then
    MsgBox "deja ouvert"
Else
  
  'Créer un nouveau classeur EXCEL initialisé à la ligne 1
   Appli.Workbooks.Open "[file://\Kwartz-serv-ig\Commun	sig2da\HerbinDelphine\Facture.xls \Kwartz-serv-ig\Commun	sig2da\HerbinDelphine\Facture.xls]" 
   
End If

merci 

ps je traail en vb6.0 avec excel 2000-2003

jrivet · Accepted Answer

Re,
Bon j'ai pas trouve mais l'exemple devrais t'aider.

Dim Wb As Workbook
Dim Trouve As Boolean
For Each Wb In Application.Workbooks
   'pas sur d'ici peu etre manque t il "\"
   If Wb.Path & Wb.Name = TonNOm Then
       Trouve = True
       Exit For
   End If
Next
If Trouve Then MsgBox "Deja ouvert", ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
Il me semble que ce sujet (ou un très similaire) à été traiter la semaine derniere dans le forum fouille un peu.
(je vais fouiller de mon coté aussi)

@+: Ju£i?n
Pensez: Réponse acceptée

cs_JMO · Answer

Bonjour à tous,

Bonjour Julien,

on peux aussi gérer l'erreur 70 (fichier ouvert ....)
Const ForReading 1, ForWriting 2, ForAppending = 8Const TristateUseDefault -2, TristateTrue -1, TristateFalse = 0

Dim NomFichier, fso, f 
NomFichier = "d:
ouv_barre.xls" 
Set fso = CreateObject("Scripting.FileSystemObject")

On Error Resume Next    
Set f = fso.OpenTextFile(NomFichier, ForAppending, TristateFalse)

If Err.Number <> 0 Then 
   Msgbox "Le fichier est déjà ouvert" &vbCrLf& _
           Err.Number &vbCrLf& Err.Source &vbCrLf& Err.Description : Err.Clear
   Else
   MsgBox "Le fichier n'est pas ouvert"
End If

jean-marc

mortalino · Answer

Ju, avec VB6  ;)

Utilise l'API   _lopen
Exemple ICI :
http://www.codyx.org/snippet_ouvrir-fichier-word-ou-excel-est-ouvert-copie_313.aspx

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_JMO · Answer

Re,

Bonjour Mortalino,
Joli ton snippet en vb6/vba .... qui gèrent les erreurs.

A+.
jean-marc

mortalino · Answer

Salut Jean-Marc,
Merci  ;)

J'avoue quand même qu'on m'a aidé pour Office 2000, ne l'ayant pas, je ne pouvais testé à ce niveau 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

gothikth · Answer

ok merci tout le monde

cs_MPi · Answer

Tu dis que tu travailles en VB6 avec Excel...

J'aimerais avoir une précision
Est-ce que tu travailles sous VB6 (le vrai) et tu ouvres des documents Excel en utilisant des objets Excel, tel que
Dim xlApp as New Excel.Application  (ou CreateObject ...)

Si c'est le cas, tu peux ouvrir plusieurs fois le même document et aucune erreur n'apparaîtra sauf si tu cherches à le sauvegarder après modification, je pense. Chaque document s'ouvrira dans une nouvelle instance d'Excel.

Il faut donc que tu sois précis sur la façon dont tu procèdes et avec quoi tu programmes.
Si c'est dans Excel et que tu vas dans son IDE, alors c'est VBA et c'est bien différent...

MPi

jrivet · Answer

Alors on en est où ici???
Problème résolu ou pas?

@+: Ju£i?n
SI OUI Pensez: 
Réponse acceptée

gothikth · Answer

oui je travailles sous VB6 (le vrai) et j ouvres des documents Excel en utilisant des objets Excel, tel que Dim xlApp as New Excel.Application (ou CreateObject ...) et de vb6 j'enregistre des données dans excel merci a tous, ---- ----, ----

gothikth · Answer

au fait et oui probleme resolu

j ai tout simplement mit un booleen quand j ouvre le fichier a vrai et sil est a vrai je reouvre rien sinon jouvre :)

et des que jenregistre le fichier, il repasse a faux

voila

cs_MPi · Answer

Je ne sais pas dans quel but tu crées ce fichier. Si c'est pour ton usage et que tu sais ce qui se passe sur ton PC, ça peut aller. Si tu penses le distribuer et que l'utilisateur ouvre le fichier Excel avant de travailler sur ton application, là ça peut devenir problématique...

Il faudrait alors que tu laisses tomber ta variable booléenne et que tu vérifies les instances d'Excel et vérifier si le fichier est déjà ouvert dans une de ces instances...

MPi

nomena1 · Answer

j'ai de probleme,
mon projet est de connecter une base mysql avec VB 6.0
j'aimerais avour une bouton pour supprimer, ajouter, modifier une table et requete
j'espere que vous m'aider

Porbleme avec vb6.0 et excel

13 réponses

Votre réponse

Discussions similaires