OVH Cloud OVH Cloud

caractere àléatoire-à jessy sempere

1 réponse
Avatar
pha
Bonjour, Monsieur ou Madame,
Merci pour le code vous me sauvez la vie !
En fait, il fonctionne parfaitement bien si je connais
le nom complet de mon chemin fichier.
Mais il se fait que je ne connais pas toujours ce chemin
dans la mesure o=F9 les utilisateur ont la possibilit=E9 de=20
mettre un commentaire, que j'ignore au moment de=20
l'ouverture.

J'ai mis dans le code un =AB&*& =BB mais cela ne fonctionne
pas.Comment,le savez-vous, puis-je finir ma variable=20
chemin ?

Voici notre code :=20

Private Sub N=B0Offre_DblClick(Cancel As Integer)
Dim chemin As String
Dim wdApp As Word.Application

[Forms]![frmClientsProspectsConsult]![txtCheminFichier] =3D=20
"\" & [Forms]![frmClientsProspectsConsult]!
[Territory] & "\" & "20" & Left(Me.ActiveControl, 2)=20
& "\" & Me.ActiveControl

chemin =3D "d:\Mes documents\Offre" & [Forms]!
[frmClientsProspectsConsult]![txtCheminFichier] & *& ".
doc"
=20
Set wdApp =3D CreateObject("Word.Application")
With wdApp
.Documents.Open chemin
.Visible =3D True
End With
Set wdApp =3D Nothing
End Sub

Merci de votre cool attitude


.

1 réponse

Avatar
Eric
Bonjour,

Essaies :
chemin = "d:Mes documentsOffre" & [Forms]!
[frmClientsProspectsConsult]![txtCheminFichier] & "*.doc"

A+
Eric

"pha" écrivait news:2c9c001c468f2
$58187a30$:

Bonjour, Monsieur ou Madame,
Merci pour le code vous me sauvez la vie !
En fait, il fonctionne parfaitement bien si je connais
le nom complet de mon chemin fichier.
Mais il se fait que je ne connais pas toujours ce chemin
dans la mesure où les utilisateur ont la possibilité de
mettre un commentaire, que j'ignore au moment de
l'ouverture.

J'ai mis dans le code un «&*& » mais cela ne fonctionne
pas.Comment,le savez-vous, puis-je finir ma variable
chemin ?

Voici notre code :

Private Sub N°Offre_DblClick(Cancel As Integer)
Dim chemin As String
Dim wdApp As Word.Application

[Forms]![frmClientsProspectsConsult]![txtCheminFichier] =
"" & [Forms]![frmClientsProspectsConsult]!
[Territory] & "" & "20" & Left(Me.ActiveControl, 2)
& "" & Me.ActiveControl

chemin = "d:Mes documentsOffre" & [Forms]!
[frmClientsProspectsConsult]![txtCheminFichier] & *& ".
doc"

Set wdApp = CreateObject("Word.Application")
With wdApp
.Documents.Open chemin
.Visible = True
End With
Set wdApp = Nothing
End Sub

Merci de votre cool attitude


.