Erreur '4160' Nom de Fichier Incorrect

Re : Erreur '4160' Nom de Fichier Incorrect

Bonjour RV 37,

Lorsque tu generes tes deux fichiers word, tu les generes en local ou sur le serveur entreprise ?
Sur ta session, le fichier excel que tu utilise provient il de ton disque OS ou du reseau ?

Je penses que c'est peut etre une histoire de path, mais ca reste a valider...

Re : Erreur '4160' Nom de Fichier Incorrect

Bonjour Thomasson, le fil,

Les fichiers sont ouverts via le réseau de l'entreprise. Aussi bien les fichiers excel que word.

Rien à partir des disques durs utilisateurs.

Bonne journée,

Re : Erreur '4160' Nom de Fichier Incorrect

Bonjour rv,

Je suis quasi sur que c'est bien une histoire de path.
Peux tu mettre lancer la macro sur le pc de tes collaboratrices, des que ca bug lancer le debogage et faire un sreenshot de la ligne en jaune et des lignes autour (notamment celles qui contiennent les paths absolus d'ou se trouve le(s) fichier(s) )

Cdlt,
Thomasson

Re : Erreur '4160' Nom de Fichier Incorrect

Bonjour Thomasson, le fil,

Merci de te pencher sur mon problème.

Je te joins l'impression écran du problème, tu pourras voir la macro dasn son intégralité.

Bonne journée,

RV37

Re : Erreur '4160' Nom de Fichier Incorrect

Re RV,

Je crois que j'ai compris
Deux choses :
- tu ouvres tes fichiers word dans le path indiqué. Bien, mais ton fichier excel duquel tu appelles ces fichiers word se trouve t-il lui aussi dans ce path ?
- peux tu me faire un copier-coller du path complet que je puisse voir la fin de la ligne ?

Cdlt

Re : Erreur '4160' Nom de Fichier Incorrect

Re Thomasson,

Voici la macro en entier :

Sub OuvrirWordDoc()
'References: cocher Microsoft Word 9.0 Object Library ' ou 10.0 ou autre
'selon ta version de Word

Dim wdAPP As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdAPP = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdAPP = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wdDoc = wdAPP.Documents.Open("R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\TempHD\ImpHD\Liste.doc")

wdAPP.Visible = True

Set wdDoc = wdAPP.Documents.Open("R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\TempHD\ImpHD\Etiquette.doc")
With wdAPP.Documents("Etiquette").MailMerge
'With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
'End With
wdAPP.Visible = False

wdAPP.Documents("Etiquette").Close
wdAPP.Documents("Liste").Close
wdAPP.Visible = True

End Sub


Le fichier Excel n'est plus ouvert à ce stade, j'ai une liaison avec un fichier "liste" de word qui sert de base pour le fichier "Etiquette" avant publipostage.

Suis je clair ??

RV

Re : Erreur '4160' Nom de Fichier Incorrect

Re,

dsl de te reposer une question, mais en fait j'ai besoin de savoir comment tu appelle ton code vba ?
Si tu l'appelle depuis le fichier excel d'origine ou d'une autre facon ?

Si c'est depuis le fichier d'excel d'origine, ce fichier se trouvet'il lui aussi au path : "R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\TempHD\ImpHD\" ?

Si c'est le cas, j'ai une solution pour toi..

Re : Erreur '4160' Nom de Fichier Incorrect

Re,

Pas de souci pour te répondre.

Le fichier excel d'où ja lance la macro est dans :
R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\"

Le fichier temporaire excel qui sert à la fusion avec Word est dans :
R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\TempHD\"

Les 2 fichiers Word qui servent, 1 à la liaison avec Temp (excel) et 1 au publipostage se trouvent dans :
R:\01 EXPLOITS\DR CENTRE\09 COMMUN\1 AGENCE BOURGES\MENU\MENUS ADULTES\TempHD\ImpHD\"

Si cela peut t'éclairer ??

Merci

Re : Erreur '4160' Nom de Fichier Incorrect

Re,

Ce que tu peux essayer : Creer un nouveau dossier ou tu regroupe tous les fichiers dont tu as besoin : le fichier excel, le temp excel et les deux doc.

Ensuite, ce que je te propose, c'est d'essayer de remplacer ton path, qui a l'heure actuelle est en absolu, par un path relatif. Je te donne un exemple pour ton code.
Voici ton code d'origine :

Maintenant le nouveau code en relatif, une fois que tu as regroupé tous tes fichiers dans le meme dossier:

Essayes cela, et tiens moi au courant voir si ca marche.
Attention a ne pas oublier d'appliquer cette modif sur tous les paths presents dans ton code !

Re : Erreur '4160' Nom de Fichier Incorrect

Re Thomasson, le fil,

Le fichier de départ (excel), je ne peux pas le regrouper car il est utilisé sous plusieurs copies.

Je teste ta solution en gardant mon premier fichier tel su'il est et je te tiens au courant Lundi.

Bon week à tous,

RV37