XL 2019 Nouveau Numéro

[Danyk01]

Bonjour à tous
Ma dernière demande d'aide n'étais pas concluent car j'ai plusieurs problèmes avec cette fonction

je m'explique:
j'ai ma matrice dans laquelle je peux faire un devis (zone Devis) ou des factures (zone Facture). voir fichier joint
j'aimerais transformer mon devis en facture, c'est là que le problème commence.

1) pour commencer, si je créé mon devis, pour ne pas abîmer la matrice, je change le numéro, je renseigne le chantier, et je l'enregistre immédiatement dans un dossier cible
sous un nom du client.
2) je ferme la matrice sans enregistrer
3) je retourne sur le fichier enregistré et je continue mon devis jusqu'à son terme.

A partir de là je peux changer l'intitulé devis en facture, pour cela j'ouvre la zone Facture
mais le fichier n'est plus enregistré sous le nom de la "matrice" et la fonction nouveau numéro de facture ne fonctionne plus.
Je pense qu'il faut qu'il ouvre sous le nom du fichier enregistré (mais je ne suis pas sûr)

Workbooks("01.DEVIS_FACTURES MATRICE (2).xlsm").Sheets("DEVIS").Activate

Ci-joint la procédure
'*******************************************************
'Procédure permettant de saisir le dernier numéro +1
'******************************************************

Sub ProchainNumFA()
Application.ScreenUpdating = False
Dim derlig As Long, Numéro As Long
Workbooks("KJL_JOURNAL_FACTURES.xlsm").Activate
With Workbooks("KJL_JOURNAL_FACTURES.xlsm").Sheets("Liste")
'derlig = .Application.CountA("*", [LNumero])
derlig = .Application.CountA("*", [LTableau])
Numéro = .Range("A" & derlig).Value + 1

'.Range("A" & derlig + 1) = Numéro
End With
Workbooks("01.DEVIS_FACTURES MATRICE (2).xlsm").Sheets("DEVIS").Activate
Range("V24").Value = Numéro
End Sub

2) J'aimerais que quand j'appuie sur le bouton "1.OUVRIR JOURNAL DEVIS" l'intitulé de la case B11 se change en DEVIS
et si j'appuie le bouton "2.OUVRIR JOURNAL FACTURE" l'intitulé de la case B11 se change en FACTURE
Voir pièce jointe "cellule V9 et V24"

Car j'ai mais une formule qui renvoie le nouveau numéro à une cellule V9 ou V24 selon le cas "DEVIS ou FACTURE"

Je sais, je suis un peu compliqué, mais vous m'avez déjà beaucoup aidé et je vous en suis très reconnaissant
Merci d'avance
Dany

 

[Danyk01]

Toutafé

Au fait pourquoi cette réponse "Oh, ce n'est pas le genre de monsieur !"

 

[cp4]

Je ne trouve pas le dossier winrar que j'ai assemblé, et je n'ai pas winzip

Télécharge 7Zip, il est gratuit Ici

 

[Danyk01]

Bonsoir tout le monde


Attention! pas de données confidentielles

Bonjour cp4
J'ai fait une connerie en envoyant mon modèle?
Danyk01

 

[Danyk01]

Télécharge 7Zip, il est gratuit Ici

Merci, ça y est je l'ai téléchargé

 

[TooFatBoy]

Au fait pourquoi cette réponse "Oh, ce n'est pas le genre de monsieur !"

Juste pour rire.

Donc tu as vu #7. Mais as-tu aussi vu #5 ?

 

[cp4]

Merci, ça y est je l'ai téléchargé

Si tu as téléchargé la version installable. Tu l'installes sur ta machine et tu compresses ton dossier au format zip ou en 7z. mais utilises plutôt zip.

 

[Danyk01]

Bonjour,

D'autant que dans votre post : Lien vous n'avez pas pris la peine de répondre aux questions.
Et ici comme on n'a pas le fichier "KJL_JOURNAL_FACTURES.xlsm" difficile de faire quoi que ce soit.
Surtout que si on pose des questions, on n'aura surement pas de réponse.

Si tu as téléchargé la version installable. Tu l'installes sur ta machine et tu compresses ton dossier au format zip ou en 7z. mais utilises plutôt zip.

Je l'ai fait, mais ça me le met sous fichier 7z et si je veux le joindre je n'y arrive pas

 

[Danyk01]

Juste pour rire.

Donc tu as vu #7. Mais as-tu aussi vu #5 ?

C'est quoi #7 et #5
excuses je ne suis pas trop dégourdi sur ces sites

 

[Valtrase]

Bonjour,
En haut à droite des messages...

Avec 7Zip il y a possibilité de choisir le format de compression...

 

[Danyk01]

Bonjour,
En haut à droite des messages...
Regarde la pièce jointe 1206231
Avec 7Zip il y a possibilité de choisir le format de compression...
Regarde la pièce jointe 1206232

Bonsoir Valtrase
merci, je vais essayer

 

[Danyk01]

Bonsoir Valtrase
merci, je vais essayer

Merci Valtrase, j'ai réussi à convertir

 

[Danyk01]

Je l'ai fait, mais ça me le met sous fichier 7z et si je veux le joindre je n'y arrive pas

Je l'ai fait, mais ça me le met sous fichier 7z et si je veux le joindre je n'y arrive pas

Bonjour à tous
ci-joint le dossier complet

 

[Phil69970]

Bonjour à tous

Juste en (re)-passant

Plus compliqué tu meurs !!!

En principe on fait :
-une feuille modèle "Devis" et une feuille modèle "Facture"
-une feuille "Archive devis" et un feuille "Archive facture"
-Une feuille paramètre si besoin et une feuille stat si besoin
-Une feuille sommaire si besoin

Et pas besoin de tout se machin qui à la moindre modification c'est tout un bazar pour que tout fonctionne mais c'est juste mon avis perso.

Bonne chance

 

[TooFatBoy]

C'est quoi #7 et #5

#5, c'est ça :

1) pour commencer, si je créé mon devis, pour ne pas abîmer la matrice, je change le numéro, je renseigne le chantier, et je l'enregistre immédiatement dans un dossier cible
sous un nom du client.
2) je ferme la matrice sans enregistrer
3) je retourne sur le fichier enregistré et je continue mon devis jusqu'à son terme.

Si au départ tu ouvrais un xltm au lieu d'un xlsm, ce serait sûrement plus pratique.
À moins que ce ne soit pas possible ?

Quand tu parles de "matrice", est-ce que tu veux parler d'un genre de "masque de saisie", de "formulaire" ?

Et donc, tes réponses sont ???

 

[TooFatBoy]

Tu as deux macros avec le même nom : OuvrirCls.
Il faudrait les renommer.

Par exemple OuvrirJournal_Dev et OuvrirJournal_Fac.

Et tu mets les deux macros dans un seul module nommé par exemple Ouvrir_Jounal.

---

Une proposition en pièce jointe, essayant de garder au maximum ta méthode actuelle, en attendant que tu répondes à l'excellente remarque de Phil69970.