Attribuer code vba sur un autre fichier

YaGo · 1 Avril 2015

Bonjour à tous,

J'ai un fichier dit 'Maître" et je souhaiterais écrire une procédure VBA sur le fichier "Esclave" à partir du fichier Maître.
Es que cela est-il possible avec excel?

Je ne sais pas si ma question est très clair....

Cdlt,

YaGo

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Bonjour

à adapter

Code:

Option Base 1
'Microsoft Visual Basic For Applications Extensibility 5.3"
Sub EcritSUB()    'Ecrit directement dans 1 nouveau classeur
    Dim Wbk As Excel.Workbook
    Dim Code, i As Integer
    Code = Array("Sub Test_macro()", _
                 "Msgbox ""Je suis une macro.""", _
                 "End Sub")
    Set Wbk = Workbooks.Add
    With Wbk.VBProject.VBComponents.Add(vbext_ct_StdModule)
        For i = 0 To 2
            .CodeModule.InsertLines i + 1, Code(i + 1)
        Next i
    End With
    Wbk.SaveAs "I:\Ajeter\fichier_macro.xls"
    Sheets(1).Select
End Sub

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Parfait merci Gilbert!

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Par contre j'ai une autre question...

Lorsque j'ai réalisé toutes mes opérations dans mon fichier "Maître" je le ferme puis laisse ouvert le fichier "Esclave".
Sauf que lorsque je clic sur le fichier esclave pour travailler dessus, Excel cesse de fonctionner...

Existe-il a code spécifique pour ce genre d'opération ou cela est-il impossible?

Mon code ci dessous:

Code:

Workbooks.Open (Repertory & "\" & WorkbookSlave)
WorkbookMaster.Close

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

c'est l'application excel qui cesse de fonctionner ou c'est le classeur actif qui se ferme laissant l'appli ouverte ?

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

l'application excel

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

votre code est-il structuré comme ceci

Code:

Sub testme()
    Repertory = "C:\dossier_ajeter" ' à modifier
    workbookslave = "test_fichier_macro.xlsm" ' fichier exemple
    WorkbookMaster = ThisWorkbook.Name
    Workbooks.Open (Repertory & "\" & workbookslave)
    Workbooks(WorkbookMaster).Close
End Sub

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Voila mon code en entier, cela semble assez proche de ta structure.

Sub AddRatio(DirectoryLink As String, TextBID As String)
Dim WorkbookMaster As Workbook, WorkbookSlaveREF As String, WorkbookSlaveKV As String
Dim NewRatio, Reference, Ratio, KeyValues, TabTotal
Dim Repertory As String, i As Integer, LastRowTab As Integer, LastRow As Integer

Repertory = ActiveWorkbook.Path
Set WorkbookMaster = ActiveWorkbook
WorkbookSlaveREF = Dir(DirectoryLink & "\REF*.xls")
WorkbookSlaveKV = Dir(Repertory & "\KV " & TextBID & " AO.xls")
Set Reference = Workbooks.Open(DirectoryLink & "\" & WorkbookSlaveREF)
Set KeyValues = Workbooks.Open(Repertory & "\" & WorkbookSlaveKV)
Set Ratio = Reference.Sheets("Tableau")
Set NewRatio = KeyValues.Sheets("Table")

NewRatio.Unprotect ("0000")

LastRowTab = Ratio.Range("A6").End(xlDown).row 'Dernière ligne de la base de données esclave
TabTotal = Ratio.Range("A6:H" & LastRowTab) 'Mise en place des valeurs dans le tableau esclave
For i = LBound(TabTotal) To UBound(TabTotal)
NewRatio.Cells(i + 5, 24) = TabTotal(i, 8)
With NewRatio.Cells(i + 5, 24)
.NumberFormat = "#,##0"
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
Next

NewRatio.Select
NewRatiutline.ShowLevels 2, 1
NewRatio.Protect ("0000")
Workbooks(WorkbookSlaveKV).Save
Workbooks(WorkbookSlaveREF).Close
'Workbooks(WorkbookSlaveKV).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Workbooks.Open (Repertory & "\" & WorkbookSlaveKV)
'WorkbookMaster.Close
End Sub

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

en fin de procédure pourquoi tout ce code en rem

et pourquoi bloquer l'écran en fin de procédure

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Les remarques mon seulement servi à faire différent test mais le code de base comprend ces instructions.

Et pour l'écran c'est afin d'éviter d'afficher les calcules au cours du programme

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

alors ici

WorkbookMaster.Close à remplacer par

Workbooks(WorkbookMaster).Close

job75 · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Bonjour à tous,

gilbert_RGI à dit:
alors ici

WorkbookMaster.Close à remplacer par

Allons allons gilbert

A+

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

dans mon code c'est bon

dans le sien oui oups

YaGo · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

Désoler mais ton code ne marche pas...
seulement WorkbookMaster.Close permet de fermer le fichier maître
Et une fois le fichier maître fermé, le fichier esclave ne marche toujours pas et fait planter excel

gilbert_RGI · 1 Avril 2015

Re : Attribuer code vba sur un autre fichier

désolé aussi !!

Attribuer code vba sur un autre fichier

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

YaGo

XLDnaute Junior

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

YaGo

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires