Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Ouvrir un fichier from Access

Ouvrir un fichier from Access

2 réponses
Avatar
xavier
Raymond ou quelqu'un d'autre,

J'essaie d'utiliser l'appli suivante :
http://access.seneque.free.fr/executer_selon_ext.htm

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?

Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
xavier
Pb resolu, c'est bon ca marche.
Raymond, Chapeau pour le code

-----Message d'origine-----
Raymond ou quelqu'un d'autre,

J'essaie d'utiliser l'appli suivante :
http://access.seneque.free.fr/executer_selon_ext.htm

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

.



Avatar
xavier
C'est bon, ca roule
Merci

-----Message d'origine-----
Raymond ou quelqu'un d'autre,

J'essaie d'utiliser l'appli suivante :
http://access.seneque.free.fr/executer_selon_ext.htm

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

.