En faisant:
Dim R=E9ponse As Variant
R=E9ponse =3D OpenfileExtend("CheminDeMonFichier", Maximum)
If Not R=E9ponse =3D True Then
MsgBox R=E9ponse
End If
Mais Access me repond =E0 chaque fois qu'il ne trouve pas=20
mon fichier alors que ca fonctionnait bien en utilisant :
MonObjet.Documents.Open CheminDeMonFichier
MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque=20
chose de particulier =E0 faire?
En faisant: Dim Réponse As Variant Réponse = OpenfileExtend("CheminDeMonFichier", Maximum) If Not Réponse = True Then MsgBox Réponse End If
Mais Access me repond à chaque fois qu'il ne trouve pas mon fichier alors que ca fonctionnait bien en utilisant : MonObjet.Documents.Open CheminDeMonFichier MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque chose de particulier à faire?
Merci d'avance
.
Pb resolu, c'est bon ca marche.
Raymond, Chapeau pour le code
-----Message d'origine-----
Raymond ou quelqu'un d'autre,
En faisant:
Dim Réponse As Variant
Réponse = OpenfileExtend("CheminDeMonFichier", Maximum)
If Not Réponse = True Then
MsgBox Réponse
End If
Mais Access me repond à chaque fois qu'il ne trouve pas
mon fichier alors que ca fonctionnait bien en utilisant :
MonObjet.Documents.Open CheminDeMonFichier
MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque
chose de particulier à faire?
En faisant: Dim Réponse As Variant Réponse = OpenfileExtend("CheminDeMonFichier", Maximum) If Not Réponse = True Then MsgBox Réponse End If
Mais Access me repond à chaque fois qu'il ne trouve pas mon fichier alors que ca fonctionnait bien en utilisant : MonObjet.Documents.Open CheminDeMonFichier MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque chose de particulier à faire?
Merci d'avance
.
xavier
C'est bon, ca roule Merci
-----Message d'origine----- Raymond ou quelqu'un d'autre,
En faisant: Dim Réponse As Variant Réponse = OpenfileExtend("CheminDeMonFichier", Maximum) If Not Réponse = True Then MsgBox Réponse End If
Mais Access me repond à chaque fois qu'il ne trouve pas mon fichier alors que ca fonctionnait bien en utilisant : MonObjet.Documents.Open CheminDeMonFichier MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque chose de particulier à faire?
Merci d'avance
.
C'est bon, ca roule
Merci
-----Message d'origine-----
Raymond ou quelqu'un d'autre,
En faisant:
Dim Réponse As Variant
Réponse = OpenfileExtend("CheminDeMonFichier", Maximum)
If Not Réponse = True Then
MsgBox Réponse
End If
Mais Access me repond à chaque fois qu'il ne trouve pas
mon fichier alors que ca fonctionnait bien en utilisant :
MonObjet.Documents.Open CheminDeMonFichier
MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque
chose de particulier à faire?
En faisant: Dim Réponse As Variant Réponse = OpenfileExtend("CheminDeMonFichier", Maximum) If Not Réponse = True Then MsgBox Réponse End If
Mais Access me repond à chaque fois qu'il ne trouve pas mon fichier alors que ca fonctionnait bien en utilisant : MonObjet.Documents.Open CheminDeMonFichier MonObjet.Woorkbooks.Open CheminDeMonFichier
Comment faire pour utliser cette appli? Y a t il quelque chose de particulier à faire?