Discussion :

[maketossss]

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 ?

[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

[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 :

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

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é" ??

[ouskel'n'or]

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

Code :

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

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+

[ouskel'n'or]

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

Code :

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

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+

[SfJ5Rpw8]

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 :

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

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...

[leroissejp]

Bonsoir,
Modifie ton code

Code :

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

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

[Igloobel]

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

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 :

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 )

Igloobel

[ouskel'n'or]

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à

Toujours avide ?

A+

[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

[SilkyRoad]

bonjour

cet exemple permet de supprimer l'Userform dans le classeur

Code :

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

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

[maketossss]

bonjour,

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

[ouskel'n'or]

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 :

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

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+

[maketossss]

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

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

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
 
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

[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 :

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

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+

[ouskel'n'or]

Hello,

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

A+

[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