Création d'un fichier Excel avec une macro
Bonjour,
j'ai créé cette petite macro afin de créer un fichier Excel automatiquement
Code:
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
