trends4media

Affichage des articles dont le libellé est Inclure. Afficher tous les articles

Inclure un Word créé par un premier module dans un Word ouvert et modifié par une deuxième module sujet

mardi 8 avril 2014

Bonjour!
Débutante en VBA (et oui), je créée une petite application (VBA Excel) pour automatiser la rédaction de règlement de copropriété. J'ai écris un premier module qui créé un document Word avec toutes les désignations des lots, d'après une première feuille du tableau.
Dans un second module, j'ouvre un document word "référence", et je le modifie en fonction des différentes feuilles de mes tableaux. Mais il faut en plein milieu que j'y mette ma désignation des lots. Donc j'y ai mis un signet 'designationlots", et j'essaie de copier le premier Word dedans.

Merci de votre aide, je craque!!! J'ai cherché partout...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim blabla As String
...
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\marie segalen\Bureau\Prog\Exemple&TravailMAS0478_RC_type.doc")
wrdApp.Visible = True
...
Call exceltoword ' je remplis mon premier doc avec la désignation des lots

'J'ai essayé : 
Selection.InsertFile Filename:=ThisWorkbook.Path & "\EDD-Copro-000000.doc", Range:="designationlots", ConfirmConversions:=False, Link:=False, Attachment:=False ' il me répond Impossible d'aller à Selection qui est caché
'ou
wrdDoc3.InlineShapes.AddOLEObject ClassType:="Word.Document.8", Filename:=ThisWorkbook.Path & "\EDD-Copro-000000.doc" 'insère au début du doc une zone de texte non mise en page
'ou
Dim wrdDoc3 As Word.Document
Set wrdDoc3 = wrdApp.Documents.Open(ThisWorkbook.Path & "\EDD-Copro-000000.doc") 'il ne s'ouvre pas comme s'il était resté ouvert dans l'autre module ou je finis bien par wrdDoc.Close
wrdApp.Selection.WholeStory 
'blabla = Selection.Copy
'Selection.Paste 'ne fonctionne pas non plus
'ou
'Selection.Goto what:=wdGoToBookmark, Name:=designationlots
'ou
'wrdDoc.Bookmarks("designationlots").Range.Text = blabla
'wrdApp.Selection.Paste
'wrdDoc3.Close

Sheets("Descriptif").UsedRange.Select 'de la même façon je copie un tableau (marche une fois sur deux selon ce qu'il y a devant)
Selection.Copy
wrdDoc.Bookmarks("Tableau1").Range.Paste
    

 
wrdDoc.TablesOfContents(1).Update

wrdDoc.SaveAs ("C:\Documents and Settings\marie segalen\Bureau\Prog\Exemple&TravailMAS\test_RC1.doc")
wrdDoc.Close
wrdApp.Quit

XL 2013 Inclure une condition dans une macro d'enregistrement de feuilles en PDF sujet

jeudi 30 janvier 2014

Bonjour,
J'ai une macro qui me permets d'enregistrer la centaine d'onglets de mon fichier planning en PDF (chaque fin de mois)
avec la possibilité de choisir le chemin d'enregistrement, car il change chaque mois.

Sur la centaine de feuilles de planning individuels, un certain nombre chaque mois ne sont pas remplis.
j'aurais besoin de n'enregistrer que ceux qui contiennent de données.
j'ai pensé comme condition à l'enregistrement: si la cellule H47 TOTAL des heures contient "00:00"
ne pas enregistrer et passer à la suivante.

Je ne maîtrise pas trop les codes macro alors je viens vous demander si cela est faisable à partir de ce code.

Code :

Sub PDF()
       On Error Resume Next
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim Chemin As String, w As Worksheet
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
    For Each w In Worksheets
        If w.Name <> "Accueil" Then
            Chemin = oFolderItem.Path & "\" & w.Name & "- Planning Individuel - " & Format(w.[c3], "mmmm yyyy") & ".xlsx"
        End If
    Next w
End Sub

je joins le classeur allégé pour l'exemple.

Merci par avance.

Fichiers attachés

Planning-Individuels.xlsm‎
(107,8 Ko)

Inclure l'heure dans les Log tomcat6 sujet

Bonjour à tous,

Je rencontre actuellement un problème qui vraiment très embêtant pour moi, dans les logs de

Code:

/var/log/tomcat6/catalina.out

Je n'arrive pas à avoir l'heure sur chaque ligne de log.
Je ne sais pas ou indiquer l'heure dans mes logs? loging.properties ??

Merci beaucoup de votre aide