[Excel] Sauvegarder un classeur sans userform

Version imprimable

05/12/2005, 01h32
maketossss

[Excel] Sauvegarder un classeur sans userform

Bonjour à tous,

J'ai un classeur avec un userform de controle d'acces et quelques macros, j'ai utilisé un "savecopyas" avec la date de la veille.
Je souhaites que ma copie (qui me sert d'historique) ne comporte pas d'userform ni de macros.

Y a t'il une solution ?
05/12/2005, 13h06
Igloobel

Salut je vois 2 solutions à ton problème :

1°) Solution 1

Tu mets ton userform dans un autre classseur (avec les macros) et celui qui contiens les données peut alors être sauvegarder comme tu le veux.

2°) Solution 2

Lors de la création de l'historique, tu crés un nouveau classeur et tu y insère une copie des feuilles que tu veux qu'il contienne

Est-ce que c'est ce que tu cherches

Dis-nous si cela te conviens

Igloobel

En mettant le userform et les macros sur un autre classeur, cela fonctionne impec merci !
J'aurai une autre question, quel est le problème avec ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() Sheets("PT CVD NOV 06h00").Select Range("C7:I47").Select Selection.Copy Range("C7").Select Sheets("PT CVD NOV WT").Select Range("C7").Select ActiveSheet.Paste Range("C7").Select End Sub
car il fonctionne bien en tant que macro mais quand je l'affecte un un bouton de controle j'ai une erreur "la methode select de la classe range a échoué" ??

La copie des feuilles de calculs proposée par Igloobell ma paraît la moins dangereuse. Néanmoins, tu peux utiliser une macro
Code:

1 2 3 4 5 6 7 8 9 'Supprimer la macro nommée "MaMacro" dans le "module3" 'ofset Sub supprimerUneMacroPrecise() Dim Debut As Integer, Lignes As Integer With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule Debut = .ProcStartLine("MaMacro", 0) Lignes = .ProcCountLines("MaMacro", 0) '.DeleteLines Debut, Lignes End With End Sub
Trouvé sur le forum (silkyroad ? leroissejp ? bbill ?, megaxel ?...) Je ne me souviens plus

Si ça peut te servir

A+

Second pb : Essaie de supprimer la ligne '****

Code:

1
2
3
4
5
6
7
8
9
Sheets("PT CVD NOV 06h00").Select 
     Range("C7:I47").Select 
     Selection.Copy 
     '*****Range("C7").Select 
     Sheets("PT CVD NOV WT").Select 
     Range("C7").Select 
     ActiveSheet.Paste
     Range("C7").Select 
End Sub

Sinon, je ne vois pas

A+

Citation:
Envoyé par maketossss
En mettant le userform et les macros sur un autre classeur, cela fonctionne impec merci !
J'aurai une autre question, quel est le problème avec ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() Sheets("PT CVD NOV 06h00").Select Range("C7:I47").Select Selection.Copy Range("C7").Select Sheets("PT CVD NOV WT").Select Range("C7").Select ActiveSheet.Paste Range("C7").Select End Sub
car il fonctionne bien en tant que macro mais quand je l'affecte un un bouton de controle j'ai une erreur "la methode select de la classe range a échoué" ??
lorsque tu écris Sheets("PT CVD NOV 06h00").Select tu fais référence à la feuille "PT..." du classeur actif.. si ton bouton n'est pas dans le même classeur ... tu doit tout d'abords activer le bon classeur ...
workbooks("MonClasseur").activate...
:roll: :wink:

Bonsoir,
Modifie ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
 
Sheets("PT CVD NOV 06h00").Select
Range("C7:I47").Select
Selection.Copy
Range("C7").Select
Sheets("PT CVD NOV WT").Select
Sheets("PT CVD NOV WT").Range("C7").Select
ActiveSheet.Paste
Sheets("PT CVD NOV WT").Range("C7").Select
 
End Sub

jpleroisse

06/12/2005, 11h00
Igloobel

bbil a été plus vite que moi Je suis entièrement d'accord avec ce qu'il a dit :

Citation:

