OVH Cloud OVH Cloud

Boite de dialogue

8 réponses
Avatar
Naj
Je souhaite importer des données d'un fichier text vers une feuille excel en
utilisant une boite de dialogue qui permet à l'utilisateur de choisir son
fichier text après avoir cliquer sur un bouton de macro. J'ai fait une macro
avec la fonction Common Dialog de VBA mais elle fonctionne sur un PC mais pas
sur un autre. J'ai regarder la difference : Dans la boite d'outils contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur. Merci
de m'aider car je ne sais vraiment pas comment faire.

8 réponses

Avatar
Jacques93
Bonjour Naj,

Le contrôle Microsoft Common Dialog Control s'appelle ComDlg32.ocx, et
se trouve suivant les versions de windows dans :

WindowsSystem32
WinNTSystem32
WindowsSystem

Il te suffit de le recopier sur la machine oû il est manquant, et de
l'enregistrer dans une invite de commande :

regsvr32 comdlg32.ocx

en étant dans le répertoire où tu as copié le fichier.

Je souhaite importer des données d'un fichier text vers une feuille excel en
utilisant une boite de dialogue qui permet à l'utilisateur de choisir son
fichier text après avoir cliquer sur un bouton de macro. J'ai fait une macro
avec la fonction Common Dialog de VBA mais elle fonctionne sur un PC mais pas
sur un autre. J'ai regarder la difference : Dans la boite d'outils contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur. Merci
de m'aider car je ne sais vraiment pas comment faire.



--
Cordialement,

Jacques.

Avatar
Clément Marcotte
Dans la boite d'outils contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur.
Merci
de m'aider car je ne sais vraiment pas comment faire.


On ne fait pas de piratage et on achète VB6 ou on cherche et on utilise les
fonctions de l'API qui le font.

Avatar
Jacques93
Bonjour Clément Marcotte,
Dans la boite d'outils contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur.
Merci
de m'aider car je ne sais vraiment pas comment faire.



On ne fait pas de piratage et on achète VB6 ou on cherche et on utilise les
fonctions de l'API qui le font.


Dans la mesure où il a développé une appplication avec ce contrôle,
c'est qu'il a la license développeur sur ce poste (via VB6 ou Office
Pro). Par la suite, les composants du Run-Time sont redistribuables.
Avec la manip que j'ai indiqué, il pourra faire tourner son programme,
mais il ne pourra pas faire de développement avec ce composant sur ce
poste. Il me semble que c'est régulier.

--
Cordialement,

Jacques.


Avatar
Clément Marcotte
Bonjour,

Le CLUF VisualStudio n'autorise le déploiement et la distribution des
contrôles ActiveX que dans le cas d'applications compilées réalisées avec le
produit et non pas comme fichiers "libres"

De plus, ces contrôles sont a deux licenses, une en exécution et une en
conception. La marche à suivre que tu donnes n'es pas censée permettre
l'utilisation en conception.


"Jacques93" a écrit dans le message de news:

Bonjour Clément Marcotte,
Dans la boite d'outils contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur.
Merci
de m'aider car je ne sais vraiment pas comment faire.



On ne fait pas de piratage et on achète VB6 ou on cherche et on utilise
les fonctions de l'API qui le font.


Dans la mesure où il a développé une appplication avec ce contrôle, c'est
qu'il a la license développeur sur ce poste (via VB6 ou Office Pro). Par
la suite, les composants du Run-Time sont redistribuables. Avec la manip
que j'ai indiqué, il pourra faire tourner son programme, mais il ne pourra
pas faire de développement avec ce composant sur ce poste. Il me semble
que c'est régulier.

--
Cordialement,

Jacques.




Avatar
Clément Marcotte
http://vbnet.mvps.org/code/comdlg/index.html


"Naj" a écrit dans le message de news:

Je souhaite importer des données d'un fichier text vers une feuille excel
en
utilisant une boite de dialogue qui permet à l'utilisateur de choisir son
fichier text après avoir cliquer sur un bouton de macro. J'ai fait une
macro
avec la fonction Common Dialog de VBA mais elle fonctionne sur un PC mais
pas
sur un autre. J'ai regarder la difference : Dans la boite d'outils
contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur.
Merci
de m'aider car je ne sais vraiment pas comment faire.


Avatar
Jacques93
Bonjour Clément Marcotte,
Bonjour,

Le CLUF VisualStudio n'autorise le déploiement et la distribution des
contrôles ActiveX que dans le cas d'applications compilées réalisées avec le
produit et non pas comme fichiers "libres"

De plus, ces contrôles sont a deux licenses, une en exécution et une en
conception. La marche à suivre que tu donnes n'es pas censée permettre
l'utilisation en conception.



Nous sommes d'accord, d'ailleurs extrait du fichier Redist.txt dans
Program FilesVisual Studio :

REDISTRIBUTABLE CODE - Extended Use:

anibtn32.ocx
comct232.ocx
comct332.ocx
comctl32.ocx
comdlg32.ocx
...


--
Cordialement,

Jacques.

Avatar
Herdet
Bonsoir Naj,
Il suffirait peut être tout simplement utiliser l'objet Dialog pour ouvrir
les fichiers Text.
Normalement les Références installées par défaut sont suffisantes.

Sub Open_text()
reponse = Application.Dialogs(xlDialogOpen).Show("*.txt")
If reponse = False Then
' action si "Annuler" cliqué
End
Else
MsgBox reponse
End If
End Sub

Cordialement
Robert

"Naj" a écrit dans le message de news:

Je souhaite importer des données d'un fichier text vers une feuille excel
en
utilisant une boite de dialogue qui permet à l'utilisateur de choisir son
fichier text après avoir cliquer sur un bouton de macro. J'ai fait une
macro
avec la fonction Common Dialog de VBA mais elle fonctionne sur un PC mais
pas
sur un autre. J'ai regarder la difference : Dans la boite d'outils
contrôle
il manque le contrôle Microsoft Common Dialog Control (Dans autres
contrôles). Je ne sais pas comment ajouter ce controle à l'ordinateur.
Merci
de m'aider car je ne sais vraiment pas comment faire.


Avatar
JB
Bonjour,

Il y aussi:

fichier = Application.GetOpenFilename("Fichiers textes (*.txt), *.txt")
If fichier <> False Then
MsgBox fichier
End If

Cordialement JB