Sujet Précédent Sujet Suivant

Macro : Mise à jour d'un fichier et msg "Voulez-vous enreg ...."

Résolu/Fermé
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - Modifié par alainjjb le 16/10/2016 à 23:31
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 17 oct. 2016 à 13:57
Bonjour,
je viens de faire une petite macro pour incrémenter un n° de reçu dans un fichier sur mon disque dur mais à chaque fois j'obtiens le même msg "Voulez-vous enreg. les modifs" du fichier en question. Et donc valider l'opération.
Que dois-je faire pour lui faire comprendre que c'est moi le demandeur et qu'il ne doit pas s'inquiéter ?
Petite question subsidiaire : Dans quel format doit être la cellule qui reçoit ce n° pour garder les zéros devant : 0005 et non 5 ?
Merci d'avance de votre aide
Alain
A voir également:

5 réponses

Réponse 1 / 5
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
17 oct. 2016 à 10:45
Bonjour,

Question 1
Pour fermer et sauvegarder sans message : ActiveWorkbook.Close True
Pour fermer sans sauvegarder et sans message : ActiveWorkbook.Close False

Question 2
Format Texte

A+
0
Réponse 2 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
17 oct. 2016 à 11:20
Bonjour Gyrus pour ta réponse,
Le problème 1 est effectivement résolu. Je n'ai plus de message. Merci
Le problème 2 demeure mais je n'ai probablement pas été suffisamment précis :
En fait j'ai un fichier Excel qui stocke le rang de n° de reçu (nombre de 3 chiffres : par exemple au début 000). La macro accède à ce fichier pour récupérer ce dernier n° de reçu attribué, fait + 1, enregistre ce nouveau rang puis concatène l'année avec ce rang obtenu pour obtenir le nouveau n° de reçu (par exemple au début 2016001). Mais moi j'obtiens, même en mettant le format texte : 20161. Il ne veut pas me garder les zéros non significatifs du rang.
Merci
Alain
0
Réponse 3 / 5
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
17 oct. 2016 à 11:25
Avec l'année en A1 et le numéro d'ordre en B1,
Formule pour concaténation : =A1 & TEXTE(B1;"000")

A+
0
Réponse 4 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
17 oct. 2016 à 12:06
J'ai un petit soucis car comme les données rang et année ne sont pas sur la même feuille j'ai appelé "Rang" le n° de rang que je récupère du fichier : Rang = Range("B1").Value
et Année l'année que je récupère sur la feuille "SUIVI_PARRAIN :
Année = Range("B4").Value
et la concaténation est :
Num_Reçu = Année & Rang
Et dès le Rang les zéros ont disparus
Merci
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
17 oct. 2016 à 13:32
Si je comprends bien, Année et Rang correspondent à des variables utilisées dans ta macro.
Année étant une variable de type Integer,
Num_Reçu étant une variable de type String, Il faut coder :
Num_Reçu = Cstr(Année) & Format(Rang,"000")

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
17 oct. 2016 à 13:57
EXCELLENT ! ça fonctionne nickel
MERCI
Alain
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Copie automatique tableau Excel sans macro
sodwac -
sodwac -

5 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
Lien de téléchargement de nbLettre.xla
JBKOFFI -
eriiic -

1 réponse
tri automatque sur excel sans créer de macro
hugofauch -
hugofauch -

2 réponses