VBA word

[liop49]

Bonjour,

J'ai besoin d'automatiser ma procédure mais je n'y arrive pas !!

Mon objectif est de changer la mise en page de plusieurs fichiers word via un fichier pré-formaté.
Je refais aujourd'hui la mise en page fichier par fichier via un code (voir ci-dessous). Mon but est de l'automatiser sur tous les fichiers existant dans le dossier.

Voici le code :
Sub mise_en_forme ()

Dim MonDoc As Document

Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
OFName.lpstrFilter = "Fichiers WORD (*.doc)" + Chr$(0) + "*.doc"
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = C:Documents and SettingsCail14Mes documentsDiversMise en page entete" 'dossier où les fichiers à modifier sont présents
While MsgBox("Voulez-vous faire une mise en page ?" & vbCrLf & " " & vbCrLf & " Si oui, choisir le fichier à mettre en forme" & vbCrLf & " Si non, le fichier se fermera", vbYesNo, "Confirmation demande de mise en page") <> vbNo
If GetOpenFileName(OFName) Then
Set MonDoc = Documents.OpenC:Documents and SettingsCail14Mes documentsDiversMise en page enteteentete.doc") ' la ou il y a le fichier avec l'entête pré-formatée
MonDoc.Range(0, 0).InsertFile Trim(OFName.lpstrFile)
Application.Dialogs(wdDialogFileSaveAs).Show

MonDoc.Close
Else
MsgBox "Fin de mise en page !"
End If
Wend

Application.Quit

End sub

Option Explicit

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type


Merci d'avance pour votre aide

[liop49]

Personne pour m'aider ?

Pour résumer mon problème je voudrais faire une macro qui excute le code ci-dessus automatiquement sur tous les fichiers de mon dossier

[RobinSG]

Bonjour,

Essaye ça :

Code: Tout sélectionner

Sub MiseEnForme()
    Dim MonDoc As Document
    Dim CheminDesFichiers As String
    Dim NomDuModele As String
    Dim NomEnCours As String

    CheminDesFichiers = "C:\Documents and Settings\Cail14\Mes documents\Divers\Mise en page entete\"
    NomDuModele = "entete.doc"

    ChDir CheminDesFichiers
    NomEnCours = LCase(Dir("*.doc"))

    Do While (NomEnCours <> "")
        If (NomEnCours <> LCase(NomDuModele)) Then
            Set MonDoc = Documents.Open(CheminDesFichiers & NomDuModele, , True)
            MonDoc.Range(0, 0).InsertFile CheminDesFichiers & NomEnCours
            MonDoc.SaveAs CheminDesFichiers & Left(NomEnCours, Len(NomEnCours) - 4) & "_mod.doc"
            MonDoc.Saved = True
            MonDoc.Close
        End If
        NomEnCours = LCase(Dir)
    Loop

End Sub

Les fichiers sont sauvegardés automatiquement sous la forme 'NomOriginal_mod.doc'.
Je ne l'ai pas testé (la flemme de faire des .DOC ), donc si ça ne marche pas, dis moi le(s) message(s).

/!\ N'oublie pas de faire une petite sauvegarde avant, même si j'ai confiance, on ne sais jamais /!\

[liop49]

Salut tt le monde et RobinSg en particulier,

Désolé pour le retard, je reviens de vacances et j'avais laissé en plan ce projet avant de partir.

RobinSg c'est le top ta macro ca marche bien, y a t'il par contre un moyen pour qu'il s'arrête une fois que tous les fichiers aient été modifiés ?

Merci d'avance pour votre aide!

Nini

[liop49]

Personne pour m'aider ?

[RobinSG]

Salut,

Il y a effectivement pas d'arrêt ^^
Le mieux est, je pense, de faire un tableau contenant le nom des fichiers puis de traiter ce tableau au lieu de parcourir les fichiers en même temps que la modification. (une boucle avec un tableau incrémenté dynamiquement avant la boucle de modification).

Si j'ai le temps je te proposerais quelque chose

[liop49]

Je veux bien si tu as le temps bien sûr

[RobinSG]

Re,

Voici donc un petit quelque chose testé succintement...

Code: Tout sélectionner

Option Explicit

Sub MiseEnForme()
    Dim MonDoc As Document
    Dim CheminDesFichiers As String
    Dim NomDuModele As String
    Dim NomEnCours As String
    Dim ListeFichiers() As String
    Dim i As Integer

    CheminDesFichiers = "C:Documents and SettingsCail14Mes documentsDiversMise en page entete"
    NomDuModele = "entete.doc"

    ChDir CheminDesFichiers
    NomEnCours = LCase(Dir("*.doc"))
    i = 0
    ReDim ListeFichiers(0)

    ' Construction de la liste des fichiers
    Do While (NomEnCours <> "")
        If (NomEnCours <> LCase(NomDuModele)) Then
            ListeFichiers(i) = NomEnCours
            i = i + 1
            ReDim Preserve ListeFichiers(i)
        End If
        NomEnCours = LCase(Dir)
    Loop

    ' Traitement de la liste
    For i = 0 To UBound(ListeFichiers) - 1
            Set MonDoc = Documents.Open(CheminDesFichiers & NomDuModele, , True)
            MonDoc.Range(0, 0).InsertFile CheminDesFichiers & ListeFichiers(i)
            MonDoc.SaveAs CheminDesFichiers & Left(ListeFichiers(i), Len(ListeFichiers(i)) - 4) & "_mod.doc"
            MonDoc.Saved = True
            MonDoc.Close
    Next
   
'    Do While (NomEnCours <> "")
'        If (NomEnCours <> LCase(NomDuModele)) Then
'            Set MonDoc = Documents.Open(CheminDesFichiers & NomDuModele, , True)
'            MonDoc.Range(0, 0).InsertFile CheminDesFichiers & NomEnCours
'            MonDoc.SaveAs CheminDesFichiers & Left(NomEnCours, Len(NomEnCours) - 4) & "_mod.doc"
'            MonDoc.Saved = True
'            MonDoc.Close
'        End If
'        NomEnCours = LCase(Dir)
'    Loop

    MsgBox "Traitement terminé." & vbCrLf & UBound(ListeFichiers) & " fichier(s) modifié(s).", vbInformation + vbOKOnly, "Voili, voilou..."

End Sub



J'ai laissé en commentaires l'ancienne version (pour infos). Si tu doit modifier souvent des fichiers de cette méthode dans des répertoires et/ou avec des entêtes différents, tu peux rajouter une petite interface pour saisir les données

[liop49]

Merci ca fonctionne parfaitement bien

Tu es un dieu et encore merci