Cave à vins ( avec macro) 2018-03-08

[Toubabou]

Bonjour à vous deux,
JM27, est-il possible de regrouper les photos dans un dossier, genre:
C:\Users\djodj\Dropbox\Recettes\Compléments\Photos vins ?
Bonne journée

 

[JM27]

Bonjour
Oui c'est possible, je regarde mais je ne pourrais pas tester

dans le module de classe tu remplaces cette ligne

UserFormCasier.ImageVin.Picture = LoadPicture(ThisWorkbook.Path & "\" & NomDeLaPhoto & ".jpg")

par

UserFormCasier.ImageVin.Picture = LoadPicture("C:\Users\djodj\Dropbox\Recettes\Compléments\Photos vins\" & NomDeLaPhoto & ".jpg")

a tester

 

[Toubabou]

Tu peux trouver le fichier à l'adresse suivante, si c'est plus simple pour toi:
Liens du fichier:

854.7 KB folder on MEGA

7 files

mega.nz

Clé de déchiffrement:
yobedjsII8S39lh2CfbRFA

ou
Lien avec clé:

854.7 KB folder on MEGA

7 files

mega.nz

 

[JM27]

Non je préfère que tu fasses la modif toi même ,cela te permettra si tu changes de répertoire ( ou de micro , etc) de le faire.

 

[Toubabou]

Ok pas de soucis, merci beaucoup

 

[JM27]

Bonjour
@Webperegrino
Voila comment j'ai procédé pour les dates mini et maxi et apogée.
Je les ai associé à une région et une appellation.(voir feuille déroulants)
A la première saisie sur un vin de cette région et de cette appellation , si tu documentes ces date mini et maxi , elles seront automatiquement insérer dans la feuille déroulant et seront proposé lors de la saisie suivant sur ce vin.
essayes de faire une saisie sur ce fichier Alsace et la première ou deuxième appellation.

 

[JM27]

@Toubabou
si tu n'y arrives pas , dis le et on fera la modif

 

[Toubabou]

Non je préfère que tu fasses la modif toi même ,cela te permettra si tu changes de répertoire ( ou de micro , etc) de le faire.

Et en utilisant "Thiswordpath"?

 

[JM27]

Non il ne faut plus l'utiliser, il faut le remplacer.
Thisworbookpath est à utiliser uniquement si les photos sont sous le même répertoire que le fichier.

 

[Toubabou]

Bonjour
Oui c'est possible, je regarde mais je ne pourrais pas tester

dans le module de classe tu remplaces cette ligne

UserFormCasier.ImageVin.Picture = LoadPicture(ThisWorkbook.Path & "\" & NomDeLaPhoto & ".jpg")

par

UserFormCasier.ImageVin.Picture = LoadPicture("C:\Users\djodj\Dropbox\Recettes\Compléments\Photos vins\" & NomDeLaPhoto & ".jpg")

a tester

JM27,

Merci pour ta réponse, cela fonctionne parfaitement.

Je viens de lire que tous les vins ne se servent pas à la même température, je savais que le vin blanc, rosé et rouge ne se servent pas à la même température. Mais je ne savais pas que les températures pouvaient être différente pour les vins rouges(pour moi18° pour tous).
Pourrais-t-on rentrer cet informations lors de la saisie d'un nouveau vin?
bonne soirée

 

[JM27]

Bonjour
2 versions avec températures et date de consommation
version @Toubabou
Version @Webperegrino

 

[Toubabou]

Merci JM27
C'est nickel, bonne journée

 

[JM27]

bonjour
petite erreur détectée lors de prélever un vin.
ci joint correctif

 

[Toubabou]

Merci encore je n'avais pa tésté

 

[Webperegrino]

Bonsoir,
Désolé Jean-Marcel : la conversation était passée dans mes courriers indésirables, sans raison justifiée si bien que #90, #96,#101 et #103 viennent d'être lues.
Excellent travail ! Le fichier mettra du temps à être complété avec ces dates, mais, à la consultation ou saisies ultérieures l'application deviendra très intelligente grâce à ces informations.
Merci pour votre excellente proposition.
Webperegrino