Automatisation avec variable(s) Haie !!!!!!

Bonsoir,

je suis pas sûr , mais il me semble
avoir vu exactement le même problème
quelquepart.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick

...oui une histoire de broche à foin...

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick

Cher LeSteph,

J'ai posté hier le même message, et les seules réponses
ont venues de tirades sur le format US sans répondre à la
problématique, j'ai donc changé la phrase ou je parle du
format US pour reformuler, les puristes n'ont pas aimé !!

Merci en tout cas car je ne suis pas assez calé pour
composer ce code

Tu es vraiment sympa

Patrick

-----Message d'origine-----
Bonsoir,

je suis pas sûr , mais il me semble
avoir vu exactement le même problème
quelquepart.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick



.

donc tu veux faire une recherche de bon de commande qui equivaut a dire une
recherche de fichier ?

si c'est bien sa que jai compris voici une petite macro qui peut te montrer
le principe pour voir tout les fichiers dun dossier !

x = 1
strpath = "c:*.*"

objfolder = Dir(strpath, vbNormal)

Do While Len(objfolder) > 0
If objfolder <> "." And objfolder <> ".." Then
Cells(x, 1) = objfolder
x = x + 1
End If
End If
objfolder = Dir$()
Loop

tu as dans la collone A tout fichier de ton disque C =)

bonne Chance !

Fred

"Patrick" <anonymous@discussions.microsoft.com> wrote in message
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick

et pour trouver celui que tu cherche tu peux rajouter des validation avec
analyse de chaine de caractere pour trouver justement le principe de tes X
premier caractere etc ... avec les fonction mid, left, right, instr !

Bonnechance !

Fred
"Himselff" <info@antispam.dmsinc.ca> wrote in message
news:5dRnc.33$_Y6.1473@news20.bellglobal.com...

donc tu veux faire une recherche de bon de commande qui equivaut a dire
une

recherche de fichier ?

si c'est bien sa que jai compris voici une petite macro qui peut te
montrer

le principe pour voir tout les fichiers dun dossier !

x = 1
strpath = "c:*.*"

objfolder = Dir(strpath, vbNormal)

Do While Len(objfolder) > 0
If objfolder <> "." And objfolder <> ".." Then
Cells(x, 1) = objfolder
x = x + 1
End If
End If
objfolder = Dir$()
Loop

tu as dans la collone A tout fichier de ton disque C =)

bonne Chance !

Fred

"Patrick" <anonymous@discussions.microsoft.com> wrote in message
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick

Regarde dont plus bas au Format essaie de comprendre et aider benevolement !

"Patrick" <anonymous@discussions.microsoft.com> wrote in message
news:afc301c436c9$fd34aa30$a301280a@phx.gbl...
Cher LeSteph,

J'ai posté hier le même message, et les seules réponses
ont venues de tirades sur le format US sans répondre à la
problématique, j'ai donc changé la phrase ou je parle du
format US pour reformuler, les puristes n'ont pas aimé !!

Merci en tout cas car je ne suis pas assez calé pour
composer ce code

Tu es vraiment sympa

Patrick

-----Message d'origine-----
Bonsoir,

je suis pas sûr , mais il me semble
avoir vu exactement le même problème
quelquepart.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick



.

Bonsoir,

Merci pour ce début de réponse, malheureusement mon niveau
me permet pas de l'écrire, ta première macro ne fonctionne
pas, je ne vois pas de commande Sub .. cela commence par x
= 1 et je ne sais pas faire...

Je cherche un formateur dans le cadre de la formation
continue pour une formation à lacarte, tu connais qq un ??

Merci en tout cas, je sens maintenant que c'est possible ..

Bien à toi

Patrick

-----Message d'origine-----
Cher LeSteph,

J'ai posté hier le même message, et les seules réponses
ont venues de tirades sur le format US sans répondre à la
problématique, j'ai donc changé la phrase ou je parle du
format US pour reformuler, les puristes n'ont pas aimé !!

Merci en tout cas car je ne suis pas assez calé pour
composer ce code

Tu es vraiment sympa

Patrick

-----Message d'origine-----
Bonsoir,

je suis pas sûr , mais il me semble
avoir vu exactement le même problème
quelquepart.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B
le

code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il
y

a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la
date

au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51
d'un

fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date
de

visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit
les

renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick



.

.

public sub lister_les_fichiers_du_disque_c()

x = 1
strpath = "c:*.*"

objfolder = Dir(strpath, vbNormal)

Do While Len(objfolder) > 0
If objfolder <> "." And objfolder <> ".." Then
Cells(x, 1) = objfolder
x = x + 1
End If
End If
objfolder = Dir$()
Loop

end sub

