Bonjour
Je voudrais insérer, a partir d'un NOM les ref des coordonnées de cette personne qui sont dans un fichier excel.
Il faut une recherche automatique dans excel sur le NOM et une copie automatique dans word.
Comment faire
Merci
Daniel
Bonjour
Je voudrais insérer, a partir d'un NOM les ref des coordonnées de cette personne qui sont dans un fichier excel.
Il faut une recherche automatique dans excel sur le NOM et une copie automatique dans word.
Comment faire
Merci
Daniel
Salut,
Je suppose que si tu postes dans le Forum Word, c'est que tu commence par le fichier Word !
Si tes noms sont déjà en Excel, je te propose de faire un UserForm avec une liste déroulante contenant les noms, c'est déjà ça de gagné.
Si tu commet une erreur dans le nom, c'est foutu.
Dis moi si ça te convient comme solution.
Merci
Mais je ne sais pas ce qu'est un UserForm
Voici ma facture. Ce que je veux c'est remplir les espaces vides (...) avec les données équivalente de la feuille excel
FACTURE
Montpellier le vendredi 6 juin 2008
M DUBOIS
Vous avez réservé une location de vacances chez MAISONS VACANCES.
Nous avons reçu le paiement de votre solde pour la location ref : ... ,
- Période réservée: .. /.. /2008 au .. /.. /2008
- Durée: .. semaines
- Montant: ... €
- Vous allez recevoir votre feuille d’itinéraire ainsi que les coordonnées propriétaire.
- En vous souhaitant un agréable séjour.
J'ai trouvé ce script mais il n'y a rien qui se passe
- Sub InsérerLaValeurDuneClelluleExcelDansWord()
- Dim XlAppli
- Dim XlCl
- Dim Xlfl
- Dim Valeur
- Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
- Set XlCl = XlAppli.Workbooks.Open("D:\MES DOCUMENTS\A7-MAISONS VACANCES\GESTLOC Daniel.xls") '< le classeur
- Set Xlfl = XlCl.Worksheets("Réservations") '< la feuille
- Selection.TypeText Text:=Xlfl.Cells(25, 45).Value 'Insertion de la valeur de la cellule
- DoEvents 'laisse le temps au système de réaliser la copie
- XlCl.Close False 'ferme le classeur Excel sans enregistrer
- DoEvents ' laisse au système le temps de fermer le classeur
- XlAppli.Quit ' Ferme Excel
- Set XlAppli = Nothing ' supprime les instances
- Set XlCl = Nothing
- Set Xlfl = Nothing
- End Sub
En attendant, un peu de lecture
http://heureuxoli.developpez.com/off.../publipostage/
On y traite une partie de ce que tu cherches.
Voilà, je viens de mettre un zip avec un doc et un fichier xl.
Tu mets le tout dans le C:\temp.
Tu ouvre le Doc en appuyant sur Maj, pour éviter le démarrage de la macro.
Tu changes dans le VBE la référence à Excel 12.0 par la référence de ta version.
Tu sauvegardes.
Tu ouvres à nouveau le document normalement.
Tu auras un userForm avec une liste déroulante.
Merci bien
je teste...
En fait je download un fichier en php et non le .doc
Je comprend pas!!!
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager