Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : ECFF25D4-38E0-4521-B3F6-10914BC2961E@microsoft.com...
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : ECFF25D4-38E0-4521-B3F6-10914BC2961E@microsoft.com...
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
Essaie ceci :
'-----------------------------------------------
Sub test()
Dim Repertoire As String
Dim Fichier As String
Dim Ok As Boolean
Dim Numero As String
Repertoire = "C:CONCEPT HabitatDevis"
Numero = "0909012" ' à déterminer
Fichier = Dir(Repertoire & "*.xls")
Do While Fichier <> ""
If InStr(1, Fichier, Numero, vbTextCompare) <> 0 Then
Workbooks.Open répertoire & Fichier
Ok = True
Exit Do
End If
Loop
If Ok = False Then
MsgBox "fichier introuvable"
End If
End Sub
'-----------------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== > Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
si je comprends bien, tu as un classeur pour chaque devis, et je
suppose un classeur pour chaque facture. Et tu fais du vba.
Moi, je pencherait plutôt pour une autre solution : un seul classeur.
Imaginons :
1-une feuille SAISIE organisée sans préoccupation de l'impression,
c'est à dire organisée pour bien voir et bien saisir, entre autre, avec
une liste des prestations, leur prix unitaire, et une colonne quantité
(+ catégorie, + brut ht, + taux de tva si nécessaire, + ...), bref,
tout ce qu'il faut pour se faciliter la vie, et pour afficher le
résultat total, avec éventuellement quelques coefficients pour adapter
les prix (par quantité, tête du client ou pour arriver à un total prévu
ou "rond").
Ne seront retenues, grâce à un filtre automatique, que les lignes avec
une quantité non vide.
2-une feuille TRANSFERT, automatique (éventuellement masquée) qui sera
alimentée par macro, à la demande par ce qui est visible dans la
feuille SAISIE car grâce à un filtre automatique, seules les lignes
avec une quantité non vide seront visibles.
3-une feuille TEMPORAIRE, automatique (éventuellement masquée)
reprendra par calcul, sur une seule ligne, toutes les données de la
feuille TRANSFERT avec éventuellement quelques champs calculés pour
faciliter le travail de base de données avec filtre automatique (année,
mois [200909], ...) et quelques champs vides (payé le, à relancer,
nbjours depuis facture, ...), bref les champs à remplir ultérieurement.
4-une feuille FACTURES_DEVIS qui sera une base de données qui reprendra
pour chaque facture ou devis la ligne de la feuille temporaire. Avec
les titres qui vont bien, et un ordre de colonnes judicieux, aucun
problème pour filtrer le devis n° ou le client Schmurtz et voir toutes
ses factures et tous ses devis.
5-une feuille PREP_IMPRESSION, automatique (éventuellement masquée)
dans laquelle on ira coller la ligne de la facture ou du devis à
imprimer
6-une feuille IMPRESSION alimentée par calcul sur la feuille
PREP_IMPRESSION qui aura le bon look pour présenter ce qu'il y a à
imprimer. Si nécessaire une autre feuille permettra d'imprimer factures
ou devis sur plusieurs pages.
7-quelques macros pour faire la gymnastique nécessaire.
On en reparle quand tu veux.
Jac
Peponne31 avait prétendu :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
si je comprends bien, tu as un classeur pour chaque devis, et je
suppose un classeur pour chaque facture. Et tu fais du vba.
Moi, je pencherait plutôt pour une autre solution : un seul classeur.
Imaginons :
1-une feuille SAISIE organisée sans préoccupation de l'impression,
c'est à dire organisée pour bien voir et bien saisir, entre autre, avec
une liste des prestations, leur prix unitaire, et une colonne quantité
(+ catégorie, + brut ht, + taux de tva si nécessaire, + ...), bref,
tout ce qu'il faut pour se faciliter la vie, et pour afficher le
résultat total, avec éventuellement quelques coefficients pour adapter
les prix (par quantité, tête du client ou pour arriver à un total prévu
ou "rond").
Ne seront retenues, grâce à un filtre automatique, que les lignes avec
une quantité non vide.
2-une feuille TRANSFERT, automatique (éventuellement masquée) qui sera
alimentée par macro, à la demande par ce qui est visible dans la
feuille SAISIE car grâce à un filtre automatique, seules les lignes
avec une quantité non vide seront visibles.
3-une feuille TEMPORAIRE, automatique (éventuellement masquée)
reprendra par calcul, sur une seule ligne, toutes les données de la
feuille TRANSFERT avec éventuellement quelques champs calculés pour
faciliter le travail de base de données avec filtre automatique (année,
mois [200909], ...) et quelques champs vides (payé le, à relancer,
nbjours depuis facture, ...), bref les champs à remplir ultérieurement.
4-une feuille FACTURES_DEVIS qui sera une base de données qui reprendra
pour chaque facture ou devis la ligne de la feuille temporaire. Avec
les titres qui vont bien, et un ordre de colonnes judicieux, aucun
problème pour filtrer le devis n° ou le client Schmurtz et voir toutes
ses factures et tous ses devis.
5-une feuille PREP_IMPRESSION, automatique (éventuellement masquée)
dans laquelle on ira coller la ligne de la facture ou du devis à
imprimer
6-une feuille IMPRESSION alimentée par calcul sur la feuille
PREP_IMPRESSION qui aura le bon look pour présenter ce qu'il y a à
imprimer. Si nécessaire une autre feuille permettra d'imprimer factures
ou devis sur plusieurs pages.
7-quelques macros pour faire la gymnastique nécessaire.
On en reparle quand tu veux.
Jac
Peponne31 avait prétendu :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour Peponne31,
si je comprends bien, tu as un classeur pour chaque devis, et je
suppose un classeur pour chaque facture. Et tu fais du vba.
Moi, je pencherait plutôt pour une autre solution : un seul classeur.
Imaginons :
1-une feuille SAISIE organisée sans préoccupation de l'impression,
c'est à dire organisée pour bien voir et bien saisir, entre autre, avec
une liste des prestations, leur prix unitaire, et une colonne quantité
(+ catégorie, + brut ht, + taux de tva si nécessaire, + ...), bref,
tout ce qu'il faut pour se faciliter la vie, et pour afficher le
résultat total, avec éventuellement quelques coefficients pour adapter
les prix (par quantité, tête du client ou pour arriver à un total prévu
ou "rond").
Ne seront retenues, grâce à un filtre automatique, que les lignes avec
une quantité non vide.
2-une feuille TRANSFERT, automatique (éventuellement masquée) qui sera
alimentée par macro, à la demande par ce qui est visible dans la
feuille SAISIE car grâce à un filtre automatique, seules les lignes
avec une quantité non vide seront visibles.
3-une feuille TEMPORAIRE, automatique (éventuellement masquée)
reprendra par calcul, sur une seule ligne, toutes les données de la
feuille TRANSFERT avec éventuellement quelques champs calculés pour
faciliter le travail de base de données avec filtre automatique (année,
mois [200909], ...) et quelques champs vides (payé le, à relancer,
nbjours depuis facture, ...), bref les champs à remplir ultérieurement.
4-une feuille FACTURES_DEVIS qui sera une base de données qui reprendra
pour chaque facture ou devis la ligne de la feuille temporaire. Avec
les titres qui vont bien, et un ordre de colonnes judicieux, aucun
problème pour filtrer le devis n° ou le client Schmurtz et voir toutes
ses factures et tous ses devis.
5-une feuille PREP_IMPRESSION, automatique (éventuellement masquée)
dans laquelle on ira coller la ligne de la facture ou du devis à
imprimer
6-une feuille IMPRESSION alimentée par calcul sur la feuille
PREP_IMPRESSION qui aura le bon look pour présenter ce qu'il y a à
imprimer. Si nécessaire une autre feuille permettra d'imprimer factures
ou devis sur plusieurs pages.
7-quelques macros pour faire la gymnastique nécessaire.
On en reparle quand tu veux.
Jac
Peponne31 avait prétendu :
> Bonjour,
>
> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
> Ce formulaire est un devis que je veux transformer en facture.
> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
> son N° pour le rappeler: "0909012".
> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
> compétant.
>
> Private Sub OuvreDevis()
> Dim Chemin As String
> Dim Feuille As String
> Chemin = "C:CONCEPT HabitatDevis"
> Workbooks.Open Chemin & Fich & ".xls"
> End Sub
>
> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Re
J'ai oublié de présiser que dans mon formulaire
je rentre le N° de devis à rechercher dans une cellule en J4
Merci encore et bonne soirée.
Peponne31
"FS" a écrit :Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== >> Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >>
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Re
J'ai oublié de présiser que dans mon formulaire
je rentre le N° de devis à rechercher dans une cellule en J4
Merci encore et bonne soirée.
Peponne31
"FS" a écrit :
Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== >> Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >>
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Re
J'ai oublié de présiser que dans mon formulaire
je rentre le N° de devis à rechercher dans une cellule en J4
Merci encore et bonne soirée.
Peponne31
"FS" a écrit :Bonsoir,
Une approche légèrement différente de celle de Denis :
'=================== >> Sub OuvreDevis()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = _
Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >>
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :Bonjour,
Je voudrais ouvrir un formulaire enregistré dans un répetoire.
Ce formulaire est un devis que je veux transformer en facture.
Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
son N° pour le rappeler: "0909012".
J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
compétant.
Private Sub OuvreDevis()
Dim Chemin As String
Dim Feuille As String
Chemin = "C:CONCEPT HabitatDevis"
Workbooks.Open Chemin & Fich & ".xls"
End Sub
Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Si tu ne modifies pas tout ton projet comme suggéré par Jac, le code
ci-dessous corrige le précedent en recherchant le numéro saisi en
cellule J4. Il faut que le format de cette cellule soit personnalisé
(0000000) pour qu'un zéro initial soit pris en compte (la propriété Text
de la cellule permet de prendre en compte son contenu affiché).
Si le code n'est pas lancé depuis le classeur qui contient la cellule J4
et que la feuille qui contient cette même cellule n'est pas la feuille
active, il faudra qualifier entièrement le chemin d'accès à J4 (par
exemple :
AChercher =
Workbooks("leclasseur.xls").sheets("lafeuille").Range("J4").Text)
'=================== > Sub OuvreDevis_2()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = Range("J4").Text 'modif ici
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Re
>
> J'ai oublié de présiser que dans mon formulaire
> je rentre le N° de devis à rechercher dans une cellule en J4
> Merci encore et bonne soirée.
> Peponne31
>
> "FS" a écrit :
>
>> Bonsoir,
>>
>> Une approche légèrement différente de celle de Denis :
>>
>> '=================== > >> Sub OuvreDevis()
>> Dim fso As Object, Dossier As Object, NomDossier$
>> Dim Files As Object, File As Object, AChercher$
>>
>> AChercher = _
>> Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
>> NomDossier = "C:CONCEPT HabitatDevis"
>> Set fso = CreateObject("Scripting.FileSystemObject")
>> Set Dossier = fso.getfolder(NomDossier)
>> Set Files = Dossier.Files
>> If Files.Count <> 0 Then
>> For Each File In Files
>> If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
>> Workbooks.Open NomDossier & File.Name
>> Exit For
>> End If
>> Next
>> End If
>>
>> End Sub
>> '=================== > >>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> Peponne31 a écrit :
>>> Bonjour,
>>>
>>> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
>>> Ce formulaire est un devis que je veux transformer en facture.
>>> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
>>> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
>>> son N° pour le rappeler: "0909012".
>>> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
>>> compétant.
>>>
>>> Private Sub OuvreDevis()
>>> Dim Chemin As String
>>> Dim Feuille As String
>>> Chemin = "C:CONCEPT HabitatDevis"
>>> Workbooks.Open Chemin & Fich & ".xls"
>>> End Sub
>>>
>>> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Si tu ne modifies pas tout ton projet comme suggéré par Jac, le code
ci-dessous corrige le précedent en recherchant le numéro saisi en
cellule J4. Il faut que le format de cette cellule soit personnalisé
(0000000) pour qu'un zéro initial soit pris en compte (la propriété Text
de la cellule permet de prendre en compte son contenu affiché).
Si le code n'est pas lancé depuis le classeur qui contient la cellule J4
et que la feuille qui contient cette même cellule n'est pas la feuille
active, il faudra qualifier entièrement le chemin d'accès à J4 (par
exemple :
AChercher =
Workbooks("leclasseur.xls").sheets("lafeuille").Range("J4").Text)
'=================== > Sub OuvreDevis_2()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = Range("J4").Text 'modif ici
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Re
>
> J'ai oublié de présiser que dans mon formulaire
> je rentre le N° de devis à rechercher dans une cellule en J4
> Merci encore et bonne soirée.
> Peponne31
>
> "FS" a écrit :
>
>> Bonsoir,
>>
>> Une approche légèrement différente de celle de Denis :
>>
>> '=================== > >> Sub OuvreDevis()
>> Dim fso As Object, Dossier As Object, NomDossier$
>> Dim Files As Object, File As Object, AChercher$
>>
>> AChercher = _
>> Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
>> NomDossier = "C:CONCEPT HabitatDevis"
>> Set fso = CreateObject("Scripting.FileSystemObject")
>> Set Dossier = fso.getfolder(NomDossier)
>> Set Files = Dossier.Files
>> If Files.Count <> 0 Then
>> For Each File In Files
>> If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
>> Workbooks.Open NomDossier & File.Name
>> Exit For
>> End If
>> Next
>> End If
>>
>> End Sub
>> '=================== > >>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> Peponne31 a écrit :
>>> Bonjour,
>>>
>>> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
>>> Ce formulaire est un devis que je veux transformer en facture.
>>> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
>>> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
>>> son N° pour le rappeler: "0909012".
>>> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
>>> compétant.
>>>
>>> Private Sub OuvreDevis()
>>> Dim Chemin As String
>>> Dim Feuille As String
>>> Chemin = "C:CONCEPT HabitatDevis"
>>> Workbooks.Open Chemin & Fich & ".xls"
>>> End Sub
>>>
>>> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31
Bonjour,
Si tu ne modifies pas tout ton projet comme suggéré par Jac, le code
ci-dessous corrige le précedent en recherchant le numéro saisi en
cellule J4. Il faut que le format de cette cellule soit personnalisé
(0000000) pour qu'un zéro initial soit pris en compte (la propriété Text
de la cellule permet de prendre en compte son contenu affiché).
Si le code n'est pas lancé depuis le classeur qui contient la cellule J4
et que la feuille qui contient cette même cellule n'est pas la feuille
active, il faudra qualifier entièrement le chemin d'accès à J4 (par
exemple :
AChercher =
Workbooks("leclasseur.xls").sheets("lafeuille").Range("J4").Text)
'=================== > Sub OuvreDevis_2()
Dim fso As Object, Dossier As Object, NomDossier$
Dim Files As Object, File As Object, AChercher$
AChercher = Range("J4").Text 'modif ici
NomDossier = "C:CONCEPT HabitatDevis"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
Workbooks.Open NomDossier & File.Name
Exit For
End If
Next
End If
End Sub
'=================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
Peponne31 a écrit :
> Re
>
> J'ai oublié de présiser que dans mon formulaire
> je rentre le N° de devis à rechercher dans une cellule en J4
> Merci encore et bonne soirée.
> Peponne31
>
> "FS" a écrit :
>
>> Bonsoir,
>>
>> Une approche légèrement différente de celle de Denis :
>>
>> '=================== > >> Sub OuvreDevis()
>> Dim fso As Object, Dossier As Object, NomDossier$
>> Dim Files As Object, File As Object, AChercher$
>>
>> AChercher = _
>> Format(InputBox("Saisir le numéro du devis à ouvrir"), "0000000")
>> NomDossier = "C:CONCEPT HabitatDevis"
>> Set fso = CreateObject("Scripting.FileSystemObject")
>> Set Dossier = fso.getfolder(NomDossier)
>> Set Files = Dossier.Files
>> If Files.Count <> 0 Then
>> For Each File In Files
>> If InStr(1, File.Name, AChercher, vbTextCompare) <> 0 Then
>> Workbooks.Open NomDossier & File.Name
>> Exit For
>> End If
>> Next
>> End If
>>
>> End Sub
>> '=================== > >>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> Peponne31 a écrit :
>>> Bonjour,
>>>
>>> Je voudrais ouvrir un formulaire enregistré dans un répetoire.
>>> Ce formulaire est un devis que je veux transformer en facture.
>>> Mes devis sont enregistrés enregistré comme suit: "Mme & M. DURAND 0909012"
>>> ou bien "M. DUCHEMIN 0909013" et je voudrais l'ouvrir en ne me servant que de
>>> son N° pour le rappeler: "0909012".
>>> J'ai commencé un bout de code mais ne sais pas le terminer, pas assé
>>> compétant.
>>>
>>> Private Sub OuvreDevis()
>>> Dim Chemin As String
>>> Dim Feuille As String
>>> Chemin = "C:CONCEPT HabitatDevis"
>>> Workbooks.Open Chemin & Fich & ".xls"
>>> End Sub
>>>
>>> Si qulqu'un peux m'aider ce serai avec grand plaisir.Peponne31