Insérer une nouvelle page dans mon document word suivant un modèle avec des signets

[aba_tarn]

J'ai toujours la même erreur...

[Heureux-oli]

Salut,

Je viens de faire un nouveau test et je ne rencontre pas de problème

Sub testAjoutDoc()
'
' Ajouter la bibliothèque Microsoft Scripting Runtime
'
Dim fso As FileSystemObject
 
Dim oFl As File
Dim ofol As Folder
Dim stPath As String
 
 
Set fso = New FileSystemObject
 
 
stPath = "C:\Courriers"
Set ofol = fso.GetFolder(stPath)
 
For Each oFl In ofol.Files
    
    Selection.InsertFile FileName:=oFl.Name, Range:=""
Next oFl
 
Set ofol = Nothing
Set oFl = Nothing
Set dlg = Nothing
Set fso = Nothing
 
 
End Sub
 

[aba_tarn]

Même en copiant votre code j'ai toujours la même erreur.

J'ouvre un document word et j'exécute la requête. Je ne comprends pas pourquoi j'ai cette erreur et pas vous...

[Heureux-oli]

Salut,
Avec la boîte de dialogue, avais tu l'erreur ?

Le répertoire, existe-t-il ?

[aba_tarn]

j'ai maintenant l'erreur suivante :

erreur 5174
Fichier introuvable.
(document1.doc)

Alors que mon fichier existe et que je n'ai pas modifié le code....

Sub testAjoutDoc()
'
' Ajouter la bibliothèque Microsoft Scripting Runtime
'
Dim fso As FileSystemObject
 
Dim oFl As File
Dim ofol As Folder
Dim stPath As String
 
 
Set fso = New FileSystemObject
 
stPath = "C:\Courriers"
Set ofol = fso.GetFolder(stPath)
 
For Each oFl In ofol.Files
    
    Selection.InsertFile FileName:=oFl.Name, Range:=""
Next oFl
 
Set ofol = Nothing
Set oFl = Nothing
Set dlg = Nothing
Set fso = Nothing
 
 
End Sub
 

[Heureux-oli]

Le fichier avec lequel tu lances la macro se trouve-t-il dans ce répertoire ?

[aba_tarn]

non le fichier avec lequel je lance la macro ne se trouve pas dans le répertoire et je n'avais pas de message d'erreur avec la boîte de dialogue, c'est pour ça que je pensais que j'avais fait une erreur en déclarant le chemin en dur. J'ai l'impression qu'il ne trouve pas les fichiers contenus dan le dossier... C'est bizarre.

Mes documents s'appellent document1, document2... il me dit qu'il ne trouve pas le document1. Si j'enlève le document1, il me dit qu'il ne trouve pas le document2. Il ne trouve donc à priori aucun document du dossier...

[Heureux-oli]

Salut,

Essaie ce code et dis moi ce qui se passe ?

 
Sub test()
Dim fso As FileSystemObject
Dim ofd As Folder
Dim ofl As File
 
Set fso = New FileSystemObject
Set ofd = fso.GetFolder("C:\temp")
 
For Each ofl In ofd.Files
    MsgBox ofl.Name
Next
Set ofd = Nothing
Set fso = Nothing
 
 
End Sub

[aba_tarn]

Ca m'affiche une msgbox avec le nom de chaque fichier de mon dossier.. Donc il trouve bien tous mes fichiers par ce biais là.

[Heureux-oli]

Quelle est ta version de Word ?

[aba_tarn]

Ma version de word est la version 2007 mais mes fichiers sont enregistrés en . doc. ça pourrait poser problème?

[aba_tarn]

J'ai toujours l'erreur :

Erreur d'éxecution '5174'
Fichier introuvable.(document1.doc)

Alors qu'avec le programme test, il me trouve bien tous mes noms de fichiers; décidément je bloque encore sur cette petite chose....

Pour lancer la macro, je la lance depuis Access via du code VBA, mais je ne pense pas que ce soit le soucis vu que quand il y a le chemin que l'on défini manuellement cela fonctionne. Peut être que lorsque l'on défini le chemin manuellement, on active quelque chose???