pour faire sa tu fais un copier coller apres avoir ouvert l'éditeur VBA en
utilisant la combinaison des touches ALT+F11 ensuite sur le classeur tu
clique a droite et tu fais ajouter un module , et tu colle le tout !

Ta toujours pas repondu a la question,

donc tu veux faire une recherche de bon de commande qui equivaut a dire une
recherche de fichier ?

si c'est bien sa que jai compris voici une petite macro qui peut te montrer
le principe pour voir tout les fichiers dun dossier !

Quand on veut ce faire aider , tu sais que la courtoisie est de mise, en
plus que je ne veux en aucun cas tout faire le boulot pour toi, donc si tu
as des questions n'hésite pas !

Fred

"Patrick" <anonymous@discussions.microsoft.com> wrote in message
news:afe701c436cd$191ea1d0$a301280a@phx.gbl...
Bonsoir,

Merci pour ce début de réponse, malheureusement mon niveau
me permet pas de l'écrire, ta première macro ne fonctionne
pas, je ne vois pas de commande Sub .. cela commence par x
= 1 et je ne sais pas faire...

Je cherche un formateur dans le cadre de la formation
continue pour une formation à lacarte, tu connais qq un ??

Merci en tout cas, je sens maintenant que c'est possible ..

Bien à toi

Patrick

-----Message d'origine-----
Cher LeSteph,

J'ai posté hier le même message, et les seules réponses
ont venues de tirades sur le format US sans répondre à la
problématique, j'ai donc changé la phrase ou je parle du
format US pour reformuler, les puristes n'ont pas aimé !!

Merci en tout cas car je ne suis pas assez calé pour
composer ce code

Tu es vraiment sympa

Patrick

-----Message d'origine-----
Bonsoir,

je suis pas sûr , mais il me semble
avoir vu exactement le même problème
quelquepart.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B
le

code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il
y

a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la
date

au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51
d'un

fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date
de

visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit
les

renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick



.

.

Bonsoir,

Tu as dis que j'étais sympa ,
c'est pas sûr mais si tu le crois on va essayer
on a compris que
Rapport de tournée doit contenir en g... ='D:/Patrick/BC20040509.xls
![feuil1]'$b$51
mais ce n'est guère plus facile.

LeSteph

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick

Bonsoir Patrick.

Sub Rapport_à_partir_des_fichiers()

x = 1

chemin = "d:Patrick"

strpath = chemin & "*.*"

objfolder = Dir(strpath, vbNormal)

Do While Len(objfolder) > 0
If objfolder <> "." And objfolder <> ".." Then

Call OuvrirDocument(objfolder, LeCodeClient, Ladate,
LeMontant)
x = x + 1
Cells(x, 1) = LeCodeClient
Cells(x, 2) = Ladate
Cells(x, 3) = LeMontant

End If

objfolder = Dir$()
Loop

End Sub

Sub OuvrirDocument(NomDuDocument, LeCodeClient, Ladate, LeMontant)

LeCodeClient = Mid(NomDuDocument, 1, 5)

Ladate = Mid(NomDuDocument, 7, 8)

Workbooks.Open FileName:=NomDuDocument

LeMontant = Range("H51").Value

ActiveWorkbook.Close

End Sub


"Patrick" <anonymous@discussions.microsoft.com> wrote in message
news:afc601c436c4$ddba23b0$a001280a@phx.gbl...
Bonjour ou bonsoir à toutes et à tous,

Voici ma problématique : Je remplis un rapport de tournée
avec dans les cases A la date de visite, dans la case B le
code du client et dans la colonne G le montant du CA
réalisé à cette visite ( !!!...) après chaque visite, il y
a un bon de commande sur mon DD avec en H51 la somme à
copier dans la colonne G. Le bon de commande est toujours
identique : Total en H51 et le nom est en rapport avec le
client et la date mais possède toujours le même nombre de
caractères : 19 soit les 5 premiers = le code du client
ensuite tjrs la lettre D ensuite 8 chiffre qui est la date
au format yyyymmjj (20040509) ensuite tjrs la lettre H
puis 4
nombres pour l'heure de la sauvegarde. Je souhaite donc
une macro qui va chercher automatiquement la case H51 d'un
fichier Excel avec un nom inconnu mais les 5 premiers
caractères de ce fichier sont dans la case B et la date de
visite c'est les caractères 7 à 14 et copier la valeur du
H51 dans LA CASE Gx (x suivant la ligne ou est inscrit les
renseignements nécessaires des case Ax et Bx) Je sais
c'est long mais cela est il possible ?? bien sur les bons
de commandes (ou il y a le H51) sont tous dans un même
répertoire d:Patrick.
Merci à toutes et à tous d'avance

Patrick