Bonjour,
Est-il possible de copier sur une feuille Excel par une macro ou une formule
simple l'ensemble des formules et macros d'une feuille Excel afin d'en
comprendre le fonctionnement ?
Existe-t-il un outil d'audit qui reconstruirait de manière formelle la
logique de la feuille ?
At Work, XP+Officepro97 , la macro de LL fonctionne sans pb! Ce serait donc bien soit un pb lié à 2003, soit comme tu dis un micro climat, chez moi!
Bonne journée
lSteph
On 2 sep, 20:58, "jps" wrote:
micro climat? qui veut vérifier si, de son côté, ça baigne? merci pour bruno jps
"LSteph" a écrit dans le message de news: %
"Ne gère pas la Classe Automation..." pourtant les ref sont cochées.
:?
@...
bonjour bruno regarde aussi cela : HTH jps
Sub CopieDansWord() 'Cette macro de LL installe dans Word le détails de tous 'les modules ouverts du VBE 'Cette procédure suppose que tu ajoutes au projet VBA une référence à la 'bibliothèque d'objets de Word ("Microsoft Word X.0 Object Library") 'ainsi qu'à la bibliothèque "Microsoft Visual Basic For Applications 'Extensibility "." Dim VBC As VBComponent, W As Word.Application Dim s As Word.Selection On Error Resume Next Set W = GetObject(Class:="Word.Application") On Error GoTo 0 If W Is Nothing Then Set W = New Word.Application W.Visible = True End If W.ScreenUpdating = False On Error GoTo fin W.Activate If W.Documents.Count = 0 Then W.Documents.Add Set s = W.ActiveWindow.Selection For Each VBC In ThisWorkbook.VBProject.VBComponents With VBC.CodeModule If .CountOfLines And .Name <> "CopieCodeVersWord" Then s.InsertAfter vbCrLf _ & "==================================" & vbCrLf$ & _ "Nom du module : " & VBC.Name & vbCrLf$ _ & "==================================" & vbCrLf$ & _ vbCrLf$ & .Lines(1, .CountOfLines) & vbCrLf$ End If End With Next VBC fin: W.ScreenUpdating = True End Sub "Bruno" a écrit dans le message de news: A7FE4B9B-612A-4222-9FD4-3B6FC7281__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
Bonjour, Est-il possible de copier sur une feuille Excel par une macro ou une formule simple l'ensemble des formules et macros d'une feuille Excel afin d'en comprendre le fonctionnement ?
Existe-t-il un outil d'audit qui reconstruirait de manière formelle la logique de la feuille ?
Merci de vos réponses, Bruno
inch'allah...
jps
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1188804787.129190.214870@50g2000hsm.googlegroups.com...
Re,
At Work, XP+Officepro97 , la macro de LL fonctionne sans pb!
Ce serait donc bien soit un pb lié à 2003, soit
comme tu dis un micro climat, chez moi!
Bonne journée
lSteph
On 2 sep, 20:58, "jps" <j...@wannadoodoo.fr> wrote:
micro climat? qui veut vérifier si, de son côté, ça baigne?
merci pour bruno
jps
"LSteph" <lecocost...@frite.fr> a écrit dans le message de news:
%23EVCQFZ7HHA.4...@TK2MSFTNGP03.phx.gbl...
"Ne gère pas la Classe Automation..."
pourtant les ref sont cochées.
:?
@...
bonjour bruno
regarde aussi cela :
HTH
jps
Sub CopieDansWord()
'Cette macro de LL installe dans Word le détails de tous
'les modules ouverts du VBE
'Cette procédure suppose que tu ajoutes au projet VBA une référence à
la
'bibliothèque d'objets de Word ("Microsoft Word X.0 Object Library")
'ainsi qu'à la bibliothèque "Microsoft Visual Basic For Applications
'Extensibility "."
Dim VBC As VBComponent, W As Word.Application
Dim s As Word.Selection
On Error Resume Next
Set W = GetObject(Class:="Word.Application")
On Error GoTo 0
If W Is Nothing Then
Set W = New Word.Application
W.Visible = True
End If
W.ScreenUpdating = False
On Error GoTo fin
W.Activate
If W.Documents.Count = 0 Then W.Documents.Add
Set s = W.ActiveWindow.Selection
For Each VBC In ThisWorkbook.VBProject.VBComponents
With VBC.CodeModule
If .CountOfLines And .Name <> "CopieCodeVersWord" Then
s.InsertAfter vbCrLf _
& "==================================" & vbCrLf$ & _
"Nom du module : " & VBC.Name & vbCrLf$ _
& "==================================" & vbCrLf$ & _
vbCrLf$ & .Lines(1, .CountOfLines) & vbCrLf$
End If
End With
Next VBC
fin:
W.ScreenUpdating = True
End Sub
"Bruno" <Br...@discussions.microsoft.com> a écrit dans le message de
news:
A7FE4B9B-612A-4222-9FD4-3B6FC7281__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@microsoft.com...
Bonjour,
Est-il possible de copier sur une feuille Excel par une macro ou une
formule
simple l'ensemble des formules et macros d'une feuille Excel afin
d'en
comprendre le fonctionnement ?
Existe-t-il un outil d'audit qui reconstruirait de manière formelle la
logique de la feuille ?
At Work, XP+Officepro97 , la macro de LL fonctionne sans pb! Ce serait donc bien soit un pb lié à 2003, soit comme tu dis un micro climat, chez moi!
Bonne journée
lSteph
On 2 sep, 20:58, "jps" wrote:
micro climat? qui veut vérifier si, de son côté, ça baigne? merci pour bruno jps
"LSteph" a écrit dans le message de news: %
"Ne gère pas la Classe Automation..." pourtant les ref sont cochées.
:?
@...
bonjour bruno regarde aussi cela : HTH jps
Sub CopieDansWord() 'Cette macro de LL installe dans Word le détails de tous 'les modules ouverts du VBE 'Cette procédure suppose que tu ajoutes au projet VBA une référence à la 'bibliothèque d'objets de Word ("Microsoft Word X.0 Object Library") 'ainsi qu'à la bibliothèque "Microsoft Visual Basic For Applications 'Extensibility "." Dim VBC As VBComponent, W As Word.Application Dim s As Word.Selection On Error Resume Next Set W = GetObject(Class:="Word.Application") On Error GoTo 0 If W Is Nothing Then Set W = New Word.Application W.Visible = True End If W.ScreenUpdating = False On Error GoTo fin W.Activate If W.Documents.Count = 0 Then W.Documents.Add Set s = W.ActiveWindow.Selection For Each VBC In ThisWorkbook.VBProject.VBComponents With VBC.CodeModule If .CountOfLines And .Name <> "CopieCodeVersWord" Then s.InsertAfter vbCrLf _ & "==================================" & vbCrLf$ & _ "Nom du module : " & VBC.Name & vbCrLf$ _ & "==================================" & vbCrLf$ & _ vbCrLf$ & .Lines(1, .CountOfLines) & vbCrLf$ End If End With Next VBC fin: W.ScreenUpdating = True End Sub "Bruno" a écrit dans le message de news: A7FE4B9B-612A-4222-9FD4-3B6FC7281__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
Bonjour, Est-il possible de copier sur une feuille Excel par une macro ou une formule simple l'ensemble des formules et macros d'une feuille Excel afin d'en comprendre le fonctionnement ?
Existe-t-il un outil d'audit qui reconstruirait de manière formelle la logique de la feuille ?