Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Aller dans Word

Aller dans Word

3 réponses
Avatar
Cestmoi
Salut à tous,
Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
renommé fHandleFile.

Voici dans le formulaire:

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim oApp As Word.Application

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
fHandleFile("G:\CDS\fiches cursus", WIN_NORMAL)

Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub
----------------------------------------------
Là ça bloque il me dit:
erreur de compilation
erreur de syntaxe


j'avoue que je ne comprend plus rien je ne vois pas ???
Merci de m'aider :))
--
Bien à vous.


--
Bien à vous.
Signaler un problème avec ce contenu

3 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
3stone
Salut,

"Cestmoi"
| Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
| renommé fHandleFile.


Ne pas donner le même nom à un module et une fonction !!

renomme donc ton module : mod_HandleFile


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Cestmoi
Merci,

Mais,
J'ai renommé le module en Module1 et ça ne marche toujours pas.

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
fHandleFile("G:CDSfiches cursus", WIN_NORMAL)
il souligne en rouge et me dit: erreur de compilation erreur de syntaxe

Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub

--
Bien à vous.
"3stone" a écrit dans le message de news:

Salut,

"Cestmoi"
| Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
| renommé fHandleFile.


Ne pas donner le même nom à un module et une fonction !!

renomme donc ton module : mod_HandleFile


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw



Avatar
Cestmoi
Salut, Je viens de mettre un ? devant fHandleFile et ça marche un petit hic,
Après avoir été dans le dossier voulu, quand je reviens dans mon formulaire
une boite s'affiche et me dit:
Propriété ou méthode non gérée par cet objet.

Pour ne plus la voir comment faire ?
Merci d'avance à toous et aussi à ceux qui m'ont aidés.

--
Bien à vous.
"Cestmoi" a écrit dans le message de news:
#
Salut à tous,
Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
renommé fHandleFile.

Voici dans le formulaire:

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim oApp As Word.Application

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
fHandleFile("G:CDSfiches cursus", WIN_NORMAL)

Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub
----------------------------------------------
Là ça bloque il me dit:
erreur de compilation
erreur de syntaxe


j'avoue que je ne comprend plus rien je ne vois pas ???
Merci de m'aider :))
--
Bien à vous.


--
Bien à vous.