Discussion :

[fisio]

* Bonjour, *

J'ai besoin d'un avis sur ce code car ce dernier laisse les fichiers sources en lecture seule !!!!

Version WORD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Set WORDAPP = CreateObject("WORD.APPLICATION")
 
        With WORDAPP
 
        .Documents.Open ("O:\Pieces des AO\01_Dossier de candidature\01_Pièces administratives\00_Déclarations du candidat\03_DC3.doc")
 
        .ActiveDocument.Bookmarks("INTITULE").Range.Text = UCase(Form_Projet.Intitulé.Value)
 
        .ActiveDocument.Bookmarks("DATE").Range.Text = Format(Form_Projet.Texte42.Value, "dd mmm yyyy")
 
        .ActiveDocument.SaveAs Filename:=B & "\" & Affaire.Value & "\01_Dossier de candidature\01_Pièces administratives\00_Déclarations du candidat\03_DC3.doc", FileFormat:=wdFormatDocument
 
        .ActiveDocument.Close

Version EXCEL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set XLAPP = CreateObject("Excel.Application")
 
Set XLBOOK = XLAPP.Workbooks.Open("C:\Users\RV\Desktop\FdB.xlsx")
 
XLAPP.ActiveWorkbook.SaveAs Filename:=D & "FDB_" & e & ".xlsx"
 
    If (MsgBox("Votre fiche de bord du mois de " & MonthName(C) & " est maintenant prête." & vbCr & " " & vbCr & "Cliquez sur OK pour quitter l'application imprimer votre document.", vbOKCancel + vbInformation, "IXSANE - Société d'études & Ingénieurs conseils") = vbOK) Then
 
    XLAPP.Visible = True
 
    Application.Quit
 
    Else
 
    XLAPP.ActiveWorkbook.Close
    XLAPP.Quit
 
    Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & D & ", vbNormalFocus"
 
    End If

Merci de vos avis

[User]

Salut,

Peux-tu expliquer à quoi sert ton code ?



Juste une remarque :

Penses à libérer tes variables à la fin :

Version Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
...
 
XLBOOK.close
Set XLBOOK = Nothing
 
XLAPP.Quite
Set XLAPP = Nothing

A+