Macro : Mise à jour d'un fichier et msg "Voulez-vous enreg ...." Résolu/Fermé

Question

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

Gyrus · Answer

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+

alainjjb · Answer

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

Gyrus · Answer

Avec l'année en A1 et le numéro d'ordre en B1, 
Formule pour concaténation : =A1 & TEXTE(B1;"000")

A+

alainjjb · Answer

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

alainjjb · Answer

EXCELLENT ! ça fonctionne nickel
MERCI
Alain

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

5 réponses

Discussions similaires