Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" a écrit dans le message de news:bels1j$87o$
Salut
Oh là là, t'as presque rendu fou Raymond... ;-)))
Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bels1j$87o$1@muguet.sncf.fr...
Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" a écrit dans le message de news:bels1j$87o$
Salut
Stéphane Lavergne
3 jours ??
ah bin voui.. cooooolll... ya 1 jour férié ! :)
Stéphane
"Raymond" a écrit dans le message de news:
Oh là là, t'as presque rendu fou Raymond... ;-)))
Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" a écrit dans le message de news:bels1j$87o$
Salut
3 jours ??
ah bin voui.. cooooolll... ya 1 jour férié ! :)
Stéphane
"Raymond" <Raymond.seneque@free.fr> a écrit dans le message de
news:eZD8BZ4RDHA.2316@tk2msftngp13.phx.gbl...
Oh là là, t'as presque rendu fou Raymond... ;-)))
Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news:bels1j$87o$1@muguet.sncf.fr...
Mais non, mais non. C'est vendredi et 3 jours se profilent à l'horizon. -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jessy SEMPERE" a écrit dans le message de news:bels1j$87o$
C'est Super ! Y'a pas à dire, un pro c'est un pro ... Merci.
... J'aurais bien un autre problème dans le même genre à soumettre. J'essaye tout seul, et si ça marche pas, je fais appel à vous, promis ! Bon week-end.
b(°!°)rbbu
"Raymond" a écrit dans le message de news:
Bonjour.
Filedialog n'ouvre pas un fichier , il récupère le chemin complet d'un fichier et ensuite tu fais le nécessaire pour ouvrir le fichier selon le type.
Par exemple, pour ouvrir un fichier word tu utilises cette procédure:
Dim Texte1 As String Texte1 = OpenFile(CurrentProject.Path) If Texte1 <> "" Then Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open (Texte1) End With Set W_App = Nothing End If
Et tu crées un module normal dans lequel tu places la fonction openfilename
que tu trouveras sur mon site à l'adresse : http://access.seneque.free.fr/ouverture_document.htm
Attention, le procédure indiquée ne fonctionne qu'avec le module ci-dessus.
Tout ce qui est indiqué ci-dessus fonctionne avec toutes les versions car on
passe par une API. Si tu es en 2002, tu peux utiliser la fonction filedialog
directement et tu peux visiter la page http://access.seneque.free.fr/dialogue_2002.htm qui te donnera des exemples.
Dim Dialogue As FileDialog Set Dialogue = FileDialog(msoFileDialogOpen) With Dialogue .AllowMultiSelect = False .ButtonName = "Ouvrir" .InitialFileName = "*.mdb" .Filters.Clear .Filters.Add "Base de données Access", "*.mdb" .Filters.Add "Feuilles de données Excel", "*.xls" .Filters.Add "Documents Word", "*.doc" .InitialView = msoFileDialogViewList .Title = "Je recherche un fichier à ouvrir" If .Show Then Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open (Dialogue.SelectedItems.Item(1)) End With Set W_App = Nothing Else MsgBox "vous avez cliqué sur Annuler" End If End With
ne pas oublier de référencer la librairie Office correspondante
je crois que c'est tout.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
C'est Super !
Y'a pas à dire, un pro c'est un pro ...
Merci.
... J'aurais bien un autre problème dans le même genre à soumettre.
J'essaye tout seul, et si ça marche pas, je fais appel à vous, promis !
Bon week-end.
b(°!°)rbbu
"Raymond" <Raymond.seneque@free.fr> a écrit dans le message de news:
OUmwWvHSDHA.212@TK2MSFTNGP10.phx.gbl...
Bonjour.
Filedialog n'ouvre pas un fichier , il récupère le chemin complet d'un
fichier et ensuite tu fais le nécessaire pour ouvrir le fichier selon le
type.
Par exemple, pour ouvrir un fichier word tu utilises cette procédure:
Dim Texte1 As String
Texte1 = OpenFile(CurrentProject.Path)
If Texte1 <> "" Then
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open (Texte1)
End With
Set W_App = Nothing
End If
Et tu crées un module normal dans lequel tu places la fonction
openfilename
que tu trouveras sur mon site à l'adresse :
http://access.seneque.free.fr/ouverture_document.htm
Attention, le procédure indiquée ne fonctionne qu'avec le module
ci-dessus.
Tout ce qui est indiqué ci-dessus fonctionne avec toutes les versions car
on
passe par une API. Si tu es en 2002, tu peux utiliser la fonction
filedialog
directement et tu peux visiter la page
http://access.seneque.free.fr/dialogue_2002.htm qui te donnera des
exemples.
Dim Dialogue As FileDialog
Set Dialogue = FileDialog(msoFileDialogOpen)
With Dialogue
.AllowMultiSelect = False
.ButtonName = "Ouvrir"
.InitialFileName = "*.mdb"
.Filters.Clear
.Filters.Add "Base de données Access", "*.mdb"
.Filters.Add "Feuilles de données Excel", "*.xls"
.Filters.Add "Documents Word", "*.doc"
.InitialView = msoFileDialogViewList
.Title = "Je recherche un fichier à ouvrir"
If .Show Then
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open (Dialogue.SelectedItems.Item(1))
End With
Set W_App = Nothing
Else
MsgBox "vous avez cliqué sur Annuler"
End If
End With
ne pas oublier de référencer la librairie Office correspondante
je crois que c'est tout.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"b@rbbu" <barbbu@libertysurf.fr> a écrit dans le message de
news:bep19i$fim$1@news.tiscali.fr...
C'est Super ! Y'a pas à dire, un pro c'est un pro ... Merci.
... J'aurais bien un autre problème dans le même genre à soumettre. J'essaye tout seul, et si ça marche pas, je fais appel à vous, promis ! Bon week-end.
b(°!°)rbbu
"Raymond" a écrit dans le message de news:
Bonjour.
Filedialog n'ouvre pas un fichier , il récupère le chemin complet d'un fichier et ensuite tu fais le nécessaire pour ouvrir le fichier selon le type.
Par exemple, pour ouvrir un fichier word tu utilises cette procédure:
Dim Texte1 As String Texte1 = OpenFile(CurrentProject.Path) If Texte1 <> "" Then Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open (Texte1) End With Set W_App = Nothing End If
Et tu crées un module normal dans lequel tu places la fonction openfilename
que tu trouveras sur mon site à l'adresse : http://access.seneque.free.fr/ouverture_document.htm
Attention, le procédure indiquée ne fonctionne qu'avec le module ci-dessus.
Tout ce qui est indiqué ci-dessus fonctionne avec toutes les versions car on
passe par une API. Si tu es en 2002, tu peux utiliser la fonction filedialog
directement et tu peux visiter la page http://access.seneque.free.fr/dialogue_2002.htm qui te donnera des exemples.
Dim Dialogue As FileDialog Set Dialogue = FileDialog(msoFileDialogOpen) With Dialogue .AllowMultiSelect = False .ButtonName = "Ouvrir" .InitialFileName = "*.mdb" .Filters.Clear .Filters.Add "Base de données Access", "*.mdb" .Filters.Add "Feuilles de données Excel", "*.xls" .Filters.Add "Documents Word", "*.doc" .InitialView = msoFileDialogViewList .Title = "Je recherche un fichier à ouvrir" If .Show Then Dim W_App As Object Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Open (Dialogue.SelectedItems.Item(1)) End With Set W_App = Nothing Else MsgBox "vous avez cliqué sur Annuler" End If End With
ne pas oublier de référencer la librairie Office correspondante
je crois que c'est tout.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
