FileFormat Excel 2013

**nounours1952** · 10/07/2014, 16h54

Bonjour,

dans ce fil

http://www.developpez.net/forums/d12...-excel-2010-a/

vous expliquez comment enregistrer correctement un fichier avec les nouvelles versions d'Excel.

J'ai pris l'exemple suivant :

Code :

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

1
2
    ActiveWorkbook.SaveAs Filename:="C:\Transfert\Test.xlsb", _
                          FileFormat:=xlExcel12

et l'ai adapté à mon code.

Code :

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

ActiveWorkbook.SaveAs FileName:=Fichier & ".xlsb", FileFormat:=xlExcel12

Tout cela fonctionne très bien.

Mais si j'utilise le code suivant :

Code :

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

ActiveWorkbook.SaveCopyAs FileName:=Fichier & ".xlsb", FileFormat:=xlExcel12

j'obtiens l'erreur "argument nommé introuvable" (FileFormat:=).

La seule différence est le "SaveCopyAs".

J'ai lu, par ailleurs, qu'il n'était pas possible de changer l'extension si l'on utilise le SaveCopyAs, ce qui peut paraître logique de prime abord. Par contre, je peux bien faire un .PDF sans rencontrer les mêmes problèmes. Là je suis coincé, car si je fais un SaveAs tout court, je me retrouve avec un classeur ouvert au nouveau nom, ce qui ne correspond pas à mon objectif. Le nouveau classeur généré par VBA doit porter un autre nom et ne contenir qu'une seule feuille contenant les résultats des opérations (pas de formules).

Si j'utilise le code suivant :

Code :

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

ActiveWorkbook.SaveCopyAs FileName:=Fichier & ".xlsb"

j'obtiens bien un fichier Fichier.xlsx ou xlsb, mais il est impossible à ouvrir Excel ne reconnaissant tout simplement pas son extension.

En définitive, mon objectif est le suivant :

Partant du classeur A qui contient une base de donnée
- je fais une recherche sur la base d'un fichier .txt importé
- le produit de la recherche est stocké dans la feuil2 du même classeur
- Cette feuil2 doit être sauvegardée sous un nom contenu dans une variable (Fichier) avec l'extension .xls (à voir si c'est encore nécessaire) ou .xlsb
- tout cela en laissant le Classeur A actif

Est-ce possible et si oui comment ? Je précise que je suis novice en VBA.

Merci d'avance de votre aide.

**Theze** · 11/07/2014, 07h47

Bonjour,

"SaveCopyAs" n'a qu'un argument et c'est "FileName" et le nom dit bien ce qu'il veux dire c'est une copie du fichier et donc, tu ne peux pas en modifier le type mais juste changer son nom.

J'ai lu, par ailleurs, qu'il n'était pas possible de changer l'extension si l'on utilise le SaveCopyAs, ce qui peut paraître logique de prime abord. Par contre, je peux bien faire un .PDF sans rencontrer les mêmes problèmes.

Oui, mais le .pdf tu ne l'ouvre pas avec Excel puisque c'est un tout autre genre fichier !
Si cette feuille (Feuil2) n'est pas obligée de rester dans le classeur, tu peux utiliser la propriété "Move" sans argument pour la déplacer dans un nouveau classeur :

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
 
Sub DeplacerFeuille()
 
    Dim Cls As Workbook
 
    Application.ScreenUpdating = False
 
    'extrait de l'aide :
    'Si vous ne spécifiez ni l'argument Before ni l'argument After, Microsoft Excel crée un nouveau classeur contenant la feuille déplacée.
    Worksheets("Feuil2").Move 'ici, pas d'argument donc, déplacée dans un nouveau classeur
 
    Set Cls = ActiveWorkbook
 
    Cls.SaveAs "C:\Users\Delta-Calor\Downloads\Silve-Herve-Theze.xls"
    Cls.Close
 
    Application.ScreenUpdating = True
 
End Sub

Hervé.

Re,

Ceci bien évidemment est pour le test et j'ai oublié de le modifier, adapte à tes besoins :

Code :

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

1
2
 
Cls.SaveAs "C:\Users\Delta-Calor\Downloads\Silve-Herve-Theze.xls"

Hervé

**nounours1952** · 11/07/2014, 10h34

Bonjour Hervé,

