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

Microsoft 365 vba format date et N° automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Piment
  • 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 !

S'inscrire
P

Piment

XLDnaute Impliqué
Bonsoir le forum,
Une fois de plus je fais appel à vous.
Je rencontre 2 problèmes que je n'arrive pas à résoudre:
1° Sur mes USF Visualiser et Modifier, mes textBox Heures ne s'affiche pas au format hh:mm bien que j'ai précisé ce format.
2° je n'arrive pas à l'ouverture de l'USF Devis à ce qu'il me donne automatiquement le N° Suivant qui devrait être 2021-002 puis au prochain devis 2021-003...
Auriez-vous la gentillesse de bien vouloir m'aider s'il vous plaît.
Je sais pouvoir compter sur votre aide.
Merci d'avance!
 

Pièces jointes

Solution
P
Trier par date Trier par votes
Bonjour 974RE, soan, le fil, le forum, etc...

voila ta sub modifiée

Cordialement
VB: 
Private Sub CreerPDF_Click()
Dim monDossier As String, monFichier As String


    monDossier = "D:\Les Authentiques\Archive Devis\"
    monFichier = ThisWorkbook.Sheets("Devis").Range("C4").Value & " " & ThisWorkbook.Sheets("Devis").Range("C6").Value & ".PDF"
   
    ThisWorkbook.Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        monDossier & monFichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
End Sub
 
Vote positif 0 Vote négatif
en ajoutant la date du devis, ça peut servir !
Code: 
Private Sub CreerPDF_Click()
Dim monDossier As String, monFichier As String
    monDossier = "D:\Les Authentiques\Archive Devis\"
    With ThisWorkbook.Sheets("Devis")
        monFichier = .Range("C4").Value & " " & .Range("C6").Value & " " &  Format(.Range("C2").Value, "DD-MM-YYYY") & ".PDF"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        monDossier & monFichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    End With
End Sub
 
Vote positif 0 Vote négatif
Bonsoir Yeahou,
Merci beaucoup d'être intervenu sur mon échange avec Soan, et de m'apporter LA solution.
Je comprends bien où était mon erreur. J'avais tenté avec Range, mais je n'ai pas pensé à lui indiquer la feuille. Comme j'étais sur la feuille en question. L'idée de la date est plus qu'intéressante, dans la mesure ou ma prochaine étape est de mettre en place un devis "Modifié" . 👍
Merci encore.
 
Vote positif 0 Vote négatif
soan à dit:
Bonjour 974RE,

désolé, mais les fichiers pdf j'm'y connais pas, à part les lire avec Adobe Reader. 😕

soan
Cliquez pour agrandir...
Salut Soan, ne soit pas désolé. Tu m'as énormément apporté. Sans toi j'étais encore en pleine galère. J'ai beaucoup appris avec toi, même si je ne maîtrise pas tout, loin s'en faut.
Je pense que tu auras encore beaucoup à m'apporter si tu le veux toujours. En tout cas, pour ma part je compte beaucoup sur toi.
Un nouveau bienfaiteur m'a gentiment apporté la solution.
Bonne soirée, à Bientôt.
 
Vote positif 0 Vote négatif
974RE,

ton erreur n'était pas sur range mais sur la façon dont tu as codé
VB: 
monFichier = "Cells[C4].Select & Cells[C6].Select.PDF"
tel que codé, ton nom de fichier est "Cells[C4].Select & Cells[C6].Select.PDF"
cela ne peut pas passer avec des caractères interdits
ce code écrit plus correctement aurait fonctionné si la feuille active derrière l'USF était Devis mais, moi, je n'utilise jamais l'évaluation (les croches) par habitude et par conviction.
Code: 
monFichier = [C4] & [C6] & ".PDF"

Bien cordialement, @+
 
Dernière édition:
Vote positif 0 Vote négatif
Ok, bien compris. Pour ton information je débute en VBA, ce qui explique cela.
Merci encore.
Bonne soirée à toi.
 
