Bonjour,
j'ai créé cette petite macro afin de créer un fichier Excel automatiquement
cela fonctionne parfaitement par contre lorsque j'ouvre mon fichier créé il y a ce message
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
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
Partager