Discussion :

[guilhem123]

Bonjour à tous,

Guilhem, 23 ans, en dernière année d'école d'ingénieur (Eau & Genie Civil) , très incompétent en informatique, je vous écris pour vous demander un petit peu d'aide concernant un de mes projets de fin d'étude.
Je fais ma formation par alternance et je dois créer pour mon entreprise une base de données de fiches techniques sous Excel (nous n'avons pas la licence Access).
J'ai assez bien avancé mais je ne sais pas comment procéder pour cette étape.

J'aimerais qu'à l'ouverture du programme Excel une boite de dialogue s'ouvre automatiquement pour proposer de créer un dossier sur le bureau pour y stocker les fiches techniques que l'on sélectionnera plus tard?

Merci d'avance pour votre aide,
Bonne après-midi

Guilhem

[Jean-Philippe André]

Salut,

tu as plusieurs solutions et pistes par rapport à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs

avec notamment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogFindFile).Show

Le dossier créé, tu dois potentiellement stocké son chemin ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "explorer.exe"

[patricktoulon]

bonsopir

J'aimerais qu'à l'ouverture du programme Excel une boite de dialogue s'ouvre automatiquement pour proposer de créer un dossier sur le bureau pour y stocker les fiches techniques que l'on sélectionnera plus tard?

c'est pas celon moi une boite de dialogue qu'il te faudrait pour la creation d'un dossier sur le bureau
mais un inputbox dans le quel tu taperais le nom du futur dossier
il ne te reste plus qu'a faire un MKDIR
bien sur insérer un test d'existence du dossier et la possibilité d'anuler avec le inputbox
du genre ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim x$, Dossier$
x = InputBox("Tapêz le nom de votre futur dossier qui sera sur le bureau ", "creation de dossier", "tapezici!!")
If x <> "" Then
Dossier = Environ("userprofile") & "\DeskTop\" & x
If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier Else MsgBox "le dossier " & x & " existe deja sur le bureau"
End If
End Sub

[Menhir]

J'aimerais qu'à l'ouverture du programme Excel une boite de dialogue s'ouvre automatiquement pour proposer de créer un dossier sur le bureau pour y stocker les fiches techniques que l'on sélectionnera plus tard?

Je suppose que les fiches techniques sont issues de tes données à l'aide d'une macro, non ?
Si c'est le cas, pourquoi créer les dossiers à l'avance et non pas au moment où les fiches sont générées ?

Une macro qui se déclenche automatiquement à l'ouverture d'un fichier, ça a tendance à rendre nerveux et inquiets certains utilisateurs.

[guilhem123]

Bonjour à tous,

Merci beaucoup pour vos réponses je vais essayer de regarder cela de plus près ! :-)

@Menhir:
Non non, mes fiches techniques sont stockées dans un dossier sur le bureau et mon prof m'aidant à réaliser ce sujet à créer une boite de dialogue qui s'ouvre suite au clic sur un bouton nommé "lancement". Cette boite de dialogue permet de sélectionner des fiches et le fait de cliquer sur "OK" une fois qu'elles sont toutes sélectionnées les ferait s'envoyer automatiquement dans le dossier que je cherche à créer automatiquement.

Par ailleurs, j'aimerais aussi pouvoir les lire au format .pdf lorsqu'elles s'affichent dans la boite de dialogue mentionnée ci-dessus. Y-a-t-il un code permettant de faire cela?
j'avais déjà entamé des recherches par rapport à cela et avais trouvé quelques codes, mais je n'arrivais pas à les introduire dans mon programme.....

@patricktoulon:

Merci beaucoup pour votre réponse!! Effectivement le inputbox est ce que je cherche à faire, mais pour moi la différence est mince entre un inputbox et une boite de dialogue .... . En tout cas merci pour le code, je vais essayer de le tester !!

@ Jean-Philippe André

Merci beaucoup aussi pour votre réponse, je ne sais pas si je dois stocker le chemin ..

[Menhir]

Non non, mes fiches techniques sont stockées dans un dossier sur le bureau et mon prof m'aidant à réaliser ce sujet à créer une boite de dialogue qui s'ouvre suite au clic sur un bouton nommé "lancement". Cette boite de dialogue permet de sélectionner des fiches et le fait de cliquer sur "OK" une fois qu'elles sont toutes sélectionnées les ferait s'envoyer automatiquement dans le dossier

Et derrière ce "bouton", tu ne penses pas qu'il y a une macro ?
Si ce n'est pas le cas, ça veut dire que ton prof est le Docteur Strange.

Donc, je le répète, autant intégrer la création de dossier à cette macro qui permet de sélectionner les fiches.

Par ailleurs, j'aimerais aussi pouvoir les lire au format .pdf lorsqu'elles s'affichent dans la boite de dialogue mentionnée ci-dessus. Y-a-t-il un code permettant de faire cela?

Pour cela, il faudrait que tu montres le code qui est activé par "bouton".

[guilhem123]

Ah oui effectivement il y a une macro.
Donc oui autant intégrer le reste à cette macro comme tu le dis et faire un "package"

Voici le code que j'ai actuellement (pièces jointes):

Les captures 1,2 & 3 correspondent au "Programme Principal", et la capture 4 au "Sous Programme"

[guilhem123]

Bonjour à tous !

Je reviens vers vous puisque grâce à vos réponses j'ai pu créer la boîte de dialogue permettant de créer un dossier sur le bureau.
Cependant, je n'ai toujours pas réussi à faire en sorte que les fiches techniques sélectionnées en amont aillent se stocker dans ce dossier.
D'après mon prof il faudrait " retrouver dans quel dossier se trouvent les fiches (le nom du dossier créé est connu, mais pas le dossier où sont stockées les fiches, on le connait quand on sélectionne la fiche, il faudrait donc mémoriser cette info dans un tableau."

Je n'ai à l'heure actuelle aucune piste pour réaliser cela, je ne sais même pas par où commencer, ni n'arrive à visualiser l'intérêt ainsi que le sens d'un tableau ?..

Si par hasard vous auriez quelques minutes de votre temps pour me lancer sur une piste, ce serait top !

Merci d'avance,

Guilhem