Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > Modélisation
Modélisation Le forum qui vous aide à résoudre vos questions relatives à la modélisation (tables et relations) de votre base de données sous Access. Pour les états et les formulaires, postez dans le forum IHM.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/09/2007, 17h56   #1
Invité de passage
 
Inscription : février 2007
Messages : 12
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 12
Points : 3
Points : 3
Par défaut erreur de recherche fichier avec getfile

Bonjour,

voila mon problème.
après avoir fait des recherche sur le site , j'ai trouvé un code qui permet de faire du publipostage. afin d'ouvrir le document word qui s'y rattache, je fais une recherche avec getfile. et la, il ne me trouve jamais le fichier word.

j'ai fais comme ceci

Code :
1
2
3
4
5
6
7
8
9
10
11
Dim fs, f As Object
 
 Dim s As String
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("etiq.doc")
 
pourtant, il est bien dans fs voir ci dessous
qu'est-ce qui se passe?
merci de m'aider, 
quand cela fonctionnera, j'aurai terminé ma bd
etiquette.jpg
marbuly est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/09/2007, 23h25   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 941
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 941
Points : 6 283
Points : 6 283
Bonsoir,

Il manque le chemin vers le fichier.
Code vbs :
1
2
3
4
5
6
Dim fs, f As Object
 
 Dim s As String
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("S:\centre culture\etiq.doc")
ou encore
Code vbs :
1
2
3
4
5
6
Dim fs, f As Object
 
 Dim s As String
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("S:\centre culture").Files("etiq.doc")
Le système de fichier (fso) est au dessus des objets disques et dossiers.
Il ne contient pas de fichiers.
Pour faire référence à un fichier, soit on précice le chemin complet, soit on passe par un objet Folder intermédiare contenant la collection de fichier Files dans laquelle se trouve le fichier à atteindre.

A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/09/2007, 19h58   #3
Invité de passage
 
Inscription : février 2007
Messages : 12
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 12
Points : 3
Points : 3
bonsoir


mais oui, pourquoi j'y ai pas pensé.

j'ai rectifié et tout marche très bien.

je ne conprends pas encore toutes les commandes de vba. qu'est-ce que je me trouve petit comparé à vous. mais comme je dis, et d'autre aussi, il y a un début à tout.

encore merci du petit coup de pouce.
marbuly est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h20.


 
 
 
 
Partenaires

Hébergement Web