Projet Multi-Utilisateur

avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
- 15 mai 2007 à 18:30
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
- 15 mai 2007 à 18:45
Bonjour

Dans mon projet VB6
avec base de données excel, une fois le po fait (Form VB6), le fichier
Excel doit s'enregistrer, se fermer et ré-ouvrir pour que la fonction
multi-utilisateur fonctionne bien et qu'il enregiste les données des
autres utilisateurs.

Le problème est que le fichier Excel ouvre mais il n'est pas relié au Form de VB.

Pourtant, à l'ouverture, il est relié

Voici le script:
<hr size="2" width="100%" />Private Sub Command1_Click()
Dim lIGNE As Long
   
    lIGNE = (Range("C1").End(xlDown).Row + 1)
Application.ScreenUpdating = False
    'ENTRER DES DONNÉES
    Range("C" & lIGNE) = Format(Date, "dd-mmmm-yyyy")
    Range("D" & lIGNE) = Format(Date, "dd-mmmm-yyyy")
    Range("J" & lIGNE) = Text2
    Range("K" & lIGNE) = Text3
    Range("L" & lIGNE) = Text4
    Range("M" & lIGNE) = Text5
    Range("N" & lIGNE) = Text6
    Range("O" & lIGNE) = Text7
   
  
   
    ActiveWorkbook.Save
Application.ScreenUpdating = True

    'EFFACER LES DONNÉES
    Text3 = vbNullString
    Text4 = vbNullString
    Text5 = vbNullString
    Text7 = vbNullString
   
Application.ScreenUpdating = False
Unload commande
Application.Quit

Dim XlApp As New Excel.Application
    Dim WorkB As Excel.Workbook
    Dim WorkS As Excel.Worksheet
    Dim i     As Long, PLV As Long
On Error Resume Next
XlApp.Visible = True
Set WorkB = XlApp.Workbooks.Open("C:\Documents and Settings\Jean-Marc \Bureau\Test1.xls")
Sheets("Feuil1").Select
Accueil.Show

Application.ScreenUpdating = True
End Sub
<hr size="2" width="100%" />Y'a
t-il une raison pourquoi ça ne fonctionne pas, pourtant, quand je load
Accueil (Form)au départ, ça fonctionne, il y a comme script:
Private Sub Form_Load()
Dim XlApp As New Excel.Application
    Dim WorkB As Excel.Workbook
    Dim WorkS As Excel.Worksheet
    Dim i     As Long, PLV As Long
On Error Resume Next
XlApp.Visible = True
Set WorkB = XlApp.Workbooks.Open("C:\Documents and Settings\Jean-Marc \Bureau\Test1.xls")
Sheets("Feuil1").Select
Accueil.Show
End Sub

Merci pour votre aide

3 réponses

cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
15 mai 2007 à 18:33
Salut,

Faudrait faire ATTENTION, de ne pas faire X poste sur le même sujet....

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
15 mai 2007 à 18:37
Désolé, je n'étais pas dans la bonne section.

Y'a t-il moyen de supprimer un poste?
0
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
15 mai 2007 à 18:45
Salut,

Quand un Admin, passera par là, je pense qu'il le fera sans aucun problème...
C'est pour cela qu'il faut faire bien attention aux sections avant de valider sa question... 

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0