Discussion :

[lesurfeurdargent]

Bonjour à tous,

je fais parti d'un club de pétanque et il y a quelques années, les responsables de l'association m'ont demandé de faire ou de trouver un programme pour ne avoir à écrire sur des feuilles parce que le nombre de joueurs ne cesser d'augmenter. Après quelques recherches, j'ai trouvé un très bon programme "libre de téléchargement", fait par un amateur de pétanque.
Après l'avoir adapter pour notre club, tout ce passait très bien.

Il y a une semaine, ils m'ont demandé de faire quelques corrections, le nombre de licenciés ne fais qu'augmenter, mais là je cale. Le programme est assez complexe "pour moi" et en essayant de faire les modifications par rapport aux demandes, je me retrouve à chaque fois avec des fenêtres de débogage.....

C'est pour cela que je viens vers vous pour un petit coup de main si c'est possible.

En attente de votre réponse, d'avance merci.

Cordialement.

Fred.

[unparia]

Bonjour et bienvenue

Tu n'as peut-être pas bien compris la vocation d'un forum de développement.
Si tu veux obtenir une aide :
- isole la difficulté que tu rencontres (ce ne saurait être l'ensemble de ton programme)
- présente entre balises code le code concerné par cette difficulté
- expose les tenants et aboutissants de cette seule difficulté

[lesurfeurdargent]

merci pour votre réponse et je vais essayer de vous expliquer chaque petits problèmes.

Lors du tirage au sort, le fichier des inscriptions des joueurs se rapporte à un fichier "tables" avec un fichier où sont inscrit le numéro des joueurs.

Ce fichier est au format .XLT. Chaque fois que je veux faire une correction dans ce fichier, même en le sauvegardant dans les options au format .XLT, mon programme ne reconnaît plus mon fichier.

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
17
18
19
20
  Workbooks.Open Filename:=Dir & TABL, ReadOnly:=True 'OUVRIR la TABLE et COPIER
 
    '***********A ce stade le fichier TABLE_D_MAXIME_.XLT doit être ouvert (en LECTURE SEULE)
    '****(et donc que l'instruction ci-dessus ait fonctionné)
    '***** et le fichier ouvert ne doit pas être TABLE_D_MAXIME_1 !!!
    '***** pour cela IL FAUT QUE le fichier XLT soit un xls à l'origine qui ait été rebaptisé en XLT (je ne sais pas pourquoi)
 
    Windows(TABL).Activate ' en cas de bug : VERIFIER Répertoires(DIR) et NOM exact de la table concernée (FICH)
        Sheets("F2").Select
        Range(Cells(1 + nn, 1 + DECAL_30), Cells(taille + nn, 26 + DECAL_30)).Select 'C1:Z21
        Selection.Copy
 
    '***********RETOUR au programme appelant************
    Windows(PROGR_appelant$).Activate ' (ou bien  Windows(1).Activate  ==>SI c'est le 1er excel appelé en mémoire)
        Sheets("TIRAGES").Select
        Range("A27").Select
        ActiveSheet.Paste
        'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Application.CutCopyMode = False

Voilà, j'espère que cela ira pour les explications.

Encore merci.

[unparia]

Code :

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

Workbooks.Open Filename:=Dir & TABL, ReadOnly:=True 'OUVRIR la TABLE et COPIER

1) Que contiennent les variable DIR et TABL ?
2)

ce stade le fichier TABLE_D_MAXIME_.XLT doit être ouvert (en LECTURE SEULE)
'****(et donc que l'instruction ci-dessus ait fonctionné)

Un fichier s'est-il alors ouvert ? Si oui : quel est son chemin complet ?
3)

'***** pour cela IL FAUT QUE le fichier XLT soit un xls à l'origine qui ait été rebaptisé en XLT (je ne sais pas pourquoi)

J'ignore totalement comment ce projet a été construit, mais il semble (???) que l'un de tes classeurs (lequel ?) contienne une procédure dont la vocation est précisément de créer ce fichier

Etc, etc ...
Il n'est pas possible de t'aider sur la base de ces seules indications. Tout donne à penser que tu es en possession d'une étrange conjugaison de projets interdépendants