bonjour,
depuis word je cherche à ouvrir un fichier xl
je reçois le message suivant:
Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
n'est pas disponible
kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
une
page blanche
merci
--
bonjour,
depuis word je cherche à ouvrir un fichier xl
je reçois le message suivant:
Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
n'est pas disponible
kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
une
page blanche
merci
--
bonjour,
depuis word je cherche à ouvrir un fichier xl
je reçois le message suivant:
Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
n'est pas disponible
kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
une
page blanche
merci
--
Salut,
si tu es le même Gilles du post "Insertion de données depuis xl dans word"
en date du 26/08/2008, pourquoi ne continues-tu pas dans le sens où l'on est
partis ?
On touchait vraiment au but. Dommage si ça ne t'intéresse finalement plus...
Quoi qu'il en soit, tu as ce message parce qu'il ne trouve rien à coller !
Il n'y a rien eu de copié, donc ton presse-papier est vide.
CAP2
"gilles" a écrit dans le message de news:
> bonjour,
> depuis word je cherche à ouvrir un fichier xl
> je reçois le message suivant:
> Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
> n'est pas disponible
> kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
> une
> page blanche
> merci
> --
>
Salut,
si tu es le même Gilles du post "Insertion de données depuis xl dans word"
en date du 26/08/2008, pourquoi ne continues-tu pas dans le sens où l'on est
partis ?
On touchait vraiment au but. Dommage si ça ne t'intéresse finalement plus...
Quoi qu'il en soit, tu as ce message parce qu'il ne trouve rien à coller !
Il n'y a rien eu de copié, donc ton presse-papier est vide.
CAP2
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
DB07F4AE-B430-4D3A-A822-5B62A9370404@microsoft.com...
> bonjour,
> depuis word je cherche à ouvrir un fichier xl
> je reçois le message suivant:
> Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
> n'est pas disponible
> kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
> une
> page blanche
> merci
> --
>
Salut,
si tu es le même Gilles du post "Insertion de données depuis xl dans word"
en date du 26/08/2008, pourquoi ne continues-tu pas dans le sens où l'on est
partis ?
On touchait vraiment au but. Dommage si ça ne t'intéresse finalement plus...
Quoi qu'il en soit, tu as ce message parce qu'il ne trouve rien à coller !
Il n'y a rien eu de copié, donc ton presse-papier est vide.
CAP2
"gilles" a écrit dans le message de news:
> bonjour,
> depuis word je cherche à ouvrir un fichier xl
> je reçois le message suivant:
> Selection.PasteExcelTable False, False, False 'erreur 4605 cette commande
> n'est pas disponible
> kekun peut-il m'espliquer la signification, car sur l'aide en ligne j'ai
> une
> page blanche
> merci
> --
>
Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08 à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais, ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08 à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais, ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "\")
lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08 à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais, ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
OK
je te remets donc ma réponse à tes questions:
A l'origine je m'étais dis que quelques données placées en en-tête, à
droite
, ça irait
...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
pourraient être placées ici ou là
en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
(faut deja que je vois ce qu'est un signet sur word!!)
Sinon il y a un petit pb (quand même!)
si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
à
bout, et on crée 3 liaisons
pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
supprimer ces liaisons (et eventuellement effacer les donnees) avant de
copier la nouvelle liaison, mais j'obtiens juste ce code:
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
à+(et merci encore)--
...et je t'ai posté un autre message pour te dire que mon copié collé se
faisat sur le code que tu m'avais fourni
voila
si tu as le courage de t'y replonger...
merci
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...
"CAP2" a écrit :Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules
H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code
là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
OK
je te remets donc ma réponse à tes questions:
A l'origine je m'étais dis que quelques données placées en en-tête, à
droite
, ça irait
...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
pourraient être placées ici ou là
en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
(faut deja que je vois ce qu'est un signet sur word!!)
Sinon il y a un petit pb (quand même!)
si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
à
bout, et on crée 3 liaisons
pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
supprimer ces liaisons (et eventuellement effacer les donnees) avant de
copier la nouvelle liaison, mais j'obtiens juste ce code:
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "\")
lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
à+(et merci encore)--
...et je t'ai posté un autre message pour te dire que mon copié collé se
faisat sur le code que tu m'avais fourni
voila
si tu as le courage de t'y replonger...
merci
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...
"CAP2" a écrit :
Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules
H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code
là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "\")
lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
OK
je te remets donc ma réponse à tes questions:
A l'origine je m'étais dis que quelques données placées en en-tête, à
droite
, ça irait
...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
pourraient être placées ici ou là
en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
(faut deja que je vois ce qu'est un signet sur word!!)
Sinon il y a un petit pb (quand même!)
si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
à
bout, et on crée 3 liaisons
pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
supprimer ces liaisons (et eventuellement effacer les donnees) avant de
copier la nouvelle liaison, mais j'obtiens juste ce code:
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
à+(et merci encore)--
...et je t'ai posté un autre message pour te dire que mon copié collé se
faisat sur le code que tu m'avais fourni
voila
si tu as le courage de t'y replonger...
merci
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...
"CAP2" a écrit :Salut Gilles,
mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
à
16h53).
Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
tes
fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
ça
marchait bien...
Donc je te repose les mêmes questions que dans mon dernier post ;o))
A plus,
CAP2
Pour info, je te mets le texte de mes 2 derniers posts :
*********************DEBUT***********************************
Bon,
j'avance bien, on va procéder par étapes :
Partant du principe que tes utilsateurs vont avoir un dossier contenant
plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
tu
veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
vierge dans ton dossier où il y a tout...
Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
cours, part à la recherche de Fiche info affaire.xls et de ses cellules
H8 à
H10 dans ce dossier, et fait crée mon code de champs. C'est une première
étape, parce qu'ensuite il faudra automatiser le positionnement du code
là
où tu le veux. Tu me diras ça après. Tente déjà ce code) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:=final
Selection.Fields.Update
End Sub
Ca donne quoi ? Chez moi, ça marche bien !
CAP2
**********************FIN**********************************
Et voici le texte de mon dernier post :
*********************DEBUT***********************************
Bon,
déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
direction ;o))
Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
y'a-t-il
d'autres plages à insérer ?
De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
CAP2
**********************FIN**********************************
Procédons par étapes Gilles,
le code que tu me renvoies c'est celui que j'ai écrit. Celui qui découle de
ta macro, tu le trouveras en ouvrant ton fichier, en faisant Alt F11 et en
double-cliquant (sur la gauche de l'écran) sur la feuille "Module" de ton
fichier...
Parcequ'effectivement, il faudra prévoir la suppression des liens déjà
établis.
Maintenant, j'attends juste que tu me précises bien à quel endroit de ton
doc Word tu veux insérer des liens et vers quelles cellules du fichier excel
ces liens doivent pointer.
Le code que j'ai écrit est maintenant "universel" puisqu'il va à la
recherche du dossier en cours pour y trouver le fichier Fiche info
affaire.xls, donc une fois que tu m'auras donné ces précisions, je fais le
truc,je te l'envoie via cjoint et ça doit tourner ;o)))
Ca marche ?
CAP2
"gilles" a écrit dans le message de news:
> OK
> je te remets donc ma réponse à tes questions:
>
>
> A l'origine je m'étais dis que quelques données placées en en-tête, à
> droite
> , ça irait
> ...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
> pourraient être placées ici ou là
> en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
> (faut deja que je vois ce qu'est un signet sur word!!)
> Sinon il y a un petit pb (quand même!)
> si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
> à
> bout, et on crée 3 liaisons
> pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
> supprimer ces liaisons (et eventuellement effacer les donnees) avant de
> copier la nouvelle liaison, mais j'obtiens juste ce code:
>
> Private Sub Document_Open()
> Dim dossier
> Dim lien As String
> Dim final As String
>
> dossier = Replace(ActiveDocument.Path, "", "")
>
> lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
>
> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
> Text:=final
>
> Selection.Fields.Update
>
> End Sub
>
> à+(et merci encore)--
>
>
> ...et je t'ai posté un autre message pour te dire que mon copié collé se
> faisat sur le code que tu m'avais fourni
> voila
> si tu as le courage de t'y replonger...
> merci
>
> --
> en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
> aujourd'hui,
> mais à chaque jour suffit sa peine...
>
>
> "CAP2" a écrit :
>
>> Salut Gilles,
>>
>> mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
>> à
>> 16h53).
>>
>> Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
>> tes
>> fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
>> ça
>> marchait bien...
>>
>> Donc je te repose les mêmes questions que dans mon dernier post ;o))
>>
>> A plus,
>>
>> CAP2
>>
>> Pour info, je te mets le texte de mes 2 derniers posts :
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> j'avance bien, on va procéder par étapes :
>>
>> Partant du principe que tes utilsateurs vont avoir un dossier contenant
>> plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
>> tu
>> veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
>> vierge dans ton dossier où il y a tout...
>>
>> Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
>> cours, part à la recherche de Fiche info affaire.xls et de ses cellules
>> H8 à
>> H10 dans ce dossier, et fait crée mon code de champs. C'est une première
>> étape, parce qu'ensuite il faudra automatiser le positionnement du code
>> là
>> où tu le veux. Tu me diras ça après. Tente déjà ce code) :
>>
>> Private Sub Document_Open()
>> Dim dossier
>> Dim lien As String
>> Dim final As String
>>
>> dossier = Replace(ActiveDocument.Path, "", "")
>>
>> lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
>>
>> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>>
>> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
>> Text:=final
>>
>> Selection.Fields.Update
>>
>> End Sub
>>
>> Ca donne quoi ? Chez moi, ça marche bien !
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>> Et voici le texte de mon dernier post :
>>
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
>> direction ;o))
>>
>> Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
>> y'a-t-il
>> d'autres plages à insérer ?
>> De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>>
>>
Procédons par étapes Gilles,
le code que tu me renvoies c'est celui que j'ai écrit. Celui qui découle de
ta macro, tu le trouveras en ouvrant ton fichier, en faisant Alt F11 et en
double-cliquant (sur la gauche de l'écran) sur la feuille "Module" de ton
fichier...
Parcequ'effectivement, il faudra prévoir la suppression des liens déjà
établis.
Maintenant, j'attends juste que tu me précises bien à quel endroit de ton
doc Word tu veux insérer des liens et vers quelles cellules du fichier excel
ces liens doivent pointer.
Le code que j'ai écrit est maintenant "universel" puisqu'il va à la
recherche du dossier en cours pour y trouver le fichier Fiche info
affaire.xls, donc une fois que tu m'auras donné ces précisions, je fais le
truc,je te l'envoie via cjoint et ça doit tourner ;o)))
Ca marche ?
CAP2
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
B5BB0268-DDC7-4611-B1C5-2C02E9A3B698@microsoft.com...
> OK
> je te remets donc ma réponse à tes questions:
>
>
> A l'origine je m'étais dis que quelques données placées en en-tête, à
> droite
> , ça irait
> ...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
> pourraient être placées ici ou là
> en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
> (faut deja que je vois ce qu'est un signet sur word!!)
> Sinon il y a un petit pb (quand même!)
> si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
> à
> bout, et on crée 3 liaisons
> pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
> supprimer ces liaisons (et eventuellement effacer les donnees) avant de
> copier la nouvelle liaison, mais j'obtiens juste ce code:
>
> Private Sub Document_Open()
> Dim dossier
> Dim lien As String
> Dim final As String
>
> dossier = Replace(ActiveDocument.Path, "", "\")
>
> lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
>
> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
> Text:=final
>
> Selection.Fields.Update
>
> End Sub
>
> à+(et merci encore)--
>
>
> ...et je t'ai posté un autre message pour te dire que mon copié collé se
> faisat sur le code que tu m'avais fourni
> voila
> si tu as le courage de t'y replonger...
> merci
>
> --
> en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
> aujourd'hui,
> mais à chaque jour suffit sa peine...
>
>
> "CAP2" a écrit :
>
>> Salut Gilles,
>>
>> mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
>> à
>> 16h53).
>>
>> Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
>> tes
>> fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
>> ça
>> marchait bien...
>>
>> Donc je te repose les mêmes questions que dans mon dernier post ;o))
>>
>> A plus,
>>
>> CAP2
>>
>> Pour info, je te mets le texte de mes 2 derniers posts :
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> j'avance bien, on va procéder par étapes :
>>
>> Partant du principe que tes utilsateurs vont avoir un dossier contenant
>> plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
>> tu
>> veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
>> vierge dans ton dossier où il y a tout...
>>
>> Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
>> cours, part à la recherche de Fiche info affaire.xls et de ses cellules
>> H8 à
>> H10 dans ce dossier, et fait crée mon code de champs. C'est une première
>> étape, parce qu'ensuite il faudra automatiser le positionnement du code
>> là
>> où tu le veux. Tu me diras ça après. Tente déjà ce code) :
>>
>> Private Sub Document_Open()
>> Dim dossier
>> Dim lien As String
>> Dim final As String
>>
>> dossier = Replace(ActiveDocument.Path, "", "\")
>>
>> lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
>>
>> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>>
>> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
>> Text:=final
>>
>> Selection.Fields.Update
>>
>> End Sub
>>
>> Ca donne quoi ? Chez moi, ça marche bien !
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>> Et voici le texte de mon dernier post :
>>
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
>> direction ;o))
>>
>> Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
>> y'a-t-il
>> d'autres plages à insérer ?
>> De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>>
>>
Procédons par étapes Gilles,
le code que tu me renvoies c'est celui que j'ai écrit. Celui qui découle de
ta macro, tu le trouveras en ouvrant ton fichier, en faisant Alt F11 et en
double-cliquant (sur la gauche de l'écran) sur la feuille "Module" de ton
fichier...
Parcequ'effectivement, il faudra prévoir la suppression des liens déjà
établis.
Maintenant, j'attends juste que tu me précises bien à quel endroit de ton
doc Word tu veux insérer des liens et vers quelles cellules du fichier excel
ces liens doivent pointer.
Le code que j'ai écrit est maintenant "universel" puisqu'il va à la
recherche du dossier en cours pour y trouver le fichier Fiche info
affaire.xls, donc une fois que tu m'auras donné ces précisions, je fais le
truc,je te l'envoie via cjoint et ça doit tourner ;o)))
Ca marche ?
CAP2
"gilles" a écrit dans le message de news:
> OK
> je te remets donc ma réponse à tes questions:
>
>
> A l'origine je m'étais dis que quelques données placées en en-tête, à
> droite
> , ça irait
> ...et c'est toujours le cas, mais sur la page il y a plusieurs données qui
> pourraient être placées ici ou là
> en surfant j'ai cru voir qu'on pouvait placer des signets et les numéroter
> (faut deja que je vois ce qu'est un signet sur word!!)
> Sinon il y a un petit pb (quand même!)
> si jouvre et ferme 3 fois le fichier, les données viennent se mettre bout
> à
> bout, et on crée 3 liaisons
> pendant que tu t'arrachais les cheveux, j'ai enregistré une macro, pour
> supprimer ces liaisons (et eventuellement effacer les donnees) avant de
> copier la nouvelle liaison, mais j'obtiens juste ce code:
>
> Private Sub Document_Open()
> Dim dossier
> Dim lien As String
> Dim final As String
>
> dossier = Replace(ActiveDocument.Path, "", "")
>
> lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
>
> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
> Text:=final
>
> Selection.Fields.Update
>
> End Sub
>
> à+(et merci encore)--
>
>
> ...et je t'ai posté un autre message pour te dire que mon copié collé se
> faisat sur le code que tu m'avais fourni
> voila
> si tu as le courage de t'y replonger...
> merci
>
> --
> en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
> aujourd'hui,
> mais à chaque jour suffit sa peine...
>
>
> "CAP2" a écrit :
>
>> Salut Gilles,
>>
>> mais non tu me gaves pas. J'ai bien répondu à ton dernier message (27/08
>> à
>> 16h53).
>>
>> Moi, j'en suis à ce code qui trouve le dossier en cours où il y a tous
>> tes
>> fichiers et va chercher les infos en H8:H10. D'après ce que tu me disais,
>> ça
>> marchait bien...
>>
>> Donc je te repose les mêmes questions que dans mon dernier post ;o))
>>
>> A plus,
>>
>> CAP2
>>
>> Pour info, je te mets le texte de mes 2 derniers posts :
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> j'avance bien, on va procéder par étapes :
>>
>> Partant du principe que tes utilsateurs vont avoir un dossier contenant
>> plein de fichiers, dont Fiche info affaire.xls, et des fichiers WORD où
>> tu
>> veux récupérer les valeurs des cellule H8 à H10, tu vs créer un doc WORD
>> vierge dans ton dossier où il y a tout...
>>
>> Et sur son Open, tu mets ce code (le code cherche le nom du dossier en
>> cours, part à la recherche de Fiche info affaire.xls et de ses cellules
>> H8 à
>> H10 dans ce dossier, et fait crée mon code de champs. C'est une première
>> étape, parce qu'ensuite il faudra automatiser le positionnement du code
>> là
>> où tu le veux. Tu me diras ça après. Tente déjà ce code) :
>>
>> Private Sub Document_Open()
>> Dim dossier
>> Dim lien As String
>> Dim final As String
>>
>> dossier = Replace(ActiveDocument.Path, "", "")
>>
>> lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
>>
>> final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C8:L10C8 t "
>>
>> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
>> Text:=final
>>
>> Selection.Fields.Update
>>
>> End Sub
>>
>> Ca donne quoi ? Chez moi, ça marche bien !
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>> Et voici le texte de mon dernier post :
>>
>>
>> *********************DEBUT***********************************
>>
>> Bon,
>>
>> déjà si ça marche avec ce premier jet, c'est qu'on avance dans la bonne
>> direction ;o))
>>
>> Maintenant, l'import ne concerne-t-il que la plage H8:H10 ou bien
>> y'a-t-il
>> d'autres plages à insérer ?
>> De plus, tu veux qu'on insère ça dans quelle zone de ton doc WORD ?
>>
>> CAP2
>>
>> **********************FIN**********************************
>>
>>
>>
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "\")
lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "\")
lien = Chr(34) & dossier & "\Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2
Bon Gilles,
t'as plus qu'à remplacer mon ancienne macro par celle-ci qui va à
l'ouverture du fichier Word faire tout ça :
vider l'ancien entête, aller chercher sur le fichier Excel "Fiche Info
Affaire.xls" les valeurs des cellules B8 à B12, rappatrier le tout en entête
à droite. C'est bien ce que tu voulais ?! ;o)) :
Donc tu ouvres ton fichier Word, tu fais Alt F11, tu regardes à gauche de
l'écran, tu vois ton fichier Word, tu double-cliques sur son ThisDocument et
tu colles ça (ça marche chez moi) :
Private Sub Document_Open()
Dim dossier
Dim lien As String
Dim final As String
dossier = Replace(ActiveDocument.Path, "", "")
lien = Chr(34) & dossier & "Fiche info affaire.xls" & Chr(34)
final = "LINK Excel.Sheet.8 " & lien & " fiche!L8C2:L12C2 t "
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=final
Selection.WholeStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.Fields.Update
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Voilà, j'attends que tu me dise ce que ça donne, et si on continue pour
rappatrier d'autres infos à d'autres endroits du document Word ;o))
Ca marche ?
CAP2