Création d'un fichier Excel avec une macro

**lionel86500** · 22/02/2016, 11h17

Bonjour,

j'ai créé cette petite macro afin de créer un fichier Excel automatiquement

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
 
Option Explicit
Dim schemin As String
Dim snomfic As String
 
Sub Macro1()
'
' Macro1 Macro
'
 
schemin = Range("B4")
snomfic = Range("B5")
 
Workbooks.Add
 
Range("A1") = 1
Range("A2") = "Affectation"
 
ActiveWorkbook.SaveAs Filename:=schemin & snomfic, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
 
MsgBox "Fichier créé"
 
End Sub

cela fonctionne parfaitement par contre lorsque j'ouvre mon fichier créé il y a ce message

LE FORMAT DU FICHIER QUE VOUS TENTEZ D OUVRIR "textlc.xls" EST DIFFERENT DE CELUI SPECIFE PAR L EXTENSION DE FICHIER. ASSUREZ VOUS QUE LE FICHIER N EST PAS ENDOMMAGE ET QU IL PROVIENT D UN SOURCE FIABLE AVANT DE L OUVRIR. SOUHAITEZ VOUS OUVRIR LE FICHER MAINTENANT.
Bouton OUI, NON, AIDE

en cliquant sur OUI le fichier s'ouvre.
si le fichier est nommé XLSX cela ne le fait pas.
je pense donc que ce message est du à la version que j'ai.
Pour info ma version d'Excel est 2007

je voudrais savoir s'il est possible de supprimer ce message afin que le fichier s'ouvre sans rien demandé ?

Dans l'attente de vous lire

Lionel

**Philippe PONS** · 22/02/2016, 11h27

Salut,

Essaie

Code :

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

Application.DisplayAlerts=False

et dans ta variable sNomFic ne spécifie pas l'extension du fichier.
Laisse Excel le faire!

Cordialement,

**lionel86500** · 22/02/2016, 11h31

Bonjour Philippe PONS

Ta solution ne fonctionne pas puisque dans le nouveau fichier Excel créé il n'y a pas de macro.

**joe.levrai** · 22/02/2016, 11h37

Bonjour,

tu as deux solutions :

1) dans ta cellule contenant le nom du fichier : spécifier une extension .xlsm (ou .xlsx si pas de macro dans le fichier à créer)

2) si tu veux conserver le format .xls alors tu dois modifier l'argument FileFormat de la méthode SaveAs : indiquer "xlExcel8" (ou la valeur "56" à la place)