Workbook open
Boujour à tous
Je vous expose ma problèmatique
J'ai créé dans mon classeur source cette suite:
Private Sub Workbook_Open()
Sheets("FICHIER 1").Select
CLASSER
Range("B3:F3").Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Range("B3").Select
Workbooks.Open Filename:="C:\Documents and Settings\HP_Propriétaire\Mes documents\MON CLASSEUR2.xls"
End Sub
Cela fonctionne à merveille mais voila lorsque j'ai fini de saisir mes informations dans mon classeur source; je procède à un enregistrement sous un autre nom.
C'est là que ça se complique, je souhaite maintenant pouvoir ouvrir se nouveau classeur sans que la fonction Workbook open ne s'active est surtout sans manipilation du style "Shift"
Comment puis-je procéder ?
Merci à tous, je compte sur votre savoir faire
PHIL61
Salut le forum
Tu ajoutes une condition à ta macro
Private Sub Workbook_Open()
If activeworkbook.FullName <> "C:\NomduFichierOriginal.xls" then exit sub
'....
End SubOu tu supprimes simplement le code
'Ajoute une référence à Microsoft Visual Basic For Application 5.3 Extensibility
Dim CodeMod As CodeModule
Dim vbComp As VBComponent
' Remove ThisWorkbook code
Set CodeMod = ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
With CodeMod
.DeleteLines 1, .CountOfLines
End WithMytå
Merci pour la réponse.
La solution d'ajouter une condition me plais bien.
Malheureusement Workbook_open ne s'active plus du tout.
Quant à le deuxième proposition, je suis un peu dépassé.
Merci encore
-- 18 Juil 2011, 23:54 --
En parcourant ma question je m'aperçois que je n'est été jusqu'au bout de ma demande.
Je souhaite effectivement que workbook_open ne s'active pas dans le nouveau classeur mais surtout que la macro qui s'y attache ne s'active pas non plus. Encore plus clair, dans ce nouveau classeur je souhaite que ma compilation soit entièrement inactive.
Bonne nuit à tous
Et encore et toujours merci