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

[patricktoulon]

bonjour a tous

tu peu aussi l ors de l'enregistrement
metre tous tes boutons a l'etat false

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
private sub enregistrer ()'a condition que le nom du bouton soit "enregistrer"
application.displayalerts=false
enregistrer.visible=false 'et repeter l'operation pour tout les boutons 
 
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
       ActiveWorkbook.SaveAs Filename:= "C:\Users\patrick\Desktop\nouveau classeur.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

et la tu remet tout les boutons a l'etat visible=true
voila en gros tu a
rendu tout tes boutons invisible dans le classeur d'origine

copier la feuille 1 dans un nouveau classeur qui dans cet exemple porte le nom de "nouveau classeur" au format xlsx(donc sans macro) le fait de metre "application displayalerts=false fera que aucune fenetre d'alert sera declenchée
ensuite active windows.close ferme ce nouveau classeur
tu te retrouve donc avec le classeur d'origine sans les boutons a ton ecran
tu remet donc tout les boutons a l'etat visible =true
exemple:

Code :

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

1
2
 
 enregistrer.visible=true

voila je crois que je peu pas faire plus simple comme explication

au plaisir

voila

[Lufia]

Bonjour à vous tous!

D'abord, un grand merci pour vos réponses qui sont toutes très appréciées! Je tiens à m'excuse de ne pas vous avoir répondu plus rapidement, des événements hors de mon controle m'ont obligé à laisse mon projet de coté depuis quelques temps.

J'ai testé les 2 dernières idées pour mes boutons
- Visible=False
- oOLE.Delete

Les deux fonctionnent bien. Parcontre, la macro reste présente dans le document et Excel souhaite activer les macros à l'ouverture du fichier. Y a-t-il moyen de supprimer les macros en même temps que le bouton avec oOLE.Delete?

Pour la sauvegarde en 2007, je ferai mes tests lorsque nous auront fait la transition. En attendant, je prend bonne notes de vos suggestions.

Merci encore de prendre le temps de me trouver des solutions!!

Bonne journée!
Geneviève

[-={-_-}=-]

Rebonjour

tu peux essayer un code du genre pour deleter tout ton vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DeleteAllVBA()
    Dim x               As Integer
 
    With ActiveWorkbook.VBProject
        For x = .VBComponents.Count To 1 Step -1
            .VBComponents.Remove .VBComponents(x)
        Next x
        For x = .VBComponents.Count To 1 Step -1
            .VBComponents(x).CodeModule.DeleteLines _
            1, .VBComponents(x).CodeModule.CountOfLines
        Next x
    End With
    On Error GoTo 0
End Sub

A adapter a ta situation....
Il n'est pas des plus propre mais je pense qu'avec ce bout de code tu vois ou aller chercher si tu veux affiner ton developpement.

Pour enlever les macros à l'ouverture du fichier
Met au début de ta macro (celle que tu as déjà dev)

Code :

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

Application.EnableEvents=false

et tu le repasse à True à la fin.

Dis moi si tu as encore des soucis.