Soit un document A avec une TextBox et un document B. je souhaite récupérer
les données de la TextBox du doc A afin de les copier vers la TextBox du doc
B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son
chemin.
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
heureux-oli
Salut,
Avec la version de Word, ce serait plus facile.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.
Merci de votre aide Jean-Paul
Salut,
Avec la version de Word, ce serait plus facile.
Sub EchangerDonnees()
'Déclaration des variables
Dim oDoc As Document
Dim stPath As String
Dim stTemp As String
Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp
stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.AllowMultiSelect = False
.InitialFileName = ActiveDocument.Path
.Show
End With
Set oDoc = Documents.Open(oDlg.SelectedItems(1))
oDoc.FormFields(1).Result = stTemp
oDoc.Activate
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
C5B736F6-57A4-4AD3-BF0B-42189371BA82@microsoft.com...
Bonsoir,
Je souhaiterais construire la macro suivante :
Soit un document A avec une TextBox et un document B. je souhaite
récupérer
les données de la TextBox du doc A afin de les copier vers la TextBox du
doc
B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son
chemin.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.
Merci de votre aide Jean-Paul
jepac
Merci, la version de word est 2003.
Salut,
Avec la version de Word, ce serait plus facile.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.
Merci de votre aide Jean-Paul
Merci,
la version de word est 2003.
Salut,
Avec la version de Word, ce serait plus facile.
Sub EchangerDonnees()
'Déclaration des variables
Dim oDoc As Document
Dim stPath As String
Dim stTemp As String
Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp
stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.AllowMultiSelect = False
.InitialFileName = ActiveDocument.Path
.Show
End With
Set oDoc = Documents.Open(oDlg.SelectedItems(1))
oDoc.FormFields(1).Result = stTemp
oDoc.Activate
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
C5B736F6-57A4-4AD3-BF0B-42189371BA82@microsoft.com...
Bonsoir,
Je souhaiterais construire la macro suivante :
Soit un document A avec une TextBox et un document B. je souhaite
récupérer
les données de la TextBox du doc A afin de les copier vers la TextBox du
doc
B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son
chemin.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de news:
DA22D14D-51EE-4F6C-AEA5-C19C5A45DCCC@microsoft.com...
Merci,
la version de word est 2003.
Salut,
Avec la version de Word, ce serait plus facile.
Sub EchangerDonnees()
'Déclaration des variables
Dim oDoc As Document
Dim stPath As String
Dim stTemp As String
Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp
stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.AllowMultiSelect = False
.InitialFileName = ActiveDocument.Path
.Show
End With
Set oDoc = Documents.Open(oDlg.SelectedItems(1))
oDoc.FormFields(1).Result = stTemp
oDoc.Activate
"jepac" <jepac@discussions.microsoft.com> a écrit dans le message de
news:
C5B736F6-57A4-4AD3-BF0B-42189371BA82@microsoft.com...
Bonsoir,
Je souhaiterais construire la macro suivante :
Soit un document A avec une TextBox et un document B. je souhaite
récupérer
les données de la TextBox du doc A afin de les copier vers la TextBox
du
doc
B en demandant aupraravant au saisisseur le nom du fichier du Doc A et
son
chemin.
Sub EchangerDonnees() 'Déclaration des variables Dim oDoc As Document Dim stPath As String Dim stTemp As String Dim oDlg As FileDialog
'Affectation d'une valeur à la variable stTemp stTemp = ActiveDocument.FormFields(1).Result
Set oDlg = Application.FileDialog(msoFileDialogFilePicker) With oDlg .AllowMultiSelect = False .InitialFileName = ActiveDocument.Path .Show End With Set oDoc = Documents.Open(oDlg.SelectedItems(1)) oDoc.FormFields(1).Result = stTemp oDoc.Activate
Soit un document A avec une TextBox et un document B. je souhaite récupérer les données de la TextBox du doc A afin de les copier vers la TextBox du doc B en demandant aupraravant au saisisseur le nom du fichier du Doc A et son chemin.