ouverture dossier

*Bonjour Peponne31*,
Justement, si tu crée une liste de tous les devis pour un client
particulier, après tu peux choisir un devis dans cette liste

Re,JLuc,
je ne peux me servir des N° de clients car il peut y avoir plusieurs devis
pour un mème client, merci encore.

*ReBonjour Peponne31*,
Par contre, incrémente tes numéros de devis, pour l'utiliser en clé
primaire ET unique

Re.
Pour plus de vlartée je te fais parvenir une copie de mon classeur.
Merci encore et bonne journée. http://cjoint.com/?czkgC3L4BZ

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news: EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis
en I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs
"D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de
devis il serait plus facile de l'enregistrer sous un nom et un nom et un
N°. C'est un peux long comme explication j'èspère que tu comprend ce que
je veux dire.
Merci

et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news: 1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en
suis Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

Re
autant pour moi il y avait une erreur dans le fichier journal des devis. N°
de devis 1 est bien un numéro de devis qui s'incrémente en auto, et le N°
client est le N° d'enregistrement du client dans la base de donné fichier
clients c'est pour cela qu'il peut y avoir de nombreux N°1 dans journal des
devis et tout remodifier, je ne saurais pas faire.
Merci encore.

*Bonjour Peponne31*,

Bonjour JLuc
Merci pour ta réponse je vais l'essayer, pour l'incréméntation elle est
automatique.
Apparement, tu n'a que des devis N°1 :-?

Mais ny aurait-il pas moyen de modifier juste la ligne ( Workbooks.Open
Chemin & Fich & ".xls" ) ?
Ton problème, c'est le nom de ton fichier. Il faut le reconstituer avec

les données de ta feuille "journal des devis". Pour çà, il faut faire
une recherche dans cette feuille pour retrouver la ligne
correspondante. C'est pour çà que je te proposais de concerver le nom
du fichier, c'est plus simple

Merci encore et bon après-midi.

De nada

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Bonjour MichDenis,
je me permet de t'envoyer une copie partièle de mon classeur, dans Devis 1
page j'ai modifier une ligne comme suit: Wk.SaveAs "C:bb
terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls" et dans facture une
page, je souhaiterai modifier cette ligne: Workbooks.Open Chemin & Fich &
".xls" cela correspond à se que tu mas envoyer mais il me faut l'adapter et
je ni arrive pas.
Merci encore pour ton aide, si dans l'évantualité tu peux faire quelque
chose !!!

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

Bonjour MichDenis,
Je te remercie pour ta réponse, mais je ne peux l'adapter. Je me permet de
t'envoyer une partie de mon fichier, dans devis une page j'ai modifier une
ligne comme suit pour pouvoir enregistrer mon devis sous un nom et un numéro:
Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls" et
dans facture une page je voudrais adapter cette ligne: Workbooks.Open
Chemin & Fich & ".xls" pour pouvoir en tapent le numéro du devis dans la
cellule le réouvrir en mode facture. http://cjoint.com/?czqgeopFMX
Merci encore si tu peux faire quelque chose pour moi.

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

| Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls"

A ) Ce bout de code est dans quel module ?
B ) I2 Est vide ... de quoi a l'air le type de numéro de facture ?
C ) En quoi, la procédure soumise ne répond pas à tes besoins ?

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
59DEDFA4-F662-4C2D-94E5-983EDEC36C72@microsoft.com...
Bonjour MichDenis,
Je te remercie pour ta réponse, mais je ne peux l'adapter. Je me permet de
t'envoyer une partie de mon fichier, dans devis une page j'ai modifier une
ligne comme suit pour pouvoir enregistrer mon devis sous un nom et un numéro:
Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls" et
dans facture une page je voudrais adapter cette ligne: Workbooks.Open
Chemin & Fich & ".xls" pour pouvoir en tapent le numéro du devis dans la
cellule le réouvrir en mode facture. http://cjoint.com/?czqgeopFMX
Merci encore si tu peux faire quelque chose pour moi.

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

Bonjour MichDenis,
le bout de code se trouve dans la Feuil11, en mode devis,
B11 correspond à la saisie du nom du client.
I2 correspond au N° de devis qui est incrémenté automatiquement des
la saisie du N° de client en J6.
Quand à ce bout de code:
Workbooks.Open Chemin & Fich & ".xls" il se trouve dans la feuil12
c'es lui qui réouvre mon devis et que je voudrais modifier, pour que
en saisissant le N° de devis en J6 en mode facture il puisse me la réouvrir.
Ne connaisant pratiquement rien au vba, ce programme a été
mis au point il y a un An avec votre aide et surtout grace à Daniel que je
remercie.
Merci si tu peux faire quelque chose pour moi.

| Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls"

A ) Ce bout de code est dans quel module ?
B ) I2 Est vide ... de quoi a l'air le type de numéro de facture ?
C ) En quoi, la procédure soumise ne répond pas à tes besoins ?

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
59DEDFA4-F662-4C2D-94E5-983EDEC36C72@microsoft.com...
Bonjour MichDenis,
Je te remercie pour ta réponse, mais je ne peux l'adapter. Je me permet de
t'envoyer une partie de mon fichier, dans devis une page j'ai modifier une
ligne comme suit pour pouvoir enregistrer mon devis sous un nom et un numéro:
Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls" et
dans facture une page je voudrais adapter cette ligne: Workbooks.Open
Chemin & Fich & ".xls" pour pouvoir en tapent le numéro du devis dans la
cellule le réouvrir en mode facture. http://cjoint.com/?czqgeopFMX
Merci encore si tu peux faire quelque chose pour moi.

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.