Vote positif 0 Vote négatif
Yeahou à dit:
j'avais compris et soan avait déja fait un gros boulot, c'aurait été dommage de ne pas finaliser
Cliquez pour agrandir...
Oh OUI Soan a fait un sacré boulot. Je ne le remercierais jamais assez. Il s'est totalement investi pour m'accompagner dans ce projet.
Grâce à ce projet, j'ai fait la rencontre de deux belles personnes Soan et PatickToulon (dont je n'ai plus de nouvelles et je le regrette), et aujourd'hui tu viens rejoindre l'équipe. Une belle personne de plus je pense.
Mon projet n'est pas fini, il me reste à construire un devis qui doit permettre de modifier le Devis Initial en cas de demande de modification du client et bien sur la facture. Mes neurones, et les vôtres n'ont pas fini de s'agiter!
 
Vote positif 0 Vote négatif
Bonjour Soan,
Comme je le pressentais, je fais de nouveau appel à toi. Je travaille sur le Devis Modifié qui permet de modifier le Devis initial (dans le cas ou le client demande de lui fournir un nouveau devis: par exemple : il avait demandé initialement un devis pour 2 voitures et il change d'avis il ne souhaite plus qu'une seule voiture, avec des changement de trajets....).
L'organisation du Devis Modifié ne change pas. Je récupère les informations de la Feuille A.DV et les charges sur la feuille DevisModifié. J'apporte les changements et je valide. Dans l'absolu, les changements qui justifieraient d'établir un nouveau Devis concerneraient les Zones Prise En Charge, Trajet , Fin de Course et la Désignation, Qté.......
Ma difficulté consiste à rapatrier les modifications apportées de nouveau dans la feuille A.DV, dans la ligne concernée: DEV2021-001 si les modifications portent sur ce devis. La Date Modif (C1) est la date du jour du DevisModifié. Seuls les champs des colonnes H / I / J de la Feuille A.DV sont susceptible d'être modifiés, ainsi que les colonnes B / C / D / E de la feuille A.LD. Le devis modifié n'est pas un nouveau devis, c'est le devis initial à qui ont apporte des modifs.
Lorsque je mettrais en place la facture, l'ensemble des éléments de la feuille A.DV et A.LD du numéro de devis concerné sera chargé sur la Facture.
Dans l'attente de ton retour, merci Soan.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir Soan,
Je pense avoir réussi à élaborer les codes pour rendre opérationnel ma feuille DevisModifié. J'ai également réussi, je pense à mettre en place la facturation.
Aurais-tu la gentillesse d'y jeter un œil et de me faire un retour s'il te plaît?
Avec tous mes remerciements.
 
Vote positif 0 Vote négatif


Yeahou à dit:
j'avais compris et soan avait déja fait un gros boulot, c'aurait été dommage de ne pas finaliser
Cliquez pour agrandir...
Bonsoir Yeahou,
Je me permets de faire appel à toi pour jeter un œil sur mon fichier . Comme Soan m'avait suivi jusqu'à maintenant je l'avais sollicité, mais il n'est malheureusement pas dispo en ce moment.
Alors comme tu avais eu la gentillesse d'intervenir sur mon projet en m'apportant ton aide, je me suis autorisé à faire appel à toi dans la mesure où tu le connais déjà.
J'avais éprouvé quelques difficultés à archiver mon devis modifié, mais j'ai fini, je pense à y arriver. J'ai également mis en place la facturation et son archivage.
J'ai donc besoin d'un œil expert pour vérifier si je n'ai pas commis d'erreurs susceptibles d'entraîner un beug à un moment donné .
Si tu veux bien, n'hésite pas à me proposer mieux, je suis preneur.
Merci d'avance.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour 974RE, le forum

je jetterai un oeil ce soir si je peux, à moins que soan ne le fasse plus tôt quoi qu'il ait dit, il est trop gentil pour laisser quelqu'un dans l'embaras.

Bien cordialement, @+
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour 974RE, le forum

j'ai regardé ton fichier
pour tes archivages, tu sortais de la fonction si [B4] vide hors le numéro est en [C4]
j'ai aussi modifié tes générations de PDF pour m'éviter des erreurs, tes dossiers n'existent pas chez moi
j'ai modifié l'appel de tes formulaires dans accueil pour exemple
pour la modification d'un devis existant, il faut reprendre, cela ne peut pas fonctionner comme cela.
précises comment tu veux gérer la modification, nouvelle ligne de devis avec nouvelle référence ou modification de la ligne existante en adoptant une convention pour indiquer la modif?
pas le temps de faire cela ce matin, j'essaierai de m'y coller dans la journée

