Discussion :

[jmsch]

Bonjour,

J'ai 2 classeurs qui tournent sur 3 PC différents.
Dans le premier classeur "Saisie" je saisie via des UserForm les données.
Après validation j'ouvre un second classeur "Base" et y enregistre les données.
Le tout fonctionne sans problème sur mon PC personnel.

Par contre sur les 2 autres PC ou les fichiers sont installés je rencontre un problème, avec le fichier BAse qui reste ouvert dans VBA après fermeture du fichier.
1 Je saisie les données dans Userform
2 Je valide, le fichier Base s'ouvre bien enrégistre et se referme.
3 Le projet Base reste ouvert dans VBA. (10 saisies = 10 projet Base ouverte dans VBA)

Quelqu'un aurait il une idée?
Merci

de plus je viens de voir que même pas besoin de saisir qq chose.
J'ouvre les 2 fichiers, j'en referme 1 mais les 2 restent ouvert dans VBA.
Si je re ouvre le fichier 2 et je le referme j'en ai 3 dans VBA et ainsi de suite jusqu'a la fermeture de Excel

[unparia]

Bonjour
Cela fait penser à des créations d'instances.
As-tu, dans le code de ton projet, une ligne de cotre contenant "createObject" ?
Es-tu par ailleurs certain de ne pas ouvrir (par un workbookOpen ) ce qui l'a déja été ?

[Menhir]

Quelqu'un aurait il une idée?

Bin... savoir où se trouve le problème d'un code sans le voir... comment dire...

[jmsch]

Merci pour votre contribution.
J'ai probablement résolu le problème hier soir.
1 J'ai fais une copie de mes fichiers pour travailler dessus....faire mes essais.
2 j'ai supprimé tous les userform les modules et code VBA.
3 J'ai enregistré et fermé le fichier.
4 Je l'ai ré ouvert et là surprise les code Vba module et userform y étaient de nouveaux.
5 J'ai repris ls points 2 et 3 environ 5 fois avant d'avoir un fichier propre sans code.

6 J'ai fais un essais avec mes anciens fichier et oui ça refonctionne. Lol

Le problème ne serait il pas venu de mes copies de sauvegardes qui auraient créé des liens déci delà. Je confirme ce soir après de nouveau essais

[jmsch]

Alors oui j'en ai 2 sur 3 qui fonctionnent.
Pour le 3eme j'y arrive pas et je viens de voir que le problème ne provient peut être pas de mes fichiers en cours de développement.

Pour essayer j'ai crée 2 fichiers test1 et test2 vide
j'ouvre les 2 fichiers et ça me met 2 projets dans VBA. Normal
Je ferme test2 et les 2 projet vba restent ouvert. Pas normal
Si je rouvre une nouvelle fois le fichier test2, là je me retrouve avec 3 projet vba..... et ainsi de suite a chaque fermeture/ouverture j'ai un projet VBA de plus qui reste ouvert.
Hier j'avais 7 projet dans VBA d'ouvert avec juste le fichier test 1 ouvert.

Avez vous une idée?

[jmsch]

Personne n'a une idée. Lol
Alors comme je ne sais pas d'ou ça peut provenir et comment le résoudre,
j'ai désinstallé le pack Office, nettoyé le PC avec Ccleaner, réinstallé Office et toujours le même problème.
Sniff sniff

[unparia]

Personne n'a une idée. Lol

J'en ai autant que tu as eu de réponses à la question que je t'ai posée en vain

[jmsch]

Désolé de ne pas avoir répondu mais si je ne l'ai pas fait c'est que je n'y voyais plus l’intérêt du fait que le problème se pose avec tous les classeurs.
Comme j'ai mis plus haut je viens de crées 2 classeurs test 1 et 2 vide, sans macro,
et j'ai le même problème avec eux donc je ne vois plus le rapport avec les codes des classeurs du départ.
De plus les codes fonctionnent sur 2 PC sur 3.

Pour répondre à ta question, oui dans mes codes initiaux j'ai un createObject.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'   Contrôle si le fichier cible est ouvert.
 
essaiencore:
    If VerifOuvertureClasseur(Chemin_Cible) Then
        ' Le fichier est ouvert... Message d'attente
        CreateObject("WScript.Shell").Popup ("Tentative d'ouverture N° " & ia & Chr(13) & "Le fichier est ouvert par un autre utilisateur." & Chr(13) & "Nouvel essai dans 5 secondes"), 2
        ' Temps d'attente
        Application.Wait (Now + TimeValue("0:00:05"))
 
        If (ia <= 3) Then
            ia = ia + 1
            GoTo essaiencore
        Else
            GoTo fin
        End If
   End If