Discussion :

[chito79000]

Bonjour,

je rencontre un problème à l'ouverture d'un fichier qui a été créé par un code VBA.
Lorsque la macro est terminée et que je souhaite ouvrir le fichier pour y travailler, j'ai un popup qui s'affiche avec le message suivant :
Le format du fichier que vous tentez d'ouvrir "nom du fichier", est différent de celui spécifié par l'extension de fichier. Assurez vous que le fichier n'est pas endommagé et qu'il provient d'une source fiable avant de l'ouvrir. Souhaitez vous ouvrir le fichier maintenant ?

Voila mon code :

Code :

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

1
2
3
4
5
6
7
8
 
      variable= ActiveCell.Value
    Sheets("feuil3").Visible = True
    Worksheets(Array(variable, "feuil3")).Copy
    Sheets(nom).Move Before:=Sheets(1)
    Chemin = "chemin"
    ActiveWorkbook.SaveAs Chemin & [A1] & "complément nom du fichier" & ".xls"
    ActiveWorkbook.Close savechanges:=True

[Sebphyto]

Salut,

Quel version d'Excel possèdes-tu?

Avec Excel 2007, les fichier .xls s'ouvrent en mode de compatibilité.
Si tu es sûr que ton fichier est un classeur Excel, essaie de changer l'extension .xls (Excel 93-2003) par .xlsx (Excel 2007-2013) ou même par .xlsm (prenant en charge les macros).

Retiens nous au courant

Seb

[chito79000]

Je possède Excel 2010.

J'ai essayé avec ceci :

Code :

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

ActiveWorkbook.SaveAs Chemin & [A1] & "complément nom du fichier" & ".xlsm"

Sauf que cela ne fonctionne pas, message d'erreur "erreur d'exécution '1004'....

[Sebphyto]

Re,

Ton code

Code :

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

ActiveWorkbook.SaveAs Chemin & [A1] & "complément nom du fichier" & ".xlsm"

Essai avec celui-ci:

Code :

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

ActiveWorkbook.SaveAs Filename:=Chemin & [A1] & "complément nom du fichier" & ".xls, FileFormat:=56

ou

Code :

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

ActiveWorkbook.SaveAs Filename:=Chemin & [A1] & "complément nom du fichier" & ".xls, FileFormat:=xlExcel8

FileFormat:=56 ou FileFormat:=xlExcel8 : Indique le format de fichier à utiliser pour l'enregistrement de la feuille de calcul.

a+

[chito79000]

Merci beaucoup ça a l'air de fonctionné !!!!

[Sebphyto]

De rien, mais pense à

Au plaisir