Transferer les chiffres qui se trouvent sur une foto sur.....

[Guido]

Bonsoir le Forum

J'aimerais extraire le chiffre qui se trouvent sur une image dans une cellule,

Voir le fichier..

Merci d'avance

Guido

 

[Guido]

Re

Job75

Je tiens a repreciser que je ne connais rien en VBA,si j'ai un exemple de demonstration ,je peux essayé d'avancé

je ne demande pas du tout cuit ,mais si je ne comprend pas les terme ou le langage ...je fait du sur place.

je te remercie pour tout ce que tu as fais pour moi ,beaucoup de fichier me sont tres utiles ,et me servent toujours.

a plus pour une petite explication ,merci d'avance

amitié

Guido

 

[job75]

Re,

Dans la foulée j'ai ajouté un 2ème bouton dans la feuille "Modele".

Il permet de créer le fichier PRONOS du mois suivant ou de l'ouvrir :

Sub MoisSuivant()
Dim chemin$, nom$, an$, mois$, dat&, ext$, fichier$, w As Worksheet
chemin = ThisWorkbook.Path & "\"  'chemin des fichiers PRONOS
nom = ThisWorkbook.Name
an = Mid(nom, 8, 4)
mois = Mid(nom, 13, 2)
If Not IsDate(1 & "/" & mois & "/" & an) Then MsgBox "Nom du fichier incorrect !", 48: Exit Sub
dat = DateSerial(an, mois + 1, 1)
ext = Mid(nom, InStrRev(nom, "."))
fichier = "PRONOS " & Year(dat) & "-" & Format(Month(dat), "00") & ext
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Dir(chemin & fichier) = "" Then
  ThisWorkbook.SaveCopyAs chemin & fichier
  With Workbooks.Open(chemin & fichier)
    Application.Goto .Sheets(1).[A1], True
    .Sheets(1).[A4] = ""
    For Each w In .Worksheets
      If w.Name Like "####-##-##" Then w.Delete
    Next
    .Save
  End With
Else
  Workbooks.Open chemin & fichier
End If
End Sub

Fichiers (3).

Edit : un bouton "Mois suivant" est aussi recréé par macro dans la 1ère feuille.

Bonne fin de soirée.

 

[Guido]

Re

Job75

Apres avoir ajouter le chiffre du jour soit le 21 voici le bug ????

 

[job75]

Bonjour Guido, le forum,

Apres avoir ajouter le chiffre du jour soit le 21 voici le bug ????

Changez de lunettes Guido :

Nota : les noms des fichiers ne correspondent pas aux dates des courses, c'est juste pour l'exemple.

Il faut bien sûr que le fichier "Courses 2016-08-21" existe donc renommez le fichier "Courses 2016-08-02".

Bonne journée.

 

[job75]

Re,

Je viens de modifier la macro MoisSuivant précédente.

La méthode SaveCopyAs va mieux que SaveAs.

A+

 

[job75]

Re,

J'ai créé les 31 fichiers "Courses" du mois d'août, tous identiques à "Courses 2016-08-01".

Et j'ai créé les 31 feuilles, renseignées, dans le fichier "PRONOS 2016-08".

Ce fichier ne pèse alors que 743 Ko (1ère feuille vidée), ce n'est pas très lourd.

A+

 

[job75]

Bonjour Guido, le forum,

A la réflexion il est tout à fait inutile de copier les Shapes du fichier source.

Il est bien plus simple de les analyser directement sur leur fichier.

Fichiers (4), notez les cellules nommées "NomFichier" et "Jour".

Bonne journée.

 

[Guido]

Bonjour Job75 et le Forum

Je te remercie pour tout ton travail.

Mais ,je n'arrive toujours pas a obtenir le resultat finale...,je suis largué dans la facon de faire.pourtant j'ai des bonne lunette....

Merci pour tes future explication qui pour toi sont enfantille..

Amitiées

Guido

 

[job75]

Re,

Mais ,je n'arrive toujours pas a obtenir le resultat finale

Ce n'est pas une sinécure de travailler avec vous, je ne vois pas ce que je peux faire pour vous.

Répondez SVP à ces 2 questions :

- les fichiers de mon post #52 fonctionnent-ils chez vous avec les numéros du jour 1 et 2 ?

- quel est exactement votre problème ?

A+

 

[Guido]

Re,

Ce n'est pas une sinécure de travailler avec vous, je ne vois pas ce que je peux faire pour vous.

Répondez SVP à ces 2 questions :

- les fichiers de mon post #52 fonctionnent-ils chez vous avec les numéros du jour 1 et 2 ?

- quel est exactement votre problème ?

A+

Re

J'arrive a ouvrir le fichier 52.

Je ne sais pas comment rediger la valeur ou le chiffre dans la zone jaune

sur le bureau je dois ouvrir le fichier du jour + le fichier 52.

J'aimerais que les trios s'affiches dans la page Modele

Pouvez Vous me laisser la page acceuil avec la zone jaune remplis merci

a plus

Guido

 

[job75]

Re,

J'en reste baba

Vous n'avez rien d'autre à faire que d'ouvrir le fichier "PRONOS 2016-08".

Puis de taper un nombre de 1 à 31 dans la cellule jaune.

La macro crée automatiquement la feuille correspondante et la renseigne.

Ne pas toucher à la feuille "Modele", d'ailleurs j'ai dit qu'on peut la masquer.

A+

 

[Guido]

Re,

J'en reste baba

Vous n'avez rien d'autre à faire que d'ouvrir le fichier "PRONOS 2016-08".

Puis de taper un nombre de 1 à 31 dans la cellule jaune.

La macro crée automatiquement la feuille correspondante et la renseigne.

Ne pas toucher à la feuille "Modele", d'ailleurs j'ai dit qu'on peut la masquer.

A+

Re

Job75

Pourtant je fais exactement comme indiquer ci dessus

Mais bon...???

Voice deux capture de ma facon de faire...

 

[job75]

Re,

Ras le bol, puisque c'est ainsi c'est fini.

 

[Guido]

Re,

Ras le bol, puisque c'est ainsi c'est fini.

Re

Ok Ont laisse tombé et je clos ce post

Merci

Guido