Gestion de fichiers
Dricc4
Messages postés
1
Date d'inscription
mardi 18 mars 2003
Statut
Membre
Dernière intervention
18 mars 2003
-
18 mars 2003 à 12:38
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 18 mars 2003 à 14:13
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 18 mars 2003 à 14:13
1 réponse
pelw
Messages postés
148
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
14 février 2005
6
18 mars 2003 à 14:13
18 mars 2003 à 14:13
Voici un exemple qui crée des documents Word, à adapter selon tes besoins. Ne pas oublier de sélectionner "Microsoft Word X.0 Object Library" dans l'éditeur VBA (cf. Outils/Références...).
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
Dim i As Integer
Dim sChemin As String
Dim sColonne As String
'---> A adapter
sChemin = "C:\Temp"
sColonne = "A"
Set oWdApp = CreateObject("Word.Application")
For i = 1 To Columns(sColonne).End(xlDown).Row
Set oWdDoc = oWdApp.Documents.Add
oWdDoc.SaveAs sChemin & Range(sColonne & i).Value & ".doc"
Next i
oWdApp.Quit
Set oWdApp = Nothing
@+
pelw
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
Dim i As Integer
Dim sChemin As String
Dim sColonne As String
'---> A adapter
sChemin = "C:\Temp"
sColonne = "A"
Set oWdApp = CreateObject("Word.Application")
For i = 1 To Columns(sColonne).End(xlDown).Row
Set oWdDoc = oWdApp.Documents.Add
oWdDoc.SaveAs sChemin & Range(sColonne & i).Value & ".doc"
Next i
oWdApp.Quit
Set oWdApp = Nothing
@+
pelw