macro / xlsm

Question

Bonjour,
Je ne maîtrise pas mon code vba...
Ainsi je voudrais exécuter le code seulement à la création de fichier à partir du modèle... mais ...
ne pas exécuter le code lors de l'ouverture du modèle pour modification...
Avez vous une idée ?

ucfoutu · Answer

Bonjour,
J'ai personnellement des difficultés à comprendre ce que tu veux exactement dire.
A ce stade et sans autres précisions plus claires de ta part (et surtout : sans voir ton code actuel), je dirais que l'utilisation d'une variable booléenne devrait faire ton affaire (à false au départ, à True ensuite ... et une expression conditionnelle sur cette variable (si true ou si false))
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

vg00 · Answer

Alors j'ai fait un fichier modèle (xlsm).
il contient un code qui remplis des champs automatiquement à la création de fichier depuis le modèle (double clic sur fichier/clic droit nouveau)
Par contre si je veux modifier mon modèle (clic droit ouvrir) le code se déroule aussi et mon modèle vide se rempli et je dois effacer avant d'enregistrer...
Suis-je plus clair ?

ucfoutu · Answer

relis-moi :
".... (et surtout : sans voir ton code actuel) ...."
 montre-le, ce code.

vg00 · Answer

si vraiment ça aide allons y
Option ExplicitFunction login() As String    login = Application.UserNameEnd Function Private Sub Workbook_Open()Dim Nom As String, Fonction As String, Tel As String, Fax As String, Mail As String, Offre, Version As StringSelect Case login    Case "gilles"        Nom = "x"        Fonction = "x"        Tel = "x1"        Fax = "x"        Mail = "x"        Offre = Year(Date) & "-0000C/x"    Case "y"        Nom = "y"        Fonction = "y"        Tel = "y"        Fax = "y"        Mail = "y"        Offre = Year(Date) & "-0000C/y"    'etc autres cases supprimés dans cet exemple    Case Else        MsgBox "Login non répertorié"    End SelectVersion = ThisWorkbook.CustomDocumentProperties("Version").Value    If Nom <> "" Then        'Dim x As Long       ' For x = 1 To 3                Sheets("Offre").Select        'With Sheets(x)            Cells(1, 19).Value = Version            Cells(2, 4).Value = Offre            Cells(3, 4).Value = Date            Cells(8, 14).Value = Nom            Cells(9, 14).Value = Fonction            Cells(10, 14).Value = Tel            '.Cells(10, 3).Value = Fax            Cells(11, 14).Value = Mail            Cells(13, 14).Value = "Son NOM"            Cells(14, 14).Value = "Commercial"            Cells(15, 14).Value = "Son portable"            Cells(16, 14).Value = "Son mail"        'End With        'Next        End If        Sheets("Offre").Select    Range("C9").Select'Ce qui suit efface toute la procédure événementielle "Workbook_Open"Dim StartLine As Long, LineCount As LongOn Error Resume NextIf ThisWorkbook.Path = "" Then    If ThisWorkbook.VBProject.Protection Then Exit Sub    With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule        StartLine = .ProcStartLine("Workbook_Open", 0)        If StartLine Then            LineCount = .ProcCountLines("Workbook_Open", 0)            .DeleteLines StartLine, LineCount        End If    End WithEnd IfThisWorkbook.CustomDocumentProperties("Version").ValueEnd Sub 
 
--

ucfoutu · Answer

Je travaillerais alors en "miroir" (sur une copie abracadabra.xlsm de mon modèle modele.xlsm) et n'exécuterais ce code que si abracadabra.xlsm.

Macro / xlsm

5 réponses

Votre réponse

Discussions similaires