lorsque tu écris Sheets("PT CVD NOV 06h00").Select tu fais référence à la feuille "PT..." du classeur actif.. si ton bouton n'est pas dans le même classeur ... tu doit tout d'abords activer le bon classeur ...
workbooks("MonClasseur").activate...

"MonClasseur" contenant ladite feuille :"PT CVD NOV 06h00"

Alors ... Cela fonctionne t'il au final

ouskel'n'or a dit :

Citation:

La copie des feuilles de calculs proposée par Igloobell ma paraît la moins dangereuse...

Peux-tu me dire pourquoi elle te parait moins dangeureuse ?
(Toujours avide d'apprendre :P merci :wink: )

Igloobel
06/12/2005, 11h47
ouskel'n'or

Citation:

La copie des feuilles de calculs proposée par Igloobell ma paraît la moins dangereuse...
Peux-tu me dire pourquoi elle te parait moins dangeureuse ?
(Toujours avide d'apprendre merci )

Hello Igloobel, je te réponds...
Par comparaison avec la solution que tu proposais (la copie des feuilles) la suppression de macros peut être dangereuse lors de la mise au point de la macro qui fait ça... Ça n'allait pas plus loin.
Ceci dit, maketossss demandant "une" et non "la" solution, je lui ai également proposé celle-là :wink:

Toujours avide ? :lol:

A+
06/12/2005, 23h23
maketossss

En fait ce ne sont pas les macros qui me gène le plus, je souhaiterai "simplement" que dans mon historique, le classeur ne comporte pas de userform avec controle d'accès

bonjour

cet exemple permet de supprimer l'Userform dans le classeur

Code:

1
2
3
4
5
6
Sub suppressionUSF()
'necessite d'activer la reference Microsoft Visual Basic for Applications Extensibility 5.3
Dim VBComp As VBComponent
Set VBComp = ThisWorkbook.VBProject.VBComponents("UserForm1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp
End Sub

cordialement
michel

07/12/2005, 12h15
maketossss

bonjour,

Ou dois je mettre ce code, dans le userform ou dans la feuille qui contient le "savecopyas" ?

Après mure réflexion, tu dois le mettre dans le Sub Workbook_open() de ton fichier avec une condition sur le nom du fichier
Si le fichier actif a un nom différent de ton fichier NomFich dans "saveas (Nomfich)", alors tu lances la macro.
Dans le cas inverse, tu t'abstiens.
Code:

1 2 3 4 5 6 7 Sub Workbook_open() Set LeFich = Application.ActiveWorkbook With LeFich If LeFich.Name <> NomDuFichierDorigine Then suppressionUSF End With Set LeFich = Nothing End Sub
A+

Ca commence à devenir compliqué, je suis completement largué !!!

Je récapitule, mon code dans Workbook_Open() doit être le suivant ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Workbook_Open()
Set LeFich = Application.ActiveWorkbook
     With LeFich
          If LeFich.Name <> consignes Then suppressionUSF
     End With
     Set LeFich = Nothing
 End Sub
 
Private Sub suppressionUSF()
Dim VBComp As VBComponent
Set VBComp = ThisWorkbook.VBProject.VBComponents("UserForm1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp
UserForm1.Show
End Sub

08/12/2005, 09h56
ouskel'n'or

Hello,

Non, là tu as un problème : Si Consignes est une variable contenant le nom de ton fichier pricipal, tu dis en fait :

Code:

If LeFich.Name <> "" Then suppressionUSF

Quand le fichier a été sauvegardé sous un autre nom, ta macro ne conserve pas le nom du fichier d'origine. Ta variable non plus.

Tu dois mettre le nom du fichier principal lui-même "NomDuFichier"

C'est de ma faute, j'aurais dû mettre des guillemets. Sinon, ça semble correct.

A+
10/12/2005, 11h37
ouskel'n'or

Hello,

Tu t'en es sorti ?
On s'inquiète...

A+
10/12/2005, 16h41
maketossss

En fait j'ai contourner le probleme en utilisant un autre classeur qui vient tester si le classeur qui m'interresse est ouvert ou pas, avec une message box si tel est le cas

Merci tout de meme :wink: