Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4) et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val'val' nous a écrit ...j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4) et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val
'val' nous a écrit ...
j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!
Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4) et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val'val' nous a écrit ...j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
tu ne sembles pas avoir vu la réponse d'Anacoluthe, j'espère que tu verras
celle ci
Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
Le 15/11/2004 00:13 vous avez écrit ceci :bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi
quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à
chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4)
et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val'val' nous a écrit ...j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
tu ne sembles pas avoir vu la réponse d'Anacoluthe, j'espère que tu verras
celle ci
Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
Le 15/11/2004 00:13 vous avez écrit ceci :
bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi
quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à
chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4)
et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val
'val' nous a écrit ...
j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!
Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
tu ne sembles pas avoir vu la réponse d'Anacoluthe, j'espère que tu verras
celle ci
Alors voilà la macro si je t'ai bien compris ...
Comme je ne sais pas quelle version utilise Val j'ai repris
la macro de Guy dans la FAQ pour 'piocher' un document
Sub LierIciUnDocumentTexte()
' Insère un document en champ LINK avec commutateur t
Dim MonTexte As InlineShape
Dim CC As String
Set MonTexte = Selection.InlineShapes.AddOLEObject( _
ClassType:="Word.Document.8", _
FileName:=fstrFichierUtilisateur(), _
LinkToFile:=True, DisplayAsIcon:úlse)
CC = MonTexte.Field.Code.Text
CC = Left(CC, Len(CC) - 3) & "t "
MonTexte.Field.Code.Text = CC
ActiveDocument.Fields.Update
End Sub
Public Function fstrFichierUtilisateur() As String
' Macro écrite par Guy Moncomble
Dim MyDialog As Dialog, RetourDial As Integer
Dim Nom As String, Chemin As String, NomComplet As String
Set MyDialog = Dialogs(wdDialogFileOpen)
RetourDial = MyDialog.Display
If RetourDial = -1 Then
Nom = MyDialog.Name
Chemin = CurDir
NomComplet = Chemin & "" & Nom
fstrFichierUtilisateur = NomComplet
Else
fstrFichierUtilisateur = ""
End If
End Function
Je n'ai finalement pas utilisé de RR (Rechercher Remplacer)
pour changer le commutateur p en t
Bonne soirée !
Anacoluthe
« Le plus difficile ce ne sont pas les réponses,
le plus difficile, c'est de se poser des questions. »
- Lyse DESROCHES
Le 15/11/2004 00:13 vous avez écrit ceci :bonsoir
je suis desole mais je fais ce que je peux... il me faut la macro pour
mercredi et bien sur je n'ai pas le temps d'acquerir les bases.
si deja je pouvais arriver à ça :
je clique sur
1) insertion
2) objet
3) creer d'apres le fichier
4) lier au fichier
5) parcourir (je dois ici choisir un fichier word)
j'ai bien essaye d'enregistrer cette macro mais quand je l'execute c'est
toujours le meme fichier qui est insere (logique celui que j'ai choisi
quand
j'ai enregistre la macro). je voudrais pouvoir choisir un fichier à
chaque
fois que j'utilise cette macro. il
faudrait une fois la macro lancee qu'elle execute les points 1) 2) 3) 4)
et
qu'elle s'arrete au
point 5) pour me demander quel est le fichier à inserer !!!
voila ce dont j'ai deja besoin pour mercredi...
j'ai essaye le code que tu m'as envoye mais je t'en parlerai un peu plus
tard.
encore merci.
val'val' nous a écrit ...j'ai essaye de mettre tes lignes dans ma macro mais ça ne marche pas
!!!Horreur ! S'il vous plaît ne mélangez pas tout !!!!!!!!!!!!
La macro de Geo MARCHE même si elle ne répond pas à votre demande,
ma macro MARCHE si on s'en tient aux explications de Circé.
Par pitié ne bricolez pas en VBA sans un minimum de connaissance
de syntaxe que vous trouverez dans l'Aide de VBA ou sur la FAQ à Circé
sinon c'est vraiment pas la peine, on n'y arrivera jamais. Votre
demande de macro est déjà assez COMPLEXE comme ça, il vous faut
absolument quelques BASES pour pouvoir nous comprendre.
Ce n'est pas une critique, tout le monde a débuté un jour :-)
Anacoluthe
« Connaître son ignorance est la meilleure part de la connaissance. »
- Proverbe chinois
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
si si j'avais lu celle d'Anacoluthe mais il y avait un probleme. elle
bloquait. un message s'affichait en indiquant " erreur de compilation" le
code "fstrFichierUtilisateur()" etait surligne en jaune...
je ne comprends pas (j'ai verifie) le code ets le meme !!!
juste un petit point sur cette macro. le texte insere dans le doc principal
est surligne en gris ? pour quelles raisons ? est ce qu'il est toujours lie
? j'aimerais bien que la macro puisse rompre cette liaison.
je ne comprends pas tres bien la fonction suivante : "Public Function
fstrFichierUtilisateur() As String"
à quoi sert elle ?
si si j'avais lu celle d'Anacoluthe mais il y avait un probleme. elle
bloquait. un message s'affichait en indiquant " erreur de compilation" le
code "fstrFichierUtilisateur()" etait surligne en jaune...
je ne comprends pas (j'ai verifie) le code ets le meme !!!
juste un petit point sur cette macro. le texte insere dans le doc principal
est surligne en gris ? pour quelles raisons ? est ce qu'il est toujours lie
? j'aimerais bien que la macro puisse rompre cette liaison.
je ne comprends pas tres bien la fonction suivante : "Public Function
fstrFichierUtilisateur() As String"
à quoi sert elle ?
si si j'avais lu celle d'Anacoluthe mais il y avait un probleme. elle
bloquait. un message s'affichait en indiquant " erreur de compilation" le
code "fstrFichierUtilisateur()" etait surligne en jaune...
je ne comprends pas (j'ai verifie) le code ets le meme !!!
juste un petit point sur cette macro. le texte insere dans le doc principal
est surligne en gris ? pour quelles raisons ? est ce qu'il est toujours lie
? j'aimerais bien que la macro puisse rompre cette liaison.
je ne comprends pas tres bien la fonction suivante : "Public Function
fstrFichierUtilisateur() As String"
à quoi sert elle ?
Val vous allez nous rendre FOUS !!!!!!!!!!!!!!!!!!!!!!!!
Val vous allez nous rendre FOUS !!!!!!!!!!!!!!!!!!!!!!!!
Val vous allez nous rendre FOUS !!!!!!!!!!!!!!!!!!!!!!!!
