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

[ESVBA]

Oui, utilise l'enregistreur de macro sous 2007. On obtient ceci auquel il faut ajouter la suppression des alertes (boite de dialogue) :

Code :

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

1
2
3
4
5
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Admin\Bureau\essa.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True

Mais, il reste le problème que les boutons seront visibles et provoqueront une erreur si l'on clique dessus. Il faut les supprimer par macro. N'y a-t-il que des boutons à supprimer ?

A voir.

ESVBA

[patricktoulon]

bonjour

l'extention xls ----->>>>>excel 2000 a 2003

l'extention xlsx c'est pour les classeur sans macro de excel 2007

l'extention xlsm et xltm pour les classeur avec macro de excel 2007

cependant l'extention xls accepte les macros
donc je ne comprend pas tres bien ton probleme

cela di dans ton code que tu a cite tu copy simplement un feuillet et non pas le classeur complet donc le classeur obtenue n'a pas de userform ou macro
donc la encore je ne comprend pas ton problem
puisque le classeur n'a pas de macro a quoi ca sert de l'enregistrer au format avec macro

voila maintenant si le classeur obtenu doit aussi posseder l'userform que tu utilise tu dois soit exporter le projet ou simplement sauver le classeur d'origine sous un autre nom et suprimer le cas echeant ce que tu veux dans le nouveau classeur

voila

[Lufia]

patricktoulon,

Si tu regarde mon message d'origine, tu trouveras l'explication suivantes:

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.

Tu m'indique que

l'extention xls accepte les macros

ce que je sais. Je veux totuefois enregistrer mon fichier en format 2007 donc .xlsx

ESVBA,
Merci de ton aide, comme je n'ai pas encore 2007 à portée de main, il m'est difficile de faire des test avec l'enregistreur! Je testerai avec 2007 ta solution dès que possible!
Pour les boutons, oui il y en a seulement 2, mais encore là je fige... comme les boutons sont maintenant dans un nouveau classeur, j'ai de la difficulter à aller les supprimer...


Merci beaucoup de ton aide!
Geneviève

[ESVBA]

La question est : où est le code des boutons ?

• Dans la feuille contenant les boutons
• Dans un module externe
• Dans "ThisWorkbook"

Il n'y a pas à ma conaissance de problème pour supprimer les boutons sur un autre classeur :
1) j'ouvre le nouveau classeur
2) je copie la feuille avec les boutons
3) je supprime les boutons en donnant les références sur le nouveau classeur
4) je ferme le nouveau classeur avec sa feuille.
5) Je me retrouve avec mon modèle de feuille.

http://excel.developpez.com/faq/inde...ouveauClasseur
http://excel.developpez.com/faq/inde...eObjFormulaire

ESVBA

[-={-_-}=-]

Salut,
en ce qui concerne ton problème d'enregistrement (SAVE AS) c'est tout à fait normal sous XL 2007.
Tu dois absolument préciser le format.
voici la liste de ceux que je connais:

Code :

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

1
2
3
4
'            Case "xls": FileFormatValue = 56
'            Case "xlsx": FileFormatValue = 51
'            Case "xlsm": FileFormatValue = 52
'            Case "xlsb": FileFormatValue = 50

et ca donne donc

Code :

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

Workbooks(sWk).SaveAs Left(File, Len(File) - 3) & "xlsx", 51

Pour les boutons ca se déclare sur la feuille

Donc ca donne quelque chose comme ca

Code :

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

Workbooks(sWk).Sheets(i).CommandButton.Visible=False

Le souci c'est qu'il n'y a pas de méthode Delete pour les CommandButton
Il faut donc ruser un peu. Voici comment faire

Code :

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

1
2
3
4
5
6
Dim oOLE As OLEObject
For Each oOLE In ThisWorkbook.Sheets(i).OLEObjects
    If TypeName(oOLE.Object) = "CommandButton" Then
        oOLE.Delete
    End If
Next

J'espère t'avoir aider un peu