Discussion :

[mary_am]

j'ai testé avec savecopyas mais le soucis c'est que comme c'est une copie ca enregistre en xlsm (dans le même format que le fichier d'origine). Même en mettant xls à la fin quand j'ouvre le fichier j'ai un message d'erreur qui me préviens que l'extension n'est pas la bonne

[clementmarcotte]

Bonjour,

La parade que j'ai trouvé en utilisant savecopyas est de récupérer le fichier copié, de l'enregistrer en xls, et d'effacer la copie.
Ton fichier d'origine reste ouvert, non modifié et en sécurité. Ce sera à toi de l'enregistrer et de le fermer.
Avec les commentaires, cela devrait être assez clair.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton2_Click()
    'à adapter pour l'utiliser sans cliquer un bouton
    'Je prends pour acquis que c'est le classeur actif
    'qui est enregistré avec une copie en xls
    'À adapter au besoin
    Dim nom As String
    nom = ActiveWorkbook.Name
    Dim sépare As Integer
    sépare = InStr(nom, ".")
    'le nouveau nom est temporaire
    'Cela permet de garder la trace du fichier
    'qui a été créé avec savecopyas
    Dim nouveaunom As String
    nouveaunom = "Copie de" & nom
    ActiveWorkbook.SaveCopyAs (nouveaunom)
    'Une fois que le fichier a été copié
    'on l'ouvre pour le convertir en xls
    Workbooks.Open Filename:=nouveaunom
    'On reprend le nom d'origine et le point
    'Puis on y met la nouvelle extension
    'Je viens de penser qu'un simple replace aurait pu faire l'affaire
    'mais je viens de décider que je suis trop paresseux pour reprendre le tout.
    nom = Left(nom, sépare)
    nom = nom & xls
    'On enregistre en xls et on ferme
    Workbooks(nouveaunom).SaveAs Filename:=nom, FileFormat:=xlExcel8
    Workbooks(nom).Close
    'On efface le fichier obtenu avec savecopyas
    'puisque la version xls est maintenant disponible
    Kill (nouveaunom)
End Sub

[mary_am]

merci clementmarcotte pour ton aide

J'avoue que je suis pas très doué en vba alors ma question peut te paraître bête mais quand je fais tourner la code j'obtiens une erreur : erreur d'exécution 9 l'indice n'appartient pas à la sélection

Code :

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

1
2
3
 'On enregistre en xls et on ferme
    Workbooks(nouveaunom).SaveAs Filename:=nom, FileFormat:=xlExcel8
    Workbooks(nom).Close

[clementmarcotte]

Bonjour,

Essaie en mettant une espace entre "=" et nom

Code :

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

Workbooks(nouveaunom).SaveAs Filename:= nom, FileFormat:=xlExcel8

[mary_am]

Bonjour

(désolé pour le temps de réponse j'avais pas accès à mon ordi)
J'ai essayé ce que tu m'as dit mais l'erreur est toujours la :/

[mary_am]

Finalement j'ai recommencé sur un nouveau fichier excel et ca a fonctionné parcontre après avoir lancé la macro j'obtiens pas un fichier xls mais un fichier sans format que je n'arrive pas à ouvrir