Discussion :

[munity]

bonjour le phorum

je vous explique mon problème, j'ai une macro qui m'ouvre, me ferme, enregistre ou kill un ou des fichiers selon le besoin
la variable et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Fichier = Mid(ActiveWorkbook.Name, 1, InStrRev(ActiveWorkbook.Name, ".") - 1) 'J'EXTRAIE LE NOM DU FICHIER SANS EXTENSION
NomFichier = Fichier & "_" & UCase(SupprimerAccents(Left(Environ("UserName"), 3))) 'JE RENOMME LE FICHIER
ActiveWorkbook.SaveAs Filename:=répTraitement & NomFichier & ".txt", FileFormat:=xlText, CreateBackup:=False 'J'ENREGISTRE LE FICHIER AVEC SA NOUVELLE EXTENSION

Et parfois la macro plante en me disant qu'elle ne trouve pas le fichier en question...
si je supprime l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& ".txt

ca passe...

y a t'il une raison particulière pour laquelle il modifie la condition sur l'extention à ajouter ou non (version office ?)
un peu d'aide ne serait pas de refus

merci d'avance

david

[Menhir]

Ca peut venir de l'explorateur Windows et de l'option "Masquer les extensions de fichier".

Dans Windows 7, ça se trouve dans Organiser > Options des dossiers et de recherche > Onglet Affichage > Masquer les extensions de fichier

[munity]

merci menhir
mais je ne masque pas les extensions
et par exemple ce matin j'ai lancé la macro, elle n'a pas planté
hier par contre la même macro et boum obligé de supprimé le petit code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& ".txt"

bizarre ....

de plus suivant les postes, certaines fois elles sont masquées parfois non
il faudrait une solution générique gérant les deux cas...
une idée ?

[Menhir]

Juste avant ta ligne SaveAs, mets un Debug.Print voir voir les contenus de variables.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, "."), UCase(SupprimerAccents(Left(Environ("UserName"), 3))), Fichier, NomFichier

Et regarde dans la fenêtre d'exécution si ce que ça crache est conforme à ce que tu attendais.

[munity]

ben ca me retourne bien ce qu'il me faut a priori

toto.xlsx, 34, DMA, toto, toto_DMA

[Menhir]

ben ca me retourne bien ce qu'il me faut a priori

Il faudrait que tu récupères ces valeurs pour un cas qui plante le code.

toto.xlsx, 34, DMA, toto, toto_DMA

J'espère que cette incohérence est dûe à un changement de nom pour l'exemple...