Discussion :

[a.faurie]

Bonjour,

J'ai un "gros" fichier Excel qui sert à répertorier toutes les données d'un chantier (noms et coordonnées des intervenants, une liste des fichiers générés avec le type, la date de création, le type de fichier, la phase du projet (loi MOP)... , dates des différents envoie, adresse du site...).

Actuellement, je répertorie le nom du fichier puis je vais dans le répertoire ou sont classés les modèles Word. J'ouvre celui qui correspond au type de fichier (compte rendu de réunion, rapport type...), je l'enregistre puis le complète avec pleins d'infos qui sont contenu dans le document Excel.

Ma question est la suivante :

Comment peut-on via une macro implanté dans le fichier Excel :

Créer le bon document Word

J'ai essayé avec :

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\a.faurie\Desktop\model Compte Rendu.dotx")

Mais j'ouvre le model et du coup ça craint !
Et en plus je ne sais pas comment choisir le bon model.

Enregistre le document Word
En utilisant le nom écrit dans la cellule du tableau Excel
Si possible en proposant un emplacement dans le bon dossier

Remplir le document Word
Toutes les données que je dois remplir sont contenues dans des contrôles de contenu
Sauf le tableau des intervenants

Merci pour vos réponses
PS : je suis tout débutant en VBA.

[lelensois16]

Bonjour,

Voici un exemple simplifié avec des bases,
Je te conseille de lire ce cours

Exemple dans le fichier excel, j'ai
nom_fichier type modèle
fichier1 2
fichier2 1
fichier3 1
fichier4 2

On ouvre le modèle n°2 et on l'enregistre au format doc sous le nom fichier1.
Le code suivant réalise l'action :

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
21
22
23
Public Sub ouverture_word()
 
Dim chemin As String: chemin = "C:\Users\MONTAGRO\Desktop"
 
Dim Appwd As Word.Application
Dim Doctp As Word.Document
Set Appwd = New Word.Application
 
 
 
Set Doctp = Appwd.Documents.Open(chemin & "\modele" & Cells(2, 2) & ".dot")
Doctp.SaveAs2 (chemin & "\" & Cells(2, 1) & ".doc")
 
' mettre ici tous les traitements que tu as besoin
 
 
Doctp.Close
Appwd.Quit
Set Appwd = Nothing
 
 
 
End Sub

A vous de l'adapter selon les besoins

bon courage !

[a.faurie]

Bonjour à tous,
voici le code que j'ai trouver pour répondre à mon problème :

Code :

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

1
2
3
4
5
6
7
    ' partie inconnue
        Set fso = CreateObject("Scripting.FileSystemObject")
 
 
    ' copier coller renommer du document
        fso.CopyFile Src & Fichsrc, chemin_enregistrement & "\" & fichier & extension
        ActiveWorkbook.FollowHyperlink Address:=chemin_enregistrement & "\" & fichier & extension, NewWindow:=True

il marche très bien mais je ne comprend pas la première ligne si quelqu'un sait ce que c'est ?

[EngueEngue]

L'objet FileSystemObject (FSO) permet de manipuler le système de fichiers de Windows.

Voici un récapitulatif des collections, propriétés et méthodes de l'objet FileSystemObject :


Collections:
Drives
Folders
Files

Propriétés:
BuildPath
CopyFile
CopyFolder
CreateFolder
CreateTextFile
DeleteFile
DeleteFolder
DriveExists
FileExists
FolderExists
GetAbsolutePathName
GetBaseName
GetDrive
GetDriveName
GetExtensionName
GetFile
GetFileName
GetFolder
GetParentFolderName
GetSpecialFolder
GetTempName
MoveFile
MoveFolder
OpenTextFile

Méthodes:
Drives


Tu utilises la propriété copyfile.. Tu es donc obligée d'instancier le FSO avec ton set

[a.faurie]

Bonjour,
merci pour la réponse
avec ces commendes je peux arrivé à retrouver un fichier dans une montagne de dossier et sous-dossier ?