Discussion :

[okuspokus]

Bonjour à tous,

je commence vba depuis cette semaine pour le boulot et je cale déjà, je n'ai pas trouvé la solution alors je viens vous poser la question :

je viens de créer un macro vba qui permet d'ouvrir mon userform des l'ouverture de fichier excel, le bouton fermer fonctionne aussi, par contre j'ai besoin :
- d'un bouton de commande pour ouvrir soit un fichier pdf ou jpg
- d'un bouton pour enregistrer le fichier car il y a un formulaire et des cases à cocher.

je suis sure qu'il y a des personnes capable de trouver la solution, généralement je préfère trouver par moi même car c'est la meilleure façon d'apprendre mais je suis pris par le temps malheureusement, merci à vous.

[okuspokus]

bonjour à tous,

je pensais pas que c'était si compliqué, peut être quelques pistes alors.

[ouskel'n'or]

Bonjour okuspokus, bienvenue sur le forum.
Tu poses ta question "Hier à 19h48", heure où on se couche, et tu reviens ce matin à 09h56, heure où on se réveille
Qu'as-tu fait entre Hier 19h48 et aujourd'hui 09h56 ? Tu as progressé ?
Pour tes boutons, comme tu en as mis un, tu sauras bien mettre les autres... Pour les pdf et jpg, tout dépend ce que tu veux en faire. Sois plus précis.
Pour la sauvegarde de ton fichier, c'est la même chose, on manque d'indication. Mais comme je suis bien brave :
Si c'est le classeur contenant les macros (et l'userform), tu mets

Code :

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

Thisworkbook.save

dans le click du bouton
Si c'est d'un autre classeur que tu as ouvert, tu mets

Code :

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

Workbooks("NomDuClasseur.xls").save

Si c'est le classeur actif

Code :

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

Activeworkbook.save

Enfin si c'est un nouveau classeur, tu dois ajouter le chemin

Code :

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

1
2
Chemin = "D:\Ton dossier\"
Workbooks(Chemin & "NomDuClasseur.xls").save

A+

NB - Evite les commentaires du style "Je ne savais pas que c'était si difficile ou compliqué", ça hérise le poil de ceux qui seraient prêts à te répondre.

[okuspokus]

Bonjour ouskel'n'or,

désolé d'avoir choqué mais c'était absolument pas le but,

alors les commandes que tu m'as donnés ne fonctionnent pas sur mon document ou je ne sais pas les utiliser.

Je vais tenter d'être plus précis peut être:

j'ouvre un fichier excel, il ouvre en plein écran mon fichier fait en userform, avec un qestionnaire (oui/non) et un formulaire pour des réponses libres.

la commande que tu m'as donné a été ajoutée sur le bouton

Code :

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

1
2
3
Private Sub CommandButton5_Click()
ThisWorkbook.Save
End Sub

il ne se passe rien à l'écran mais ça me semble logique, je ferme mon document, quand je l'ouvre, le document est vierge !!!

j'ai essayé avec toutes les commandes que tu m'as donnés (merci) mais idem.

je fais une mauvaise manip ou il me manque une commande supplémentaire, en tout cas, je fais plusieurs sites pour trouver des exemples ou tutos mais malheureusement en vain.

je joins le fichier sur lequel je fais des essais.

[tonton fred]

Bonjour,
Je comprends pas, a part sauvegarder tu veux faire quoi ? C'est tout ce que ton fichier fait et c'est normal, c'est tout ce que tu lui demandes...

[ouskel'n'or]

Quand tu ouvres ton fichier, les macros sont bien toujours dedans, non ? Alors ton fichier n'est pas vierge, Ouf !
Ton problème se situe au niveau de ce que tu mets dans ta feuille de calculs et quand...
Si tu ne mets rien, y'aura rien d'dans
Mets ton code avec lequel tu la renseignes, ta feuille de calculs, tonton fred t'expliquera tout. Moi je m'en vais.
Bonne chasse

[okuspokus]

comme ça vous avez compris que j'ai vraiment du mal avec les termes

Ma feuille de macro est toujours la : oui

dans la feuille ou je coche oui ou non, et la grande case blanche au dessus ne conserve pas les réponses quand j'ouvre à nouveau le doc.

mon but c'est d'exploiter les réponses entrées dans cette feuille

[tonton fred]

Ah d'accord, c'est une interface de saisie en fait.
Lors de la fermeture du formulaire, les valeurs qu'il contient sont effacees. Il faut les copier sur la feuille.

