Save copy as et format .xlsm

[nonoTT]

Bonjour
J'ai une macro au format .xlsm.
Dans cette macro j'ai un "save copy as" qui me pêrmet d'enregistrer le fichier dans un autre répertoire au format .xlsx.
Le problème est que le fichier enregistré ne s'ouvre pas car excel me dit qu'il n'est pas au bon format.
Voici la macro :

Sub sauvegarde ()
Repertoire = ThisWorkbook.Path
sousRépertoire = nomois & ".2013 Récap CQI " & nommois & " 2013"
Fichier = "Recap TK CIQ-" & nommois & " 2013.xlsx"
ActiveWorkbook.SaveCopyAs Repertoire & "/" & sousRépertoire & "/" & Fichier       
End Sub

Cordialement.

 

[Guest]

Re : Save copy as et format .xlsm

Bonjour,

Comme tu enregistres une copie d'un fichier .xlsm la copie doit être également .xlsm et non .xlsx !

A+

 

[nonoTT]

Re : Save copy as et format .xlsm

Merci de votre réponse.
Et il y a t-il un moyen d'enregistrer au format .xlsx en modifiant la macro.
Cordialement.

 

[Guest]

Re : Save copy as et format .xlsm

Re,

Avec SaveAs.

SaveAs copy le classeur sous un autre nom (éventuellement un autre format), ferme le classeur d'origine et conserve ouvert le nouveau classeur.

dans la macro ci-dessous:
1 - Enregistrement du classeur d'origine (qui contientla macro)
2 - Récupération du nom complet du classeur d'origine
3 - Sauvegarde du fichier sous son nouveau format (les macros n'existent plus à l'intérieur) sauf sur la copie temporaire de travail (excel travail toujours sur des fichiers temporaires). Le classeur d'origine est fermé.
4 - réouverture du classeur d'origine (xlsm)
5 - fermeture de la copie sans les macros du fichier temporaire.

Sub SaveXlsx()
    Dim nom As String
    
    Application.DisplayAlerts = False
    With ThisWorkbook
        .Save
        nom = .FullName
        .SaveAs Replace(nom, "xlsm", "xlsx"), xlWorkbookDefault
        Workbooks.Open nom
        .Close
    End With
    Application.DisplayAlerts = True
End Sub

A+

 

[nonoTT]

Re : Save copy as et format .xlsm

Merci
La macro ne fonctionne pas correctement.
Le fichier sans macro n'est pas enregistré dans le répertoire attendu et le fichier .xlsm a une erreur en ouverture "excel a rencontré un contenu illisible ..."
Cordialement.

 

[Guest]

Re : Save copy as et format .xlsm

Bonjour,

J'ai pris le nom et le chemin du fichier original mais tu peux changer si tu veux dans copyAs, l'important étant de laisser la variable nom avec le nom d'origine du fichier pour pouvoir le réouvrir.

Si ton .xlsm a rencontré une erreur ben, ch'ai pas, chez moi cela fonctionne.

A+

 

[nonoTT]

Re : Save copy as et format .xlsm

Je n'ai pas bien compris. Il faut que je garde ma ligne de code suivante :
ActiveWorkbook.SaveCopyAs Repertoire & "/" & sousRépertoire & "/" & Fichier
Cordialement.

 

[Guest]

Re : Save copy as et format .xlsm

re,

Non, un mélange de ta ligne avec saveAs:

        .SaveAs Repertoire & "/" & sousRépertoire & "/" & Fichier, xlWorkbookDefault

A+