Exporter sans macro

[Pascalbar]

Bonjour,
Je cherche à enregistrer un classeur "Toto" sous le nom "Toto +date du jour" mais sans les macros de "Toto".
Quel est le code à insérer dans mon module d'export que je vous joins ici

Private Sub CmdCreer_Click()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim wbk                        As Workbook
    Dim wbkName                    As String
    Dim wbkName2                   As String
    Dim fso                        As Object
    Dim strFolder
    Dim Workbook
    Dim Client$, Fichier$, dt$
    strFolder = ThisWorkbook.Path & "\"
    Client = Txt1.Value
    dt = Txt2.Value
    Fichier = Client & ".xlsm"
    [ND].Delete

    If Txt1 = "" Or Txt2 = "" Or Txt3 = "" Then
        MsgBox "Client, date et ville Obligatoire"
        Exit Sub
    End If


    Sheets("Base").Visible = True
    Sheets("Base").Select

    [A65000].End(xlUp).Offset(1, 0).Select
    ActiveCell.Value = Txt1
    ActiveCell.Offset(0, 1).Value = Txt2
    ActiveCell.Offset(0, 2).Value = Txt3
    '[ND].Value = Txt1.Value & " " & Txt3.Value & " " & Txt2.Value
    ThisWorkbook.Save


    wbkName = strFolder & Client & ".xls"
    If Dir(wbkName) <> "" Then
        MsgBox "le classeur " & wbkName & "existe déjà", vbExclamation
        Exit Sub
    End If

    Set wbk = ThisWorkbook

    If Dir(strFolder & Client, vbDirectory) = "" Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.createfolder (strFolder & Client)
    End If

    ChDir strFolder
    wbkName = strFolder & Client & ".xls"

    ActiveWorkbook.SaveAs strFolder & Client & "\" & Fichier


    Unload Me

    Workbooks.Open Filename:="D:\TDR\TDR.xlsm"
    Sheets("Base").Activate

    wbkName2 = Client
    MsgBox "Le dossier" & vbLf & wbkName2 & " " & "a été crée" & vbLf & " Il se trouve dans votre dossier principal" & vbLf & "Ou en lien sur la feuille nommée Base"
    Sheets("Base").Select
    [d65000].End(xlUp).Offset(1, 0).Select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path
    wbk.Activate
    Sheets("Menu").Visible = True
    Sheets("Base").Delete
    wbk.Save
    wbk.Close
End Sub

Merci à vous
Pascal

 

[Staple1600]

Re : Exporter sans macro

Bonjour Pascalbar, le fil, le forum

Ce sujet est présent dans de nombreuses discussions sur XLD.

• Tu peux donc aller voir tout en bas de cette page, les cinq liens affichés dans les Discussions similaires (cf: 1, 2, 3, 4, 5 )


• ou utiliser le moteur de recherche du forum, pour trouver les exemples de code VBA présent dans les discussions éxistantes (résolvant ta problématique du jour.)

EDITION: voici un exemple retourné par le moteur de recherche: Lien supprimé

EDITION 2: Bonjour Sieur bhbh 😉 , il est quelle heure à Nouméa ?

 

[Cousinhub]

Re : Exporter sans macro

Bonjour,

Salut JM 🙂

Attention ce code te supprime toutes les procédures, aussi bien dans les modules que dans les évènements de feuilles, ainsi que les Userforms...

Code de Laurent Longre :

Sub SupprToutCodeVBA()
'L Longre, mpfe

Dim VBC As Object
    With ActiveWorkbook.VBProject
        For Each VBC In .VBComponents
            If VBC.Type = 100 Then
                With VBC.CodeModule
                    .DeleteLines 1, .CountOfLines
                    .CodePane.Window.Close
                End With
            Else: .VBComponents.Remove VBC
            End If
        Next VBC
    End With
    MsgBox "Modules et macros du classeur actif supprimés.", _
            vbInformation
End Sub

Bon courage

 

[Pascalbar]

Re : Exporter sans macro

Merci pour les différents liens.

Le code de Laurent me convient bien mais attention danger ...