Cordialement, @+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Yeahou, le Forum,
Tout d'abord merci de me consacrer un peu de ton temps.
Les modifications apportées aux lignes de codes sont 👍 Je me doutais bien qu'il fallait affiner tout ça.
Bien vue pour [B4]. Par contre je n'ai pas compris les problèmes liés aux rows.count????
Les générations de PDF sont TOP!!🙂🙂🙂
Concernant les modifications d'un devis existant: un client fait la demande d'un devis pour 2 véhicules (ou plus: aujourd'hui il y a 2 véhicules anciens dans le parc, mais l'acquisition d'un troisième devrait se faire: une DS 21). On lui établit donc un devis pour 2 Véhicules. A réception de ce devis le client demande à modifier le nombre de véhicule, ou le parcours initialement demandé (plus ou moins de Km à parcourir, donc modification des tarifs). Il sera alors nécessaire de modifier le devis initial (à sa signature, le devis vaudra Bon de Commande). Le N° du Devis ne change pas, donc: modification de la ligne archivée. L'archivage me sert également à établir la facture. La facture n'est qu'une récupération des éléments de la ligne archivée.
Mais ta remarque fait apparaître une problématique que je n'avais pas vue: Si le devis comporte 2 lignes Désignation ( 504 et MG) et il demande de modifier son devis avec un seul véhicule: comment supprimer le deuxième véhicule?
De plus, lors de la récupération l'USF Devis Modifié ne prend en compte que la première ligne désignation de la feuille A.LDV.
Quand on croit qu'il n'y en plus, il y en a encore! (proverbe de chez nous).
Dans l'attente de ton retour, bonne après-midi à toi.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
970
telemarrk
T
  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
981
Usine à gaz
B
  • Question Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
694
sousou
C
  • Résolu(e)
Microsoft 365 Boite de dialogue suivant date et récupération de données
2
Réponses
15
Affichages
1 K
chnico80
C
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
M
  • Question Question
Microsoft 365 Rechercher des blocs de valeurs dans multiples feuilles du même classeur et les empiler
2 3
Réponses
32
Affichages
2 K
sylvanu
P
  • Résolu(e)
Microsoft 365 vba N° automatique
Réponses
9
Affichages
670
Piment
P
N
  • Résolu(e)
XL 2013 vba gestion heures supérieure à 24h et format date inversée
2
Réponses
17
Affichages
2 K
Novice avance !?
N
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
  • Résolu(e)
Microsoft 365 Format d'affichage d'une date
Réponses
6
Affichages
768
Usine à gaz
E
  • Résolu(e)
Microsoft 365 LISTBOX et Date
Réponses
7
Affichages
1 K
eric72
E
  • Résolu(e)
Microsoft 365 Format date qui ne fonctionne pas sur office2019
2 3
Réponses
36
Affichages
3 K
Usine à gaz
E
  • Question Question
XL 2013 Trouver n° ligne en fonction d'une date et du nom d'une équipe
Réponses
8
Affichages
1 K
Esfloria
E
P
  • Question Question
Microsoft 365 vba modifier un devis
Réponses
0
Affichages
544
Piment
P
M
  • Question Question
XL 2016 N° facture textbox
Réponses
5
Affichages
1 K
Monkeyju56
M
P
  • Résolu(e)
Microsoft 365 VBA Format Texte en N° Tél
Réponses
14
Affichages
1 K
Piment
P
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
X
  • Résolu(e)
Microsoft 365 VBA Textbox - Convertir au format "Nombre"
Réponses
5
Affichages
2 K
ChTi160
M
  • Question Question
XL 2013 Transformer le format Texte en Date suite à un transfert automatique via VBA
Réponses
3
Affichages
1 K
MgLina
M
W
  • Question Question
XL 2019 VBA msgbox IF ELSE et END IF
Réponses
0
Affichages
1 K
watt3211
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…