merci pour le code. Je l'ai adapté et ça marche.

Si cette feuille (Feuil2) n'est pas obligée de rester dans le classeur, tu peux utiliser la propriété "Move" sans argument pour la déplacer dans un nouveau classeur

Il eût été bien qu'elle restât dans le classeur d'origine, mais ce n'est pas grave, je la recrée en début de programme.

Voici mon bout de code adapté si ça peut servir à quelqu'un d'autre :

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
'Enregistre le fichier excel
    Application.DisplayAlerts = False 
 
    MsgBox "Attention ce processus peut durer quelques minutes ! Ne l'interrompez pas."
    Sheets("Liste").Activate
 
    Dim Cls As Workbook
 
    Application.ScreenUpdating = False
 
    Worksheets("Liste").Move
 
    Set Cls = ActiveWorkbook
 
    Cls.SaveAs FileName:=Fichier & ".xlsx"
    Cls.Close
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True  
 
   MsgBox "Le fichier a été créé ici : " & Chr(13) & Fichier _
   & Chr(13) & "Vous avez ainsi la possibilité de le modifier/compléter."
 
   MsgBox "Fin de l'opération de création" _
   & Chr(13) & "de la liste pour votre activité " _
   & Chr(13) & Chr(13) & Act

Ce qui m'énerve un peu c'est la lenteur de l'enregistrement du nouveau classeur et de son ouverture. Mais bon, on fera avec !

Encore merci et bonne journée.
Pascal

**Theze** · 11/07/2014, 12h11

Re,

Il eût été bien qu'elle restât dans le classeur d'origine...

il suffit de la copier juste avant le déplacement :

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
 
Sub DeplacerFeuille()
 
    Dim Cls As Workbook
    Dim Fichier As String
 
    Fichier = "C:\Dossier\Mon classeur"
 
    Application.ScreenUpdating = False
 
    'la feuille est dabords copiée
    Worksheets("Feuil2").Copy Worksheets(Worksheets.Count)
 
    'extrait de l'aide :
    'Si vous ne spécifiez ni l'argument Before ni l'argument After, Microsoft Excel crée un nouveau classeur contenant la feuille déplacée.
    Worksheets("Feuil2").Move 'ici, pas d'argument donc, déplacée dans un nouveau classeur
 
    Set Cls = ActiveWorkbook
 
    Cls.SaveAs Fichier & ".xlsx"
 
    Cls.Close
 
    Application.ScreenUpdating = True
 
End Sub

Hervé.

**eriiic** · 11/07/2014, 12h27

Bonjour,

Partant du classeur A qui contient une base de donnée
- je fais une recherche sur la base d'un fichier .txt importé
- le produit de la recherche est stocké dans la feuil2 du même classeur
- Cette feuil2 doit être sauvegardée sous un nom contenu dans une variable (Fichier) avec l'extension .xls (à voir si c'est encore nécessaire) ou .xlsb
- tout cela en laissant le Classeur A actif

Autre façon, tu peux faire Sheets("Feuil2").Copy
Ca te la copie dans un nouveau classeur où tous les formats d'enregistrements te sont accessibles.
Tu termines avec ActiveWorkbook.Close pour te retrouver dans l'ancien classeur intact.

eric

**nounours1952** · 11/07/2014, 15h47

Merci à tous pour vos conseils.

Il eût été bien qu'elle restât dans le classeur d'origine...
il suffit de la copier juste avant le déplacement :

C'est non-seulement souhaitable, mais indispensable, parce qu'après la création d'un nouveau classeur, je crée un .PDF pour la distribution des résultats. Le nouveau classeur Excel est juste là pour apporter des modifications éventuellement nécessaires. Libre ensuite à l'utilisateur de créer un .PDF pour la distribution. J'vais pas vous embêter avec les détails. Il est vrai que cet aspect pourrait également être couvert par le programme. Mais comme tout le monde ne possède pas Excel au moins dans sa version standard, je recherche actuellement une solution indépendante.

Je me suis d'abord essayé à VB.Net et Sql, mais le temps me manquait pour une approche correcte de la programmation et je me suis lamentablement planté ! J'y retourne pendant les vacances, mais je vais aussi faire un tour du côté de Python. Vu le temp qu'il fait généralement sur la côte d'Opale, ce sera une saine occupation.

Cordialement
Pascal