BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub
BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub
BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub
Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :
> BOnjour,
> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
> sondage/#L4" l'information que je cherchais mais impossible de lancer
> l'extract.
> une idée ??
> la function :
> Public Function Extract(oFN As String)
> On Error Resume Next
> Dim wApp As New Word.Application
> Dim oDoc As Word.Document
> Dim rs As DAO.Recordset
> Dim sql As String
> Dim i As Integer, j As Integer
> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
> Janvier 2008" & oFN)
> oDoc.Unprotect
> i = oDoc.FormFields.Count
> Debug.Print i
> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
> 'édition du jeu d'enregistrement par ajout
> rs.AddNew
> For j = 1 To i
> rs.Fields(j) = oDoc.FormFields(j).Result
> Next j
> rs.Fields(j + 1) = oFN
> rs.Update
> oDoc.Close SaveChanges:lse
> rs.Close
> Set rs = Nothing
> Set oDoc = Nothing
> wApp.Quit
> End Function
> le second modul :
> Public Sub RecupFichier()
> Dim oFSO As New FileSystemObject
> Dim oFil As File
> Dim oFold As Folder
> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
> Janvier 2008")
> For Each oFil In oFold.Files
> If Right(oFil.Name, 4) = "doc" Then
> Extract (oFil.Name)
> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Jan vier
> 2008done"
> End If
> Next oFil
> Set oFSO = Nothing
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :
> BOnjour,
> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
> sondage/#L4" l'information que je cherchais mais impossible de lancer
> l'extract.
> une idée ??
> la function :
> Public Function Extract(oFN As String)
> On Error Resume Next
> Dim wApp As New Word.Application
> Dim oDoc As Word.Document
> Dim rs As DAO.Recordset
> Dim sql As String
> Dim i As Integer, j As Integer
> Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
> Janvier 2008" & oFN)
> oDoc.Unprotect
> i = oDoc.FormFields.Count
> Debug.Print i
> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
> 'édition du jeu d'enregistrement par ajout
> rs.AddNew
> For j = 1 To i
> rs.Fields(j) = oDoc.FormFields(j).Result
> Next j
> rs.Fields(j + 1) = oFN
> rs.Update
> oDoc.Close SaveChanges:=False
> rs.Close
> Set rs = Nothing
> Set oDoc = Nothing
> wApp.Quit
> End Function
> le second modul :
> Public Sub RecupFichier()
> Dim oFSO As New FileSystemObject
> Dim oFil As File
> Dim oFold As Folder
> Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
> Janvier 2008")
> For Each oFil In oFold.Files
> If Right(oFil.Name, 4) = "doc" Then
> Extract (oFil.Name)
> oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 Jan vier
> 2008done"
> End If
> Next oFil
> Set oFSO = Nothing
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :
> BOnjour,
> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
> sondage/#L4" l'information que je cherchais mais impossible de lancer
> l'extract.
> une idée ??
> la function :
> Public Function Extract(oFN As String)
> On Error Resume Next
> Dim wApp As New Word.Application
> Dim oDoc As Word.Document
> Dim rs As DAO.Recordset
> Dim sql As String
> Dim i As Integer, j As Integer
> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
> Janvier 2008" & oFN)
> oDoc.Unprotect
> i = oDoc.FormFields.Count
> Debug.Print i
> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
> 'édition du jeu d'enregistrement par ajout
> rs.AddNew
> For j = 1 To i
> rs.Fields(j) = oDoc.FormFields(j).Result
> Next j
> rs.Fields(j + 1) = oFN
> rs.Update
> oDoc.Close SaveChanges:lse
> rs.Close
> Set rs = Nothing
> Set oDoc = Nothing
> wApp.Quit
> End Function
> le second modul :
> Public Sub RecupFichier()
> Dim oFSO As New FileSystemObject
> Dim oFil As File
> Dim oFold As Folder
> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
> Janvier 2008")
> For Each oFil In oFold.Files
> If Right(oFil.Name, 4) = "doc" Then
> Extract (oFil.Name)
> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Jan vier
> 2008done"
> End If
> Next oFil
> Set oFSO = Nothing
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D
wrote:Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D <Michel.NOS...@orange-ft.com.invalid>
wrote:
Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :
BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D
wrote:Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
sleg a écrit :
> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
> pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.
> voici mon fichier
>http://www.easy-upload.net/fichier.php?fichier 08918123415
> merci de votre aide.
> On 18 sep, 11:40, Michel__D
> wrote:
>> Bonjour,
>> Il n'y a pas de message d'erreur ?
>> Sinon exécuter en pas en pas.
>> PS:
>> La Function Extract(oFN As String) est appelé par la Sub RecupFichie r()
>> sleg a écrit :
>>> BOnjour,
>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>> sondage/#L4" l'information que je cherchais mais impossible de lancer
>>> l'extract.
>>> une idée ??
>>> la function :
>>> Public Function Extract(oFN As String)
>>> On Error Resume Next
>>> Dim wApp As New Word.Application
>>> Dim oDoc As Word.Document
>>> Dim rs As DAO.Recordset
>>> Dim sql As String
>>> Dim i As Integer, j As Integer
>>> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
>>> Janvier 2008" & oFN)
>>> oDoc.Unprotect
>>> i = oDoc.FormFields.Count
>>> Debug.Print i
>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>> 'édition du jeu d'enregistrement par ajout
>>> rs.AddNew
>>> For j = 1 To i
>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>> Next j
>>> rs.Fields(j + 1) = oFN
>>> rs.Update
>>> oDoc.Close SaveChanges:lse
>>> rs.Close
>>> Set rs = Nothing
>>> Set oDoc = Nothing
>>> wApp.Quit
>>> End Function
>>> le second modul :
>>> Public Sub RecupFichier()
>>> Dim oFSO As New FileSystemObject
>>> Dim oFil As File
>>> Dim oFold As Folder
>>> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
>>> Janvier 2008")
>>> For Each oFil In oFold.Files
>>> If Right(oFil.Name, 4) = "doc" Then
>>> Extract (oFil.Name)
>>> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 J anvier
>>> 2008done"
>>> End If
>>> Next oFil
>>> Set oFSO = Nothing
>>> End Sub- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
sleg a écrit :
> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
> pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.
> voici mon fichier
>http://www.easy-upload.net/fichier.php?fichier=2008918123415
> merci de votre aide.
> On 18 sep, 11:40, Michel__D <Michel.NOS...@orange-ft.com.invalid>
> wrote:
>> Bonjour,
>> Il n'y a pas de message d'erreur ?
>> Sinon exécuter en pas en pas.
>> PS:
>> La Function Extract(oFN As String) est appelé par la Sub RecupFichie r()
>> sleg a écrit :
>>> BOnjour,
>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>> sondage/#L4" l'information que je cherchais mais impossible de lancer
>>> l'extract.
>>> une idée ??
>>> la function :
>>> Public Function Extract(oFN As String)
>>> On Error Resume Next
>>> Dim wApp As New Word.Application
>>> Dim oDoc As Word.Document
>>> Dim rs As DAO.Recordset
>>> Dim sql As String
>>> Dim i As Integer, j As Integer
>>> Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
>>> Janvier 2008" & oFN)
>>> oDoc.Unprotect
>>> i = oDoc.FormFields.Count
>>> Debug.Print i
>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>> 'édition du jeu d'enregistrement par ajout
>>> rs.AddNew
>>> For j = 1 To i
>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>> Next j
>>> rs.Fields(j + 1) = oFN
>>> rs.Update
>>> oDoc.Close SaveChanges:=False
>>> rs.Close
>>> Set rs = Nothing
>>> Set oDoc = Nothing
>>> wApp.Quit
>>> End Function
>>> le second modul :
>>> Public Sub RecupFichier()
>>> Dim oFSO As New FileSystemObject
>>> Dim oFil As File
>>> Dim oFold As Folder
>>> Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
>>> Janvier 2008")
>>> For Each oFil In oFold.Files
>>> If Right(oFil.Name, 4) = "doc" Then
>>> Extract (oFil.Name)
>>> oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 J anvier
>>> 2008done"
>>> End If
>>> Next oFil
>>> Set oFSO = Nothing
>>> End Sub- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
sleg a écrit :
> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
> pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.
> voici mon fichier
>http://www.easy-upload.net/fichier.php?fichier 08918123415
> merci de votre aide.
> On 18 sep, 11:40, Michel__D
> wrote:
>> Bonjour,
>> Il n'y a pas de message d'erreur ?
>> Sinon exécuter en pas en pas.
>> PS:
>> La Function Extract(oFN As String) est appelé par la Sub RecupFichie r()
>> sleg a écrit :
>>> BOnjour,
>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>> sondage/#L4" l'information que je cherchais mais impossible de lancer
>>> l'extract.
>>> une idée ??
>>> la function :
>>> Public Function Extract(oFN As String)
>>> On Error Resume Next
>>> Dim wApp As New Word.Application
>>> Dim oDoc As Word.Document
>>> Dim rs As DAO.Recordset
>>> Dim sql As String
>>> Dim i As Integer, j As Integer
>>> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
>>> Janvier 2008" & oFN)
>>> oDoc.Unprotect
>>> i = oDoc.FormFields.Count
>>> Debug.Print i
>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>> 'édition du jeu d'enregistrement par ajout
>>> rs.AddNew
>>> For j = 1 To i
>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>> Next j
>>> rs.Fields(j + 1) = oFN
>>> rs.Update
>>> oDoc.Close SaveChanges:lse
>>> rs.Close
>>> Set rs = Nothing
>>> Set oDoc = Nothing
>>> wApp.Quit
>>> End Function
>>> le second modul :
>>> Public Sub RecupFichier()
>>> Dim oFSO As New FileSystemObject
>>> Dim oFil As File
>>> Dim oFold As Folder
>>> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
>>> Janvier 2008")
>>> For Each oFil In oFold.Files
>>> If Right(oFil.Name, 4) = "doc" Then
>>> Extract (oFil.Name)
>>> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 J anvier
>>> 2008done"
>>> End If
>>> Next oFil
>>> Set oFSO = Nothing
>>> End Sub- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Salut,
"sleg"
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
____________
Tu as coché la référence à "Microsoft Scripting Runtime" ?
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"sleg"
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
____________
Tu as coché la référence à "Microsoft Scripting Runtime" ?
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Salut,
"sleg"
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
____________
Tu as coché la référence à "Microsoft Scripting Runtime" ?
--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)
Oui mais pas de changement ??
On 18 sep, 15:39, "3stone" wrote:
> Salut,
> "sleg"
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> ____________
> Tu as coché la référence à "Microsoft Scripting Runtime" ?
> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/ (infos générales)- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Oui mais pas de changement ??
On 18 sep, 15:39, "3stone" <home@sweet_home.be> wrote:
> Salut,
> "sleg"
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> ____________
> Tu as coché la référence à "Microsoft Scripting Runtime" ?
> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/ (infos générales)- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Oui mais pas de changement ??
On 18 sep, 15:39, "3stone" wrote:
> Salut,
> "sleg"
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> ____________
> Tu as coché la référence à "Microsoft Scripting Runtime" ?
> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/ (infos générales)- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
l'upload de on fichier
http://www.nelty.fr/fichiers/recupzip.zip
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
merci de ton aide.
On 18 sep, 13:06, Michel__D
wrote:sleg a écrit :Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D
wrote:Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
l'upload de on fichier
http://www.nelty.fr/fichiers/recupzip.zip
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
merci de ton aide.
On 18 sep, 13:06, Michel__D <Michel.NOS...@orange-ft.com.invalid>
wrote:
sleg a écrit :
Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.
voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D <Michel.NOS...@orange-ft.com.invalid>
wrote:
Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :
BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
l'upload de on fichier
http://www.nelty.fr/fichiers/recupzip.zip
lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
*Sub RecupFichier() *
*Set oFold = oFSO.GetFolder("d:testfiche") *
*For Each oFil In oFold.Files*
*If Right(oFil.Name, 4) = "doc" Then*
*End If*
*Next oFil*
merci de ton aide.
On 18 sep, 13:06, Michel__D
wrote:sleg a écrit :Non aucun message d'erreur et le pas a pas me donne rien ou je ne sais
pas l'utiliser ...
Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier()
et tu appuie sur la touche F8 pour l'exécution en pas à pas.voici mon fichier
http://www.easy-upload.net/fichier.php?fichier 08918123415
merci de votre aide.
On 18 sep, 11:40, Michel__D
wrote:Bonjour,
Il n'y a pas de message d'erreur ?
Sinon exécuter en pas en pas.
PS:
La Function Extract(oFN As String) est appelé par la Sub RecupFichier()
sleg a écrit :BOnjour,
j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
sondage/#L4" l'information que je cherchais mais impossible de lancer
l'extract.
une idée ??
la function :
Public Function Extract(oFN As String)
On Error Resume Next
Dim wApp As New Word.Application
Dim oDoc As Word.Document
Dim rs As DAO.Recordset
Dim sql As String
Dim i As Integer, j As Integer
Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
Janvier 2008" & oFN)
oDoc.Unprotect
i = oDoc.FormFields.Count
Debug.Print i
Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
'édition du jeu d'enregistrement par ajout
rs.AddNew
For j = 1 To i
rs.Fields(j) = oDoc.FormFields(j).Result
Next j
rs.Fields(j + 1) = oFN
rs.Update
oDoc.Close SaveChanges:úlse
rs.Close
Set rs = Nothing
Set oDoc = Nothing
wApp.Quit
End Function
le second modul :
Public Sub RecupFichier()
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
Janvier 2008")
For Each oFil In oFold.Files
If Right(oFil.Name, 4) = "doc" Then
Extract (oFil.Name)
oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
2008done"
End If
Next oFil
Set oFSO = Nothing
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Tu n'aurais pas oublier ceci :
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Et aussi enlever le "" à la fin de
Set oFold = oFSO.GetFolder("d:testfiche")
Normalement si les librairies sont activées (références cochées)
cela devrait aller mieux.
Et si cela ne va pas donne le code complet utilisé (function et sub).
sleg a écrit :
> l'upload de on fichier
>http://www.nelty.fr/fichiers/recupzip.zip
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> merci de ton aide.
> On 18 sep, 13:06, Michel__D
> wrote:
>> sleg a écrit :
>>> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sai s
>>> pas l'utiliser ...
>> Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier( )
>> et tu appuie sur la touche F8 pour l'exécution en pas à pas.
>>> voici mon fichier
>>>http://www.easy-upload.net/fichier.php?fichier 08918123415
>>> merci de votre aide.
>>> On 18 sep, 11:40, Michel__D
>>> wrote:
>>>> Bonjour,
>>>> Il n'y a pas de message d'erreur ?
>>>> Sinon exécuter en pas en pas.
>>>> PS:
>>>> La Function Extract(oFN As String) est appelé par la Sub RecupFich ier()
>>>> sleg a écrit :
>>>>> BOnjour,
>>>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>>>> sondage/#L4" l'information que je cherchais mais impossible de lanc er
>>>>> l'extract.
>>>>> une idée ??
>>>>> la function :
>>>>> Public Function Extract(oFN As String)
>>>>> On Error Resume Next
>>>>> Dim wApp As New Word.Application
>>>>> Dim oDoc As Word.Document
>>>>> Dim rs As DAO.Recordset
>>>>> Dim sql As String
>>>>> Dim i As Integer, j As Integer
>>>>> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
>>>>> Janvier 2008" & oFN)
>>>>> oDoc.Unprotect
>>>>> i = oDoc.FormFields.Count
>>>>> Debug.Print i
>>>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>>>> 'édition du jeu d'enregistrement par ajout
>>>>> rs.AddNew
>>>>> For j = 1 To i
>>>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>>>> Next j
>>>>> rs.Fields(j + 1) = oFN
>>>>> rs.Update
>>>>> oDoc.Close SaveChanges:lse
>>>>> rs.Close
>>>>> Set rs = Nothing
>>>>> Set oDoc = Nothing
>>>>> wApp.Quit
>>>>> End Function
>>>>> le second modul :
>>>>> Public Sub RecupFichier()
>>>>> Dim oFSO As New FileSystemObject
>>>>> Dim oFil As File
>>>>> Dim oFold As Folder
>>>>> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
>>>>> Janvier 2008")
>>>>> For Each oFil In oFold.Files
>>>>> If Right(oFil.Name, 4) = "doc" Then
>>>>> Extract (oFil.Name)
>>>>> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
>>>>> 2008done"
>>>>> End If
>>>>> Next oFil
>>>>> Set oFSO = Nothing
>>>>> End Sub- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Tu n'aurais pas oublier ceci :
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Et aussi enlever le "" à la fin de
Set oFold = oFSO.GetFolder("d:testfiche")
Normalement si les librairies sont activées (références cochées)
cela devrait aller mieux.
Et si cela ne va pas donne le code complet utilisé (function et sub).
sleg a écrit :
> l'upload de on fichier
>http://www.nelty.fr/fichiers/recupzip.zip
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> merci de ton aide.
> On 18 sep, 13:06, Michel__D <Michel.NOS...@orange-ft.com.invalid>
> wrote:
>> sleg a écrit :
>>> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sai s
>>> pas l'utiliser ...
>> Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier( )
>> et tu appuie sur la touche F8 pour l'exécution en pas à pas.
>>> voici mon fichier
>>>http://www.easy-upload.net/fichier.php?fichier=2008918123415
>>> merci de votre aide.
>>> On 18 sep, 11:40, Michel__D <Michel.NOS...@orange-ft.com.invalid>
>>> wrote:
>>>> Bonjour,
>>>> Il n'y a pas de message d'erreur ?
>>>> Sinon exécuter en pas en pas.
>>>> PS:
>>>> La Function Extract(oFN As String) est appelé par la Sub RecupFich ier()
>>>> sleg a écrit :
>>>>> BOnjour,
>>>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>>>> sondage/#L4" l'information que je cherchais mais impossible de lanc er
>>>>> l'extract.
>>>>> une idée ??
>>>>> la function :
>>>>> Public Function Extract(oFN As String)
>>>>> On Error Resume Next
>>>>> Dim wApp As New Word.Application
>>>>> Dim oDoc As Word.Document
>>>>> Dim rs As DAO.Recordset
>>>>> Dim sql As String
>>>>> Dim i As Integer, j As Integer
>>>>> Set oDoc = wApp.Documents.Open(FileName:="\serveurrep1Projet 1
>>>>> Janvier 2008" & oFN)
>>>>> oDoc.Unprotect
>>>>> i = oDoc.FormFields.Count
>>>>> Debug.Print i
>>>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>>>> 'édition du jeu d'enregistrement par ajout
>>>>> rs.AddNew
>>>>> For j = 1 To i
>>>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>>>> Next j
>>>>> rs.Fields(j + 1) = oFN
>>>>> rs.Update
>>>>> oDoc.Close SaveChanges:=False
>>>>> rs.Close
>>>>> Set rs = Nothing
>>>>> Set oDoc = Nothing
>>>>> wApp.Quit
>>>>> End Function
>>>>> le second modul :
>>>>> Public Sub RecupFichier()
>>>>> Dim oFSO As New FileSystemObject
>>>>> Dim oFil As File
>>>>> Dim oFold As Folder
>>>>> Set oFold = oFSO.GetFolder("\serveurrep1Projet 1 Janvier 2008 1
>>>>> Janvier 2008")
>>>>> For Each oFil In oFold.Files
>>>>> If Right(oFil.Name, 4) = "doc" Then
>>>>> Extract (oFil.Name)
>>>>> oFil.Move "\serveurrep1Projet 1 Janvier 2008 1 Janvier
>>>>> 2008done"
>>>>> End If
>>>>> Next oFil
>>>>> Set oFSO = Nothing
>>>>> End Sub- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Tu n'aurais pas oublier ceci :
Dim oFSO As New FileSystemObject
Dim oFil As File
Dim oFold As Folder
Et aussi enlever le "" à la fin de
Set oFold = oFSO.GetFolder("d:testfiche")
Normalement si les librairies sont activées (références cochées)
cela devrait aller mieux.
Et si cela ne va pas donne le code complet utilisé (function et sub).
sleg a écrit :
> l'upload de on fichier
>http://www.nelty.fr/fichiers/recupzip.zip
> lorsque je fais F8 j'ai ces lignes qui apparraissent en jaune.....
> *Sub RecupFichier() *
> *Set oFold = oFSO.GetFolder("d:testfiche") *
> *For Each oFil In oFold.Files*
> *If Right(oFil.Name, 4) = "doc" Then*
> *End If*
> *Next oFil*
> merci de ton aide.
> On 18 sep, 13:06, Michel__D
> wrote:
>> sleg a écrit :
>>> Non aucun message d'erreur et le pas a pas me donne rien ou je ne sai s
>>> pas l'utiliser ...
>> Tu place le curseur sur n'importe quelle ligne de la Sub RecupFichier( )
>> et tu appuie sur la touche F8 pour l'exécution en pas à pas.
>>> voici mon fichier
>>>http://www.easy-upload.net/fichier.php?fichier 08918123415
>>> merci de votre aide.
>>> On 18 sep, 11:40, Michel__D
>>> wrote:
>>>> Bonjour,
>>>> Il n'y a pas de message d'erreur ?
>>>> Sinon exécuter en pas en pas.
>>>> PS:
>>>> La Function Extract(oFN As String) est appelé par la Sub RecupFich ier()
>>>> sleg a écrit :
>>>>> BOnjour,
>>>>> j'ai trouver sur ce site "http://heureuxoli.developpez.com/office/
>>>>> sondage/#L4" l'information que je cherchais mais impossible de lanc er
>>>>> l'extract.
>>>>> une idée ??
>>>>> la function :
>>>>> Public Function Extract(oFN As String)
>>>>> On Error Resume Next
>>>>> Dim wApp As New Word.Application
>>>>> Dim oDoc As Word.Document
>>>>> Dim rs As DAO.Recordset
>>>>> Dim sql As String
>>>>> Dim i As Integer, j As Integer
>>>>> Set oDoc = wApp.Documents.Open(FileName:="serveurrep1Projet 1
>>>>> Janvier 2008" & oFN)
>>>>> oDoc.Unprotect
>>>>> i = oDoc.FormFields.Count
>>>>> Debug.Print i
>>>>> Set rs = CurrentDb.OpenRecordset("recup", dbOpenTable)
>>>>> 'édition du jeu d'enregistrement par ajout
>>>>> rs.AddNew
>>>>> For j = 1 To i
>>>>> rs.Fields(j) = oDoc.FormFields(j).Result
>>>>> Next j
>>>>> rs.Fields(j + 1) = oFN
>>>>> rs.Update
>>>>> oDoc.Close SaveChanges:lse
>>>>> rs.Close
>>>>> Set rs = Nothing
>>>>> Set oDoc = Nothing
>>>>> wApp.Quit
>>>>> End Function
>>>>> le second modul :
>>>>> Public Sub RecupFichier()
>>>>> Dim oFSO As New FileSystemObject
>>>>> Dim oFil As File
>>>>> Dim oFold As Folder
>>>>> Set oFold = oFSO.GetFolder("serveurrep1Projet 1 Janvier 2008 1
>>>>> Janvier 2008")
>>>>> For Each oFil In oFold.Files
>>>>> If Right(oFil.Name, 4) = "doc" Then
>>>>> Extract (oFil.Name)
>>>>> oFil.Move "serveurrep1Projet 1 Janvier 2008 1 Janvier
>>>>> 2008done"
>>>>> End If
>>>>> Next oFil
>>>>> Set oFSO = Nothing
>>>>> End Sub- Masquer le texte des messages précédents -
>>>> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -