Bonjour à Tous,
J'ai besoin d'aide pour un problème que je n'arrive pas à résoudre depuis des jours/heures ...
Mon but étant d'automatiser des comptes-rendus médicaux.
J'ai réussi à ouvrir Word avec Excel MAIS Aucune données d'Excel ne remplace les signets du document Word.
Impossible de trouver la réponse à mon problème, malgré la recherche sur internet, les forums, etc.
Mon problème est au niveau du fichier XL : Onglet Comptes-rendus sur la case Word . Malheureusement aucunes modifications...
Voici LE CODE VBA :
J'ai besoin d'aide pour un problème que je n'arrive pas à résoudre depuis des jours/heures ...
Mon but étant d'automatiser des comptes-rendus médicaux.
J'ai réussi à ouvrir Word avec Excel MAIS Aucune données d'Excel ne remplace les signets du document Word.
Impossible de trouver la réponse à mon problème, malgré la recherche sur internet, les forums, etc.
Mon problème est au niveau du fichier XL : Onglet Comptes-rendus sur la case Word . Malheureusement aucunes modifications...
Voici LE CODE VBA :
VB:
Sub CreationCPEPatientNouveauword()
' Choix nom enregistrement '
DossierNom = Application.InputBox("Word", "Word", "Nom du document WORD ?")
Sauvegardeindicateurs = "\\Mac\Home\Documents\Systématisation Essai" & DossierNom & "\"
On Error Resume Next
Fichierexistant = GetAttr(fichier) & vbDirectory
If Fichierexistant = False Then
MkDir (Sauvegardeindicateurs)
End If
' Ouverture fichier WORD'
Set Wordapp = CreateObject("word.Application")
Wordapp.Documents.Open "\\Mac\Home\Documents\Systématisation Compte-Rendu\Automatisation CPE NomPatient.docx"
Worddoc.Bookmarks("NomPatient").Range.Text = Sheets("Consultation Pré-endodontique").Range("D5")
Worddoc.Bookmarks("PrénomPatient").Range.Text = Sheets("Consultation Pré-endodontique").Range("D6")
Worddoc.Bookmarks("Dent1").Range.Text = Range("G10").Value
Wordapp.Visible = True 'affiche le document Word
End Sub
Dernière édition: