Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Projet - Ordonnancement et production sur 2 pC

  • Initiateur de la discussion Initiateur de la discussion JONEY76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JONEY76

XLDnaute Occasionnel
Bonjour,

Je suis en train de préparer un projet, mais je sais déjà que je risque d'avoir quelques soucis. Je dois travailler sur 2 PC avec le même fichier et avec du VBA.
Je dois créer une sorte de supervision avec un donneur d'ordres et un éxécutant qui valide la commande

Je vous laisse découvrir le fichier, j'y ai mis les explications en espérant être clair

Dans la listview, les commandes doivent apparaitre
Je pense qu'excel ne sera pas forcément adapter pour ce genre de fichier, il a du mal à gérer VBA et partage

Pièce jointe su rmessage suivant

Merci beaucoup !
 
Dernière édition:
Re : Projet - Ordonnancement et production sur 2 pC

As-tu essayé un fichier texte sur le serveur avec les commande à Lancer?

Une fois la commande terminé, tu écris dans un autre fichier texte en archivage.

Tes 2 appli vont interagir avec le fichier txt.
Au 2 minutes
L'une aux minutes paire et l'autre aux minutes impaire.
Tu seras donc en temps réel moin (1minute + temps exécution)

En autant que tes 2 pc ont la meme heure
 
Re : Projet - Ordonnancement et production sur 2 pC

Merci pour l'idée !!!

Aurais tu une base de départ là dessus?? Un point de départ sur la mise en forme dans le fichier txt
Je ne vois pas comment faire dire à excel de remplir mes cases avec une ligne dont les longueurs de chaines vont changer
 
Re : Projet - Ordonnancement et production sur 2 pC

Tu écris en TextStream avec un séparateur.
Généralement on utilise le ";"

Écriture avec WriteLine
Fic.WriteLine col1 & ";" & col2 & ";" & col3

Lecture avec ReadLine
Ligne= Fic.ReadLine
Et tu utilise la fonction
Split(Ligne, ";")(0)
Split(Ligne, ";")(1)
pour séparer tes données.


Pour la lecture
Je te conseil d'ouvir le fichier, de mettre a jour ta feuille et de fermer le fichier.
Pour l'écriture
Tu ouvre le fichier sans utiliser le "append mode" et tu transfert tes données dedans. Puis tu le ferme.
Le tout A intervalle régulier. Très important que tes 2 applications ne travaillent pas en même temps.


Attention pour le Timer, tu devras utiliser un API. (Application Programming Interface)
 
Dernière édition:
Re : Projet - Ordonnancement et production sur 2 pC

voici un exemple

Tu écris des données de A à D

Tu les envoie dans un fichier

Tu lis les données Que tu inscrit en colonne H à la ligne désirées.


Tu crée un fichier dans "c:\test.txt"
Ouvre le pour voir le résultat
 

Pièces jointes

Dernière modification par un modérateur:
Re : Projet - Ordonnancement et production sur 2 pC

Merci beaucoup pour l'exemple

Code:
Do While Not a.AtEndOfStream
    Ligne = a.ReadLine
   For i = 8 To 12
        Cells(ligneEcriture, i) = Split(Ligne, ";")(i - 8)
   Next i
   ligneEcriture = ligneEcriture + 1
Loop

Lorsque je rappelle l'enregistrement il déporte de 8 colonnes à droite
Peux tu m'expliquer cette boucle
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…