Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lou
rebonjour j'ai trouvé sur un groupe de discussion le code fournit par RAYMOND Private Sub Commande90_Click() On Error Resume Next Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open ("C:PDFCACA.doc") .Selection.HomeKey Unit:=wdStory .Selection.EndKey Unit:=wdStory, Extend:=wdExtend .Selection.Copy .ActiveDocument.Close wdDoNotSaveChanges .Quit End With Set W_App = Nothing Me.recuptexte.SetFocus DoCmd.RunCommand acCmdPaste
End Sub
donc j'importe les fichier WORD dans un champ MEMO que je place dans un etat
ce code fonctionne tres bien mais il reste un petit probleme a savoir que quand il y a des espaces au debut des lignes si je regarde dans mon etat il y a des petits carrés qui remplacent les espaces comment les enlever????? merci pour votre aide lou
"lou" a écrit dans le message de news: 41a3d24a$0$29503$
bonjour
voila j'ai un fichier WORD dont je voudrais importer le contenu dans un champ MEMO qui se trouve dans un formulaire
si c'est possible en respectant les saut de ligne suis debutant avec access 2000 merci de votre aide lou
rebonjour
j'ai trouvé sur un groupe de discussion
le code fournit par RAYMOND
Private Sub Commande90_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("C:PDFCACA.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges
.Quit
End With
Set W_App = Nothing
Me.recuptexte.SetFocus
DoCmd.RunCommand acCmdPaste
End Sub
donc j'importe les fichier WORD dans un champ MEMO
que je place dans un etat
ce code fonctionne tres bien
mais il reste un petit probleme a savoir que quand il y a des espaces au
debut des lignes si je regarde dans mon etat il y a des petits carrés qui
remplacent les espaces
comment les enlever?????
merci pour votre aide
lou
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a3d24a$0$29503$ba620e4c@news.skynet.be...
bonjour
voila j'ai un fichier WORD dont je voudrais importer
le contenu dans un champ MEMO qui se trouve dans un formulaire
si c'est possible en respectant les saut de ligne
suis debutant avec access 2000
merci de votre aide
lou
rebonjour j'ai trouvé sur un groupe de discussion le code fournit par RAYMOND Private Sub Commande90_Click() On Error Resume Next Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open ("C:PDFCACA.doc") .Selection.HomeKey Unit:=wdStory .Selection.EndKey Unit:=wdStory, Extend:=wdExtend .Selection.Copy .ActiveDocument.Close wdDoNotSaveChanges .Quit End With Set W_App = Nothing Me.recuptexte.SetFocus DoCmd.RunCommand acCmdPaste
End Sub
donc j'importe les fichier WORD dans un champ MEMO que je place dans un etat
ce code fonctionne tres bien mais il reste un petit probleme a savoir que quand il y a des espaces au debut des lignes si je regarde dans mon etat il y a des petits carrés qui remplacent les espaces comment les enlever????? merci pour votre aide lou
"lou" a écrit dans le message de news: 41a3d24a$0$29503$
bonjour
voila j'ai un fichier WORD dont je voudrais importer le contenu dans un champ MEMO qui se trouve dans un formulaire
si c'est possible en respectant les saut de ligne suis debutant avec access 2000 merci de votre aide lou