Voila le principe general (mais si tu debutes debutes, va falloir lire un peu la faq sinon on va pas sans sortir )

Choisis une cellule ou tu veux sauvegarder le texte et une autre ou tu veux sauvegarder la valeur de oui / non.
Dans mon exemple je considererais que ces 3 cellules sont A1 A2 et A3 de la feuille appellee "Principale".

Ajoute un bouton "sauvegarder les donnees" (ou peu importe le nom, mais il va servir a ca)
Double clic dessus.
Dans le code tu mets:

Code :

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

1
2
3
Sheets("Principale").Range("A1").Value = TextBox1.Text
Sheets("Principale").Range("A2").Value = CheckBox1.Value
Sheets("Principale").Range("A3").Value = CheckBox2.Value

Puis dans la macro "Workbook_Open()" tu ajoutes apres le chargement de l'userform:

Code :

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

1
2
3
4
 
TextBox1.Text = Sheets("Principale").Range("A1").Value
CheckBox1.Value = Sheets("Principale").Range("A2").Value
CheckBox2.Value = Sheets("Principale").Range("A3").Value

[okuspokus]

grand merci pour ta réponse,

par contre je regarde aussi de mon coté car il me donne une erreure sur la ligne

Sheets("Principale").Range("A1").Value = TextBox1.Text

"erreure d'execution 9"
l'indice n'appartient pas à la selection

j'édite mon message :

désolé mais j'ai voulu apporter une réponse rapide à ton message.

l'erreure venait du fait que je n'avais pas renomer mon onglet, c'est donc génial.

Je regarde maintenant comment je peux faire apparaitre les questions qui apporte une réponse oui/non dans le fichier excel,

à nouveau merci.

[tonton fred]

Ta feuille s'appelle principale ?

[okuspokus]

désolé mais j'ai voulu apporter une réponse rapide à ton message.

l'erreure venait du fait que je n'avais pas renomer mon onglet, c'est donc génial.

Je regarde maintenant comment je peux faire apparaitre les questions qui apporte une réponse oui/non dans le fichier excel,

exemple: Question 01 dans cellule A2 ;
résultat dans cellule B2

à nouveau merci.

[okuspokus]

toujours moi,

à partir du même fichier sur lequel je travail, comment ouvrir un document pdf ou image jpg à partir d'un bouton de commande.

je n'arrive vraiment pas à trouver cette commande

merci pour tout.

[flo_flo]

Code :

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

1
2
 
Application.GetOpenFilename

?

[tonton fred]

GetOpenFilename, comme son nom l'indique, donne (enfin prend, cf get) le nom du fichier (file name). Ca ne l'ouvre pas. Pour ouvrir c'est Open mais je ne sais pas si ca marche avec un fichier non excel (et la maintenant je n'ai pas excel donc bon...). Au pire il faut utiliser l'enregistreur de macro pour creer un lien hypertexte, puis supprimer le lien (un peu batard comme solution mais on fait ce qu'on peut).

Je regarde maintenant comment je peux faire apparaitre les questions qui apporte une réponse oui/non dans le fichier excel,

exemple: Question 01 dans cellule A2 ;
résultat dans cellule B2

Meme principe que pour sauvegarder / charger:

Code :

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

1
2
3
4
5
Dim Question as string
Dim Resultat as boolean 'ou string ou integer ou... je sais pas ce que tu veux faire
 
Question = sheets("nom de la feuille").range("A2").value
sheets("nom de la feuille").range("B2").value = resultat

ca c'est le principe, mais si le resultat est la valeur de tes checkbox alors il faut adapter (indice: c'est comme pour sauvegarder les donnees )

[ouskel'n'or]

Je crois... non, je suis sûr... j'avais posé la question : Pour en faire quoi ? Insérer le PDF ? Insérer l'image ? Ouvrir une appli pour modifier l'image ? Ouvrir Acrobat Reader pour lire le pdf ?
La question reste posée

[okuspokus]

Je crois... non, je suis sûr... j'avais posé la question : Pour en faire quoi ? Insérer le PDF ? Insérer l'image ? Ouvrir une appli pour modifier l'image ? Ouvrir Acrobat Reader pour lire le pdf ?
La question reste posée

c'était pour ouvrir un fichier,

j'ai trouvé cette commande qui me convient parfaitement :

Code :

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

Shell "cmd /c start acrord32.exe ""g:\dossier\nomduficher.pdf"""

grand merci à tous, j'ai réussi à créer mon fichier,

c'est un excellent forum & il y a d'excellente personnes prét à aider les gens dans le besoin

MERCI !