Discussion :

[Lufia]

Bonjour!

J'ai un fichier qui a été créé en XL-2003 qui sera sous peu utiliser en XL-2007. J'ai testé mes macros à l'avance sur un poste test (puisque ce fichier est utilisé par plusieurs utilisateurs) et j'ai relevé un problème.
J'ai un bouton qui contien la macro suivante qui a pour but de copier une feuille dans un nouveau classeur, enregistrer le nouveau classeur puis le fermer pour revenir au classeur d'origine :

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
Private Sub CommandButton1_Click()
Dim NoPost As String, VariableNom As String
Dim FileD As FileDialog
Set wrk = Application.Workbooks.Add(1)
 
ThisWorkbook.Sheets("Rapport PostMortem").Copy Before:=wrk.Sheets(1)
Application.DisplayAlerts = False
wrk.Sheets("Feuil1").Delete
Application.DisplayAlerts = True
 
NoPost = ThisWorkbook.Sheets("Rapport PostMortem").Range("C3").Value
VariableNom = "Rapport PostMortem no " & NoPost
 
Set FileD = Application.FileDialog(msoFileDialogFolderPicker)
If FileD.Show = True Then
    wrk.SaveAs Filename:=FileD.SelectedItems(1) & "\" & VariableNom
End If
wrk.Close
End Sub

Mon problème est qu'en XL-2007, il y a plusieurs type de fichier XL dont un format avec macro et un format sans macro. Comme la feuille qui est copiée dans le nouveau classeur contient des boutons (donc des macros), lorsque j'enregistre XL me donne l'erreur placée en pièce jointe.

Y a-t-il un moyen dans mon code de définir le format de fichier "Excel sans macro" qui serait en fait l'équivalent de cliquer sur le bouton "Oui" à ma fenêtre d'erreur tout en restant transparent pour l'utilisateur?

Un gros merci à l'avance!
Geneviève