Discussion :

[lionel86500]

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]

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]

Bonjour Philippe PONS

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

[kiki29]

Salut,

Code :

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

FileFormat:=xlExcel8

, de plus les fichiers"xlsx" sont des fichiers sans macros.

[lionel86500]

Bonjour KIKI29

Merci ca fonctionne sans problème.
je ne connaissais pas cette option de fileformat

Merci encore

[joe.levrai]

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)

[lionel86500]

Bonjour JOE.LEVRAI

Oui c'est ce qu'il faut faire KIKI29 viens de me donner la solution.

Merci de ta réponse