macro xlsm qui enregistre le fichier de sortie en xls

Re : macro xlsm qui enregistre le fichier de sortie en xls

Bonsoir,

sebastienb à dit:

....ce n'est pas un vrai fichier xls car il est codé comme un xlsm tout de même.

Cliquez pour agrandir...

Que veux tu dire précisemment ?
Note qu'avec le peu d'info, va surement être diffcile de t'aider
A+
kjin

Re : macro xlsm qui enregistre le fichier de sortie en xls

Salut,il te faudra scinder le fichier généré en x fichiers xls ( 65536 lignes ,256 Colonnes) ou en 1 classeur xls avec x feuilles.Voir Google ou peut-être Google

Re : macro xlsm qui enregistre le fichier de sortie en xls

Bonjour,

Je vous explique: J'ai un fichier maître dont un des onglets contients 500 000 lignes. Ce fichier contient une macro ayant plusieurs sous macro. La macro crée de nombreux fichiers selon des segmentations précises. Par contre, comme le fichier maitre contient 500 000 ligne, il est en xlsm . Par contre, les fichiers que la macro me crée ont environ 3000 lignes, ce qui est compatible avec xls.

Actuellement, la macro crée une copie du fichier maitre, enregistre sous un nouveau nom selon la variable, fait le filtre nécessaire, copie les donnée utilile dans une nouvelle feuille et supprime la feuille initiale qui contient les 500 000 ligne. Par contre, l'enregistrement final ce fait en xlsm, car la macro copie le fichier xlsm et l'enregistre sous xlsm car lors de la création de la copie, il y a toujours feuille de 500 000 ligne.

J'ai écrit un bout de programmation qui m'enregistre le fichier sous xls, par contre, lorsque j'essaie de l'ouvrir de nouveau, une fenetre s'affiche me disant que le fichier ne comporte pas le bonne extension pour le type de fichier.

Il est très important pour moi que le fichier soit sous xls car je me sert des données contenu via SAS 9.1.3, et celui-ci ne supporte pas les proc import via XLSM.

Celle qui sauvegarde à la fin (doit être en xls)

'ub macro6(ByVal iNomFichier As String)

Sheets(FEUIL_TABLEAUX_comp).Activate
Chemin = ActiveWorkbook.Path
Nomfichier = Chemin & "\" & iNomFichier & ".xls"
ActiveWorkbook.SaveCopyAs Nomfichier
FileFormat = 56

End Sub

celle qui créé la copie initiale (doit être en xlsm)


Sub copierFichiercomp(ByVal iNomFichier As String)

Application.ScreenUpdating = False

Sheets(FEUIL_TABLEAUX_comp).Activate
Chemin = ActiveWorkbook.Path
Nomfichier = Chemin & "\" & iNomFichier & ".xlsm"
ActiveWorkbook.SaveCopyAs Nomfichier


Workbooks.Open Filename:=Nomfichier

Re : macro xlsm qui enregistre le fichier de sortie en xls

Personne n'a idée là dessus?

Re : macro xlsm qui enregistre le fichier de sortie en xls

Bonjour,
Des idées, c'est pas ce qui manque...par contre un bout de fichier...
As tu au moins essayé de faire la manip avec l'enregistreur de macros ?
Pourquoi enregistrer des copies ?
A+
kjin

Re : macro xlsm qui enregistre le fichier de sortie en xls

Oui, j'ai essayé l'enregistreur ne macro, et cela ne fonctionne pas.

J'ai mis dans mon message les bouts de programmation.

La macro sert à créé quelques 400 rapports différents, selon des strates précises, c'est pour cela que le fichier me crée une copie du gabarit.

Re : macro xlsm qui enregistre le fichier de sortie en xls

Bonsoir,

sebastienb à dit:

J'ai mis dans mon message les bouts de programmation.

Cliquez pour agrandir...

Si tu t'obstines, je passe la main
Inutile de faire passer un fichier de 500 000 lignes ! 🙄
A bon entendeur...
kjin 😡