Re,
Petite erreur de ma part, c'est en J4 que je saisie le N° de devis
en mode facture et non en J6.
Merci

| Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls"

A ) Ce bout de code est dans quel module ?
B ) I2 Est vide ... de quoi a l'air le type de numéro de facture ?
C ) En quoi, la procédure soumise ne répond pas à tes besoins ?

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
59DEDFA4-F662-4C2D-94E5-983EDEC36C72@microsoft.com...
Bonjour MichDenis,
Je te remercie pour ta réponse, mais je ne peux l'adapter. Je me permet de
t'envoyer une partie de mon fichier, dans devis une page j'ai modifier une
ligne comme suit pour pouvoir enregistrer mon devis sous un nom et un numéro:
Wk.SaveAs "C:bb terrassementDevis" & [B11] & Chr(32) & [I2] & ".xls" et
dans facture une page je voudrais adapter cette ligne: Workbooks.Open
Chemin & Fich & ".xls" pour pouvoir en tapent le numéro du devis dans la
cellule le réouvrir en mode facture. http://cjoint.com/?czqgeopFMX
Merci encore si tu peux faire quelque chose pour moi.

Tu peux utiliser ce type de procédure ....

'------------------------------
Sub Ouvrir_No_Client()

Dim X As Long, Chemin As String
Dim F As String, Fichier As String
Chemin = "c:Denis" 'à définir
Fichier = "*.xls" '
On Error Resume Next
X = Application.InputBox(Prompt:="Numéro de la facture", Type:=1)
If X = 0 Then Exit Sub
F = Dir(Chemin & Fichier)
Do While F <> ""
If InStr(1, F, X, vbTextCompare) <> 0 Then
Workbooks.Open Chemin & Fichier
Exit Sub
Else
F = Dir()
End If
Loop
End Sub
'------------------------------

Tu pourrais aussi te constituer une barre d'outils muni d'un combobox
listant tous les fichiers contenus dans le répertoire... et en sélectionnant
le fichier dans la liste déroulante, ce dernier s'ouvre...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
2B1054B4-5651-4DAA-B360-5F34BF65860C@microsoft.com...
Bonjour MichDenis,
Merci pour tes explications mais tu as raison cela ne fonctionne pas. Pour
répondre à ta dernière question, Lorsque je tape mon devis, une fois imprimé
il est rangé dans le répertoire " D:lm constructionDevis" sous le nom de
la personne et un numéro pour pouvoir aller le rechercher et ma feuille Devis
devient vierge. D'ou ma question d'aller rechercher le devis pour le passer
en mode facturation mais uniquement par son numéro d'enregistrement qui est
un numéro propre à chaque client
Merci encore pour tes explications

Si tu as 2 feuilles par exemple dans ton classer :
A ) feuille "Devis et feuille "Facturation"
Comme elles sont dans le même classeur, explique
moi pourquoi tu dois rappeler le classeur puisqu'il
n'est pas fermé ?

Pour ouvrir un fichier :
Dim Chemin As String
Dim NomFichier As String

Chemin = D:lm constructionDevis"
Fichier = SonNom & ".xls"

Workbooks.Open chemin & Fichier

ça ne doit pas répondre à ta question.... mais à défaut de comprendre ...!



"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
EF4DA380-D1CE-4E20-B811-F9ED8BF579EC@microsoft.com...
Bonjour MichDenis,
Je possède un classeur avec plusieurs feuilles, sur ma feuille Devis, je
l'enregistre sous le nom du client en B11 un espace et un numéro de Devis en
I2 voici ma ligne sous laqu'elle j'enregistre mon devis, Wk.SaveAs "D:lm

constructionDevis" & [B11] & Chr(32) & [I2] & ".xls"
ensuite sur une autre feuille, Facturation, je voudrais rappeler mon devis

pour le passer en mode facture ou je tape le N° du devis voulue et il
apparait en mode facturation voici ma ligne pour l'appeler, Workbooks.Open
Chemin & Fich & ".xls"
seulement j'ai un message d'erreur. Il faut savoir que si j' enregistre le
devis que sous un N° cela fonctionne bien mais pour des modification de devis
il serait plus facile de l'enregistrer sous un nom et un nom et un N°.
C'est un peux long comme explication j'èspère que tu comprend ce que je veux
dire.
Merci

| et je voudrai le récupérer sous son numéro

De quel numéro s'agit-il ?

Donne quelque exemple de noms de fichier que tu constitues...
Est-ce à partir d'une section numérique de leur nom que tu
veux récupérer ton fichier ? Quelle est-elle ?

Est-ce que tu connais le chemin de ces fichiers ?




"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1B7F1DB2-A50D-4CDB-BF27-A1424A8483D7@microsoft.com...
Bonjour,
J'enregistre un dossier sous son nom et son numéro, Wk.SaveAs "D:lm
constructionDevis" & [B11] & Chr(32) & [I2] & ".xls" et je voudrai le
récupérer sous son numéro mais je ne sais comment faire, voici ou j'en suis
Workbooks.Open Chemin & Fich & ".xls"
si quelqu'un veut bien m'aider à completer ma formule !! Merci d'avance.