Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
> If ActiveWorkbook.Path = "" Then
> [numFact] = [numFact] + 1
> ActiveWorkbook.Saved = True
> ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
> & "Fact.xlt")
> End If
> End Sub
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> chemXlt = Application.TemplatesPath & "Fact.xlt"
> If ActiveWorkbook.Path = "" Then
> Set wbk = Workbooks.Open(chemXlt)
> With wbk.ActiveSheet
> .Range("NumFact") = .Range("NumFact") - 1
> End With
> wbk.Close True
> End If
> End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N°
et non 1 etc....
Je joint ma facture
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour natacha commence par enlever tous les ">" qui se trouvent devant chaque ligne de ta procédure dans le module ThisWorkbook (elles sont en rouge) et je pense qu'ensuite ça devrait rouler je n'ai pu qu'accéder à Visual Basic et pas à ta feuille mais je suippose que tu as bien pensé à nommer NUMFACT la cellule qui doit recevoir le n° de ta facture pour commencer à un certain n°, il te suffira de taper ce n° déduction faite d'une unité (si tu veux commencer par 1001, tu tapes 1000) dans la cellule nommée NUMFACT good luck jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
bonjour natacha
commence par enlever tous les ">" qui se trouvent devant chaque ligne de ta
procédure dans le module ThisWorkbook (elles sont en rouge) et je pense
qu'ensuite ça devrait rouler
je n'ai pu qu'accéder à Visual Basic et pas à ta feuille mais je suippose
que tu as bien pensé à nommer NUMFACT la cellule qui doit recevoir le n° de
ta facture
pour commencer à un certain n°, il te suffira de taper ce n° déduction faite
d'une unité (si tu veux commencer par 1001, tu tapes 1000) dans la cellule
nommée NUMFACT
good luck
jps
"natacha" <s-grondin@hotmail.com> a écrit dans le message de news:
1CC62112-90B7-482F-92E1-7FA7259662E0@microsoft.com...
Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures
quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
& "Fact.xlt")
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche
et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain
N°
et non 1 etc....
Je joint ma facture
bonjour natacha commence par enlever tous les ">" qui se trouvent devant chaque ligne de ta procédure dans le module ThisWorkbook (elles sont en rouge) et je pense qu'ensuite ça devrait rouler je n'ai pu qu'accéder à Visual Basic et pas à ta feuille mais je suippose que tu as bien pensé à nommer NUMFACT la cellule qui doit recevoir le n° de ta facture pour commencer à un certain n°, il te suffira de taper ce n° déduction faite d'une unité (si tu veux commencer par 1001, tu tapes 1000) dans la cellule nommée NUMFACT good luck jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
jps
re natacha autre chose dont je me rends compte ; il faut que cette ligne
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge et à cette heure matinale, nous on le met dans la soupe jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
re natacha
autre chose dont je me rends compte ; il faut que cette ligne
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge et
à cette heure matinale, nous on le met dans la soupe
jps
"natacha" <s-grondin@hotmail.com> a écrit dans le message de news:
1CC62112-90B7-482F-92E1-7FA7259662E0@microsoft.com...
Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures
quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
& "Fact.xlt")
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche
et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain
N°
et non 1 etc....
Je joint ma facture
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge et à cette heure matinale, nous on le met dans la soupe jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
jps
bon, ben, moi, je n'ai rien compris dans ce classeur qui a des liaisons avec un autre et pourtant en matière d'usine à gaz, j'm'y connais.... je passe la main car le devoir m'appelle ailleurs j'espère pour toi, natacha, qu'une bonne âme plus disponible prendra ton problème en mains.... bonne journée jps
"jps" a écrit dans le message de news: %
re natacha autre chose dont je me rends compte ; il faut que cette ligne
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge et à cette heure matinale, nous on le met dans la soupe jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
bon, ben, moi, je n'ai rien compris dans ce classeur qui a des liaisons avec
un autre et pourtant en matière d'usine à gaz, j'm'y connais....
je passe la main car le devoir m'appelle ailleurs
j'espère pour toi, natacha, qu'une bonne âme plus disponible prendra ton
problème en mains....
bonne journée
jps
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%239fc8BQyHHA.4004@TK2MSFTNGP05.phx.gbl...
re natacha
autre chose dont je me rends compte ; il faut que cette ligne
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge
et à cette heure matinale, nous on le met dans la soupe
jps
"natacha" <s-grondin@hotmail.com> a écrit dans le message de news:
1CC62112-90B7-482F-92E1-7FA7259662E0@microsoft.com...
Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures
quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
& "Fact.xlt")
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça
marche et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain
N°
et non 1 etc....
Je joint ma facture
bon, ben, moi, je n'ai rien compris dans ce classeur qui a des liaisons avec un autre et pourtant en matière d'usine à gaz, j'm'y connais.... je passe la main car le devoir m'appelle ailleurs j'espère pour toi, natacha, qu'une bonne âme plus disponible prendra ton problème en mains.... bonne journée jps
"jps" a écrit dans le message de news: %
re natacha autre chose dont je me rends compte ; il faut que cette ligne
soit écrite sur une seule ligne sinon tu as encore un p'tit coup de rouge et à cette heure matinale, nous on le met dans la soupe jps
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
Philippe.R
Bonjour,
JPS étant fort occupé, j'assure le SAV
Le classeur tel que modifié ci dessous convient il ?
http://cjoint.com/?hsiGIbDxP8
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
Bonjour,
JPS étant fort occupé, j'assure le SAV
Le classeur tel que modifié ci dessous convient il ?
http://cjoint.com/?hsiGIbDxP8
"natacha" <s-grondin@hotmail.com> a écrit dans le message de
news:1CC62112-90B7-482F-92E1-7FA7259662E0@microsoft.com...
Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures
quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
& "Fact.xlt")
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche
et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain
N°
et non 1 etc....
Je joint ma facture
Le classeur tel que modifié ci dessous convient il ?
http://cjoint.com/?hsiGIbDxP8
"natacha" a écrit dans le message de news:
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
Pascal
Bonjour Natacha Dans un simple module reliè à un bouton
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000757-3, 17/07/2007 Analyse le : 18/07/2007 07:45:09 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000757-3, 17/07/2007 Analyse le : 18/07/2007 08:42:48 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour Natacha
Dans un simple module reliè à un bouton
"natacha" <s-grondin@hotmail.com> a écrit dans le message de news:
1CC62112-90B7-482F-92E1-7FA7259662E0@microsoft.com...
Bjrs à tous
J'ai tjrs le même pb!!!!!!!!!!
en regardant ls réponses pour l'incrémentation du n° sur les factures
quant
moi j'essaie d'appliqué
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs(Application.TemplatesPath
& "Fact.xlt")
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur
compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche
et
pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain
N°
et non 1 etc....
Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000757-3, 17/07/2007
Analyse le : 18/07/2007 07:45:09
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000757-3, 17/07/2007
Analyse le : 18/07/2007 08:42:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bjrs à tous J'ai tjrs le même pb!!!!!!!!!! en regardant ls réponses pour l'incrémentation du n° sur les factures quant moi j'essaie d'appliqué Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then [numFact] = [numFact] + 1 ActiveWorkbook.Saved = True ActiveWorkbook.SaveCopyAs(Application.TemplatesPath & "Fact.xlt") End If End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) chemXlt = Application.TemplatesPath & "Fact.xlt" If ActiveWorkbook.Path = "" Then Set wbk = Workbooks.Open(chemXlt) With wbk.ActiveSheet .Range("NumFact") = .Range("NumFact") - 1 End With wbk.Close True End If End Sub
un message d'erreur s'affiche à l'ouverture de mon fichier " Erreur compilation" Erreur de syntaxe peut on m'aidé svp chez les autre ça marche et pas moi. En Plus j'aimerais que ma facture demarre à partir d'un certain N° et non 1 etc.... Je joint ma facture
Merci merci d'avance
http://dl.free.fr/cKOaHjEpo/facture1.xls
natacha
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000757-3, 17/07/2007 Analyse le : 18/07/2007 07:45:09 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000757-3, 17/07/2007 Analyse le : 18/07/2007 08:42:48 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com