Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Guido

XLDnaute Accro
Bonsoir le Forum

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

Voir le fichier..

Merci d'avance

Guido
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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 :
Code: 
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.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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+
 
Dernière édition:
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re,
Guido à dit:
Mais ,je n'arrive toujours pas a obtenir le resultat finale
Cliquez pour agrandir...
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+
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif

Re

Job75

Pourtant je fais exactement comme indiquer ci dessus

Mais bon...???

Voice deux capture de ma facon de faire...
 

Pièces jointes

  • le 27......PNG
    11.7 KB · Affichages: 96
  • le 27..... resultats.PNG
    19.9 KB · Affichages: 102
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
XL 2013 Somme VBA sur plusieurs ligne
Réponses
8
Affichages
223
Nico77
N
  • Résolu(e)
XL 2021 Tableau Classement Skull King
Réponses
6
Affichages
411
Cousinhub
G
  • Question Question
Microsoft 365 Tri su nom et somme
Réponses
5
Affichages
254
GUERET
G
D
  • Résolu(e)
XL 2021 Spin button
Réponses
7
Affichages
256
Did25
D
  • Question Question
Microsoft 365 Récupération de données dans d'autres fichier
Réponses
1
Affichages
146
good57
D
  • Question Question
XL 2019 Menu déroulant
Réponses
2
Affichages
186
Danyk01
D
L
  • Question Question
Microsoft 365 Les 44 autres chiffres manquants
2
Réponses
15
Affichages
445
ALS35
A
M
  • Résolu(e)
XL 2013 Etendre automatiquement une formule de calcul
2
Réponses
29
Affichages
890
Manutela
M
G
  • Résolu(e)
Microsoft 365 Comparer les prévisions de chiffres affaires projets
Réponses
7
Affichages
407
Germaine
G
L
  • Résolu(e)
XL 2021 recherche valeur si une cellule contient un numéro
Réponses
5
Affichages
287
lola18
L
J
  • Question Question
XL 2021 #NA et autres erreurs
2
Réponses
18
Affichages
624
julienha
J
D
  • Résolu(e)
XL 2019 Problème de décimales
Réponses
9
Affichages
306
Danyk01
D
  • Résolu(e)
XL 2021 SOMMEPROD et CHERCHE
Réponses
4
Affichages
208
Phoenix23
H
  • Question Question
XL 2021 Formule "recherchev"
2
Réponses
23
Affichages
624
TooFatBoy
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
336
Electron24
  • Question Question
XL 2016 Trier et donner des valeurs à des dates
Réponses
4
Affichages
336
Phoenix23
P
  • Question Question
Microsoft 365 Sommeprod avec Liste de variables
2
Réponses
15
Affichages
486
patricko-13
P
I
  • Résolu(e)
XL 2021 VBA - importer des tableaux dans un fichier excel
2 3
Réponses
44
Affichages
1 K
fanch55
L
  • Question Question
Microsoft 365 Aide sur une formule
Réponses
2
Affichages
136
Hecatonchire
H
  • Résolu(e)
Microsoft 365 Zoom sur image
Réponses
3
Affichages
263
Electron24
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…