Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" a écrit dans le message de news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" <picsounet@hotmail.com> a écrit dans le message de news:
OUyYL3y6IHA.3696@TK2MSFTNGP04.phx.gbl...
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" a écrit dans le message de news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Super merci c'est génial j'ai testé mais j'ai un soucis!!!! :(
En fait je voudrais que ca fonctionne pareil mais quand je copie l'onglet
car mon premier devis est un modèle .
Est ce que c'est faisable ? mon fichier devis s'appelle devis.xls et
l'onglet d-08-00
Mille fois merci
Picsounet
"Youky" a écrit dans le message de news:Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" a écrit dans le message de news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant
le VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et
des Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le
registre Windows , je ne sais pas ou c'est et en plus il y a des choses
que je ne comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le
nom de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Super merci c'est génial j'ai testé mais j'ai un soucis!!!! :(
En fait je voudrais que ca fonctionne pareil mais quand je copie l'onglet
car mon premier devis est un modèle .
Est ce que c'est faisable ? mon fichier devis s'appelle devis.xls et
l'onglet d-08-00
Mille fois merci
Picsounet
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eKPOXD36IHA.1592@TK2MSFTNGP04.phx.gbl...
Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" <picsounet@hotmail.com> a écrit dans le message de news:
OUyYL3y6IHA.3696@TK2MSFTNGP04.phx.gbl...
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant
le VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et
des Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le
registre Windows , je ne sais pas ou c'est et en plus il y a des choses
que je ne comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le
nom de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Super merci c'est génial j'ai testé mais j'ai un soucis!!!! :(
En fait je voudrais que ca fonctionne pareil mais quand je copie l'onglet
car mon premier devis est un modèle .
Est ce que c'est faisable ? mon fichier devis s'appelle devis.xls et
l'onglet d-08-00
Mille fois merci
Picsounet
"Youky" a écrit dans le message de news:Bonsoir ,
essai ceci, il faut enregistrer le fichier avant de lancer la macro.
Attention la macro va créer un fichier N°facture.txt dans le même
répertoire
que ton fichier actuel. Si cela ne conviens pas tu peux le supprimer.
Ce fichier txt peut être modifié avec le bloc note.....
Ici dans cette macro en F12 tu auras D/les 2 dernier chiffres de l'année/
et 001
incrémenté à chaque ajout d'onglet. A chaque nouvelle année on repart à
001
Donc 999 factures par an sinon faut modifier la macro.
Je pense qu'il est plus sage de faire comme ça que de toucher la base de
registre.
Cette macro est à placer en ThisWorkbook et en NewSheet.
Youky
Private Sub Workbook_NewSheet(ByVal Sh As Object)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
End Sub
"picsounet" a écrit dans le message de news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant
le VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et
des Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le
registre Windows , je ne sais pas ou c'est et en plus il y a des choses
que je ne comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le
nom de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour Picsounet,
Je n'ai pas tous compris dans ton email, mais si tu veux mettre dans la
cellule F12 le nom de la feuille (et nom pas onglet ;))
Rempli la cellule avec la ligne suivante:
=MID(CELL("filename"),(FIND("]",CELL("filename"))+1),50)
Ou alors avec la macro suivante:
Sub SetNamePerso()
Range("F12") = ActiveSheet.Name
End Sub
Si tu a d'autre question, n'hésite pas (enfin un peut quand même ;) )
--
Regards
Christophe Mathon
while(!(succeed=try()));
"picsounet" wrote in message
news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour Picsounet,
Je n'ai pas tous compris dans ton email, mais si tu veux mettre dans la
cellule F12 le nom de la feuille (et nom pas onglet ;))
Rempli la cellule avec la ligne suivante:
=MID(CELL("filename"),(FIND("]",CELL("filename"))+1),50)
Ou alors avec la macro suivante:
Sub SetNamePerso()
Range("F12") = ActiveSheet.Name
End Sub
Si tu a d'autre question, n'hésite pas (enfin un peut quand même ;) )
--
Regards
Christophe Mathon
while(!(succeed=try()));
"picsounet" <picsounet@hotmail.com> wrote in message
news:OUyYL3y6IHA.3696@TK2MSFTNGP04.phx.gbl...
Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Bonjour Picsounet,
Je n'ai pas tous compris dans ton email, mais si tu veux mettre dans la
cellule F12 le nom de la feuille (et nom pas onglet ;))
Rempli la cellule avec la ligne suivante:
=MID(CELL("filename"),(FIND("]",CELL("filename"))+1),50)
Ou alors avec la macro suivante:
Sub SetNamePerso()
Range("F12") = ActiveSheet.Name
End Sub
Si tu a d'autre question, n'hésite pas (enfin un peut quand même ;) )
--
Regards
Christophe Mathon
while(!(succeed=try()));
"picsounet" wrote in message
news:Bonjour ,
J'ai plein de codes à créer mais bien entendu en tant que bon débutant le
VBA est du langage inconnu !!
J'ai un gros livre de 500 pages qui me donne quelques indications mais
quand j'essai ca ne marche pas!!
Alors voilà ce qui me gène en premier :
J'ai une gestion sur Excel avec des Devis , Feuille d'intervention et des
Factures , chacune ayant un numéro qui se suit :
pour le devis : le premier sera D/08/01 et lorsque je créé un nouvel
onglet je devrais voir apparaitre en F12 :d/08/01
J'ai trouvé un code dans mon livre mais je dois l'écrire dans le registre
Windows , je ne sais pas ou c'est et en plus il y a des choses que je ne
comprend pas dans le code :
Compteur = Getsetting ("Entreprise XYZ", " Numfacture", "Compte", 0)
Compteur = Compteur +1
Savesetting "entreprise XYZ" , "Numfacture" , "Compte" , Compteur
Donc j'ai compris qu'à la place de entreprise XYZ je devais mettre le nom
de ma société FTP
Mais à la place de numfacture et compte ???,
Merci beaucoup pour votre réponse
Et est ce que je pourrais abusés gentillement de vos conseils pour
d'autres codes ??!!
Mille fois merci
Picsounet
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" a écrit dans le message de news:Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ujLGb086IHA.5820@TK2MSFTNGP04.phx.gbl...
Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" a écrit dans le message de news:Le rajout indiqué hier soir n'était pas correct, voici avec amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
For k = 1 To Sheets.Count
If Sheets(k).Visible = True Then x = x + 1
If x = 6 Then Sheets(k - 3).Visible = False: Exit For
Next
Ceci pour masquer si +de 5 onglets, je masque le 3eme onglet, au besoin
changer -3
A mettre en bas de ma précédente macro
Pour faire les listes c'est possible avec Userform mais faut savoir ou
chercher les données et comment sont-elles classées
Donne un exemple de tes entetes de colonnes...
Les données devis ou Facture sont-elles sur des onglets différents???
Faut-il prévoir chercher par client (je vois que tu as un historique)
ci-dessous cela me dit rienmon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Youky
"picsounet" a écrit dans le message de news:
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" a écrit dans le message de news:Le rajout indiqué hier soir n'était pas correct, voici avec
amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
For k = 1 To Sheets.Count
If Sheets(k).Visible = True Then x = x + 1
If x = 6 Then Sheets(k - 3).Visible = False: Exit For
Next
Ceci pour masquer si +de 5 onglets, je masque le 3eme onglet, au besoin
changer -3
A mettre en bas de ma précédente macro
Pour faire les listes c'est possible avec Userform mais faut savoir ou
chercher les données et comment sont-elles classées
Donne un exemple de tes entetes de colonnes...
Les données devis ou Facture sont-elles sur des onglets différents???
Faut-il prévoir chercher par client (je vois que tu as un historique)
ci-dessous cela me dit rien
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Youky
"picsounet" <picsounet@hotmail.com> a écrit dans le message de news:
eB3iSpA7IHA.2416@TK2MSFTNGP02.phx.gbl...
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ujLGb086IHA.5820@TK2MSFTNGP04.phx.gbl...
Le rajout indiqué hier soir n'était pas correct, voici avec
amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal
For k = 1 To Sheets.Count
If Sheets(k).Visible = True Then x = x + 1
If x = 6 Then Sheets(k - 3).Visible = False: Exit For
Next
Ceci pour masquer si +de 5 onglets, je masque le 3eme onglet, au besoin
changer -3
A mettre en bas de ma précédente macro
Pour faire les listes c'est possible avec Userform mais faut savoir ou
chercher les données et comment sont-elles classées
Donne un exemple de tes entetes de colonnes...
Les données devis ou Facture sont-elles sur des onglets différents???
Faut-il prévoir chercher par client (je vois que tu as un historique)
ci-dessous cela me dit rienmon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
Youky
"picsounet" a écrit dans le message de news:
Super merci cela fonctionne ,
Est ce que vous auriez une solution pour ce nouveau problème ???
j'aimerais créer dans une cellule B9 un menu déroulant ou il y aura le
choix entre devis , intervention et facture
De ce menu ressortira dans le tableau en dessous tous les devis par
exemple .
Je vais essayer d'être plus claire : J'ai un historique client avec : mon
client Alpha et son site 27 je voudrais un menu déroulant pour voir tous
les devis fait sur ce client
mon tableau en dessous sera comme ca les infos sont dans liste devis ,
liste intervention et liste facture!!!:
DATE TYPE DE DOC (devis ...) N° DOC CONTENU (type d'intervention)
MONTANT REGLE
J'espère que c'est clair!!!! bon courage et mille fois merci vous me
dépannez ENORMEMENT
"Youky" a écrit dans le message de news:Le rajout indiqué hier soir n'était pas correct, voici avec
amélioration.
Si tu n'as pas d'onglets de masqué il te faut supprimer le -1 à
Sheets(Sheets.Count - 1).......aux 2 lignes
Youky
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
fichier = ThisWorkbook.Name
Dim nf As String
an = Right(Year(Now), 2)
chemin = ThisWorkbook.Path
On Error Resume Next
canal = FreeFile
Open chemin & "N°facture.txt" For Input As #canal
Input #canal, nf
Close #canal
If Left(nf, 2) = an Then
nf = CStr(an) & CStr(Right(nf + 1001, 3))
Else
nf = CStr(an) & CStr("001")
End If
Sheets(Sheets.Count - 1).[F12] = "D/" & an & "/" & Right(nf + 1001, 3)
Sheets(Sheets.Count - 1).Name = "D" & an & "_" & Right(nf + 1001, 3)
Open chemin & "N°facture.txt" For Output As #canal
Print #canal, nf
Close #canal