enregistrement VBA xls en xlsx Résolu/Fermé

Question

Bonjour, 

Me revoici pour une ultime question (jusqu'à la prochaine). ccm81 m'a créé une macro VBA pour un planning et enregistrer au format xls. (256 colonnes max). Lorsque je transfère cette macro sur mon fichier en xlsx (besoin de plus de 256 colonnes) je ne peux pas l'enregistrer.
J'ai essayé d'enregistrer sous un format xlsm (comme vu dans certaines réponses du forum) mais cela ne fonctionnent toujours pas.
Existe-t-il un moyen d'enregistrer une macro xls sous un format xlsx ?

Mike-31 · Answer

Bonjour,

si ton fichier contient des codes VBA, tu ne peux pas utiliser ou enregistrer sous l'extension XLSX mais sélectionner l'extension XLSM 
ensuite si tes codes ne fonctionnent pas il s'agit d'un niveau de protection trop élevé
alors commence par enregistrer sous le fichier et donne lui l'extension XLSM
puis onglet Développeur/module Code/Sécurité des macros/Activer toutes les macros(non recommandé) .........
enregistre le fichier avant de le fermer et de l'ouvrir à nouveau
accepte l'activation des macros et teste ton fichier
si tout fonctionne je t'expliquerai comment remonter le niveau de protection 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

sethin · Answer

Merci.

Tout fonctionne au format xlsm. J'ai pu conserver la macro et toutes mes colonnes.

Mike-31 · Answer

Re, 

as tu contrôlé le niveau de protection de tes macros

regarde la procédure que j'ai rédigé pour relever le niveau et travailler avec un niveau de sécurité élevé pour ta sécurité et celle de ton système
https://www.commentcamarche.net/faq/21009-excel-signature-numerique

Mike-31 · Answer

Re,

le problème est que tu as plusieurs mise en forme conditionnelles, je regarde voir comment contourner le problème

Mike-31 · Answer

Re,

sous ta macro colle ce code

Public Sub MFC()Dim plage As RangeSet plage = Range("E4:OK60")Cells.FormatConditions.Delete    plage.FormatConditions.Add Type:=xlExpression, Formula1:= _        "=JOURSEM(E$4;2)>5"    plage.FormatConditions(plage.FormatConditions.Count).SetFirstPriority       plage.FormatConditions(1).Interior.ColorIndex = 15    plage.FormatConditions(1).StopIfTrue = False        plage.FormatConditions.Add Type:=xlExpression, Formula1:= _        "=NB.SI('FERIES-TAOPM'!E2:E16;PLANNING!E4)"        plage.FormatConditions(plage.FormatConditions.Count).SetFirstPriority        plage.FormatConditions(1).Interior.ColorIndex = 19        plage.FormatConditions(1).Font.ColorIndex = 3        plage.FormatConditions(1).StopIfTrue = False    plage.FormatConditions.Add Type:=xlExpression, Formula1:= _        "=NB.SI('FERIES-TAOPM'!$B$2:$B$14;E$4)"    plage.FormatConditions(plage.FormatConditions.Count).SetFirstPriority       plage.FormatConditions(1).Interior.ColorIndex = 19       plage.FormatConditions(1).Font.ColorIndex = 3    plage.FormatConditions(1).StopIfTrue = FalseEnd Sub
 
ensuite à la fin de ta macro Public Sub defusionner() juste avant End Sub
saisir Call MFC
comme cela
Next cel
Call MFC
End Sub

Mike-31 · Answer

Re,

alors si tes attentes sont satisfaites, passe le statut de cette discussion pertinente en résolu qu'elle serve de référence
ou confirme le nous qu'on le fasse pour toi

Enregistrement VBA xls en xlsx

6 réponses

Discussions similaires

Newsletters