XL 2016 Bug macro sur boucle FOR EACH depuis MAJ Office

[samimi94]

Bonjour le forum,

Je sollicite de nouveau votre aide suite à plusieurs recherches infructueuses.

Je rencontre un problème d’exécution d'une macro sous 2016 (pack 365) depuis la mise à jour du pack Office cette semaine.

L’exécution "pas à pas" semble indiquer que le bug se produit sur deux boucles :

 Dim x As Range
    For Each x In Selection
        x = suppAccent(x.Value)
    Next x

et

Set Plage = Intersect(Selection, ActiveSheet.UsedRange)
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
    Cel = UCase(Cel)
Next Cel

Ce problème a été décelé uniquement sous la version 2016 (365), or sur la version 2016 PC même après MAJ la macro fonctionne correctement.

En espérant que cette erreur peut-être corrigée par une simple modification de code.

Merci à tous pour votre aide.

Samimi94

 

[samimi94]

Bonsoir Le forum,
Staple 1600,

Avant tout, merci pour tout le temps que tu as passé sur mon problème.
J'ai adapté ton code est le résultat semble correspondre au résultat attendu, je ne pourrai le confirmer qu'une fois au boulot pour tester avec le logiciel d'import. Quoiqu'il en soit le résultat est super, plus de bug de mon application et j'ai bien un fichier texte au final.

Auparavant, pour générer le fichier texte les utilisateurs appuyaient sur un bouton qui exécutait l'ensemble des codes macro.
Là, du coup j'ai un Sub Export et un Sub CreateFile
Comment exécuter avec un seul bouton l’enchaînement de ces deux macros et sauvegarder le fichier texte automatiquement dans le même répertoire que le fichier xls ? Actuellement je dois exécuter les macros manuellement et choisir le bon répertoire.

Merci encore pour cette aide précieuse.
Samimi94

 

[Staple1600]

Re

@samimi94
Tu trouveras tout ce qu'il te faut dans les archives du forum pour traiter tes dernières requêtes
Donc cliques sur la loupe en haut à droite pendant que moi je file sous la couette.

C'est à ton tour de mouiller la chemise, camarade

Bonne nuit.

 

[samimi94]

Bonjour Le Forum, Staple 1600,

Merci pour toute l'aide que vous apportez aux néophytes comme moi.
Pour tout vous dire je n'y connais pas grand chose en codification VBA. Toutes les macros que j'utilise sont des bouts de codes récupérés à droite à gauche et améliorées grâce à l'aide de personne comme vous.

J'ai bien fait des recherches en parallèle pour me débrouiller seule, et pour l’exécution de plusieurs macros depuis un seul et même bouton j'ai réussi à trouver comment faire en intégrant le code CALL qui appelle le code suivant.
Cependant, j'ai beau chercher comment faire pour définir automatiquement le répertoire de sauvegarde mais impossible de savoir comment l'intégrer à ce code.
Je continue mes recherches et vous remercie encore pour votre aide et patience.

Bonne fin de WE à tous.

Samimi94.

 

[Staple1600]

Bonjour le fil, le forum

@samimi94
Voir le code dans le fichier joint
Copier/Coller le code dans un module
Puis tester en lançant la macro nommée traitement

 

[samimi94]

Staple 1600,

Super ! Le fichier texte généré est bien sauvegardé dans le même répertoire. Est-il possible de supprimer la date dans le nom de fichier ?
J'ai beau retirer le bout de code qui est fait référence je n'y parviens pas car je perds l'extension .txt et quand je laisse l'extension j'ai une erreur. Je suppose que cela n'est pas aussi simple et qu'un code spécifique est nécessaire.
Enfin, rien à voir avec l’exécution de la macro, mais dans mon fichier texte je perds le 1er zéro quand il s'agit d'un CP tel que 06100. J'ai beau essayer le formatage NumberFormat = "00000" il ne le conserve pas dans le fichier texte. Y a-t-il une solution ?

Un grand merci. Je n'y croyais plus avec cette MAJ et finalement je vais pouvoir continuer à utiliser cette macro.

Merci.
Samimi94.

 

[samimi94]

Erratum,

Staple 1600,

Je viens de réussir à le sauvegarder sans date en format txt.
Merci beaucoup.

Samimi94.

 

[Staple1600]

Re,

@samimi94
Telle qu'est écrit la macro, le formatage du nom du fichier se fait ici:
sPath = ThisWorkbook.Path & "\" & ActiveSheet.Name & Format(Date, "_ddmmyyyy"".txt""")
(cela permet de créer deux fois le même fichier txt puisque le nom se base sur le nom de l'onglet)
Il fallait donc changer comme suit:
sPath = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt"
(dans ce cas, on peut pas exécuter deux fois la macro si on n'a pas changé le nom de la feuille active avant)

 

[samimi94]

Staple 1600,

C'est parfait !
Si tu as une solution pour la perte du 1er zéro du CP je suis preneuse.
J'ai déjà un fichier comme avant la MAJ et qui plus est simplifié de par ton aide précieuse.

Merci pour tout ce que vous faites pour nous.

Samimi94.

 

[Staple1600]

Re

@samimi94
Peux-tu préciser le nombre caractère maxi que doit contenir chaque champ?
(ou si tu préfères chaque colonne)

Accessoirement, peux-tu préciser, stp, avec quel logiciel ce fichier texte sera utilisé ?
(afin de connaitre les spécifications requises pour l'importation de fichier *.txt)

 

[samimi94]

Staple 1600,

Le nombre de caractères pour chaque champ est décomposé ainsi (le CP étant le champ s(10)):

s(0) = 8
s(1) = 1
s(2) = 6
s(3) = 15
s(4) = 9
s(5) = 2
s(6) = 10
s(7) = 32
s(8) = 32
s(9) = 32
s(10) = 10
s(11) = 27
s(12) = 2
s(13) = 2
s(14) = 30
s(15) = 25
s(16) = 12
s(17) = 8
s(18) = 32
s(19) = 32
s(20) = 32
s(21) = 10
s(22) = 27
s(23) = 2
s(24) = 59

Concernant le programme d'import c'est un vieux soft genre DOS (je ne sais pas si c'est de l'ASCII ou de l'EBCDIC) mais il faut un fichier texte avec respect des longueurs de champs et caractères.

Merci.

Samimi94.

 

[Staple1600]

Re

@samimi94
Tu n'as pas le nom de ce vieux soft, par hasard?

 

[samimi94]

Staple 1600,

C'est un vieil outil développé par l'entreprise pour laquelle je travaille, ce n'est pas un soft qui se trouve dans le commerce.

Samimi94

 

[Staple1600]

Re

@samimi94
Peux-tu reposter un fichier anonymisé mais copie conforme d'un fichier réel] au niveau de la structure , stp ?
(format, nombre de colonnes, entête)

PS: Normalement un code postal, c'est 5 caractères, non ?
(or dans ton fichier, il y en a 6)

 

[samimi94]

Staple 1600,

Ci-joint un type de fichier.
Le CP est bien sur 5 caractères mais le fichier texte doit avoir une longueur de 10 pour pouvoir intégrer le format CP des pays étrangers.
Ce qui m'intéresse est d'avoir au moins le 1er zéro pour les CP français (ex : 06000xxxxx).

Merci.

Samimi94.

 

[Staple1600]

Re

@samimi94
Dans ton dernier fichier, aucun CP ne commence par zéro.