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