incrément numéro depuis fichier texte (macro excel)

[boblebob]

bonjour,
je vien de commencer a apprendre les macro dans excel, il y a 2 jours.
j'ai fait plusieurs recherche, et j'ai trouver pas mal de bon conseil pour faire des macro de base.

maintenant je serais intéresser a faire des macro un peu plus compliquer et j'aurais besoin de votre aide.

j'ai un fichier excel qui me sert de modèle pour mes facture (tout les formule sont rentrer, mais les cases de valeur sont vide)
j'ai réussit a implémenter un bouton a l'aide de macro qui me permet d'imprimer puis d'incrémenter mon numéro de facture (pour que le numéro de la prochaine soit le bon)
par contre, j'enregistre toute mes facture avec un nom différent, pour que mon modèle reste vide.

le problème est donc que le numéro de facture reste le même dans mon modèle.
il faudrait donc que le numéro de facture courent soit stocker ailleurs que dans mon classeur excel, dans un fichier texte par exemple.
je ne sais pas comment modifier mon macro actuel pour qu'il prenne ces info dans un fichier texte.


pourriez vous m'aider avec ça?

merci d'avance



voici le code de ma macro actuel:


Sub IMPRIMER()

ActiveWindow.SelectedSheets.Pr intOut Copies:=1, Collate:=True
Dim num As Integer
Range("a1").Select
num = Range("a1").Value
num = num + 1
Range("a1").Value = num

End Sub
-----

[invite2313209787891133]

Bonjour

J'ai écris un petit exemple de lecture et d'écriture d'un fichier texte; je pense que c'est la solution la plus simple pour ton problème.

Ce fichier contient le numéro de la facture; il doit être crée manuellement une 1ere fois, puis la macro l'utilisera ensuite.

La 1ere partie pour la lecture; il faut creer un fichier numerofacture.txt que tu places à la racine (c:\):

Sub lecture()

'déclaration variable
Dim numfacture As Variant

'ouverture du fichier texte
Open "c:\numerofacture.txt" For Input As 1

'lecture du fichier texte
Line Input #1, numfacture

'fermeture du fichier texte
Close #1

'écriture de la valeur dans la cellule 1,1
Cells(1, 1) = numfacture

End Sub

avec la même logique (et sans les commentaires) la seconde partie pour l'écriture:

Sub ecriture()

Dim numfacture As Variant
numfacture = Cells(1, 2)
Open "c:\numerofacture.txt" For Output As 1
Print #1, numfacture
Close #1

End Sub

Si tu as des questions n'hésites pas.

[boblebob]

salut,
merci de ton aide,
j'ai compris ton code et l'ai intègre a ce que j'avais déjà fait.
voici ce que ca donne

Sub IMPRIMER()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Dim numfacture As Variant

'ouverture du fichier texte
Open "C:\...\numerofacture.txt" For Input As 1

'lecture du fichier texte
Line Input #1, numfacture

numfacture = numfacture + 1
Cells(1, 1) = numfacture
Print #1, numfacture
Close #1

End Sub

mais au moment de l'exécution, j'ai une erreur,
'erreur d'exécution '54' mode d'accès au fichier incorrect'
l'erreur apparais au moment du print
est ce que t'aurais une idée de comment corriger l'erreur

merci

[invite2313209787891133]

Quand tu ouvres le fichier avec "For Input As 1" tu l'ouvre sur le "port" 1, et ce port est utilisé exclusivement pour lire; tout autre accès est bloqué.

Pour écrire il faut que tu ferme le port (avec close #1) et tu rouvres à nouveau en écriture pour modifier le fichier.

[A voir en vidéo sur Futura]

[boblebob]

merci beacoup, sa marche,
j'ai maintenant un numéro de facture indépendant du fichier.

une dernière question, est ce qu'il est possible d'avoir une macro qui s'exécute a l'ouverture du fichier, sa permettrais de mètre a jour le numéro de facture a l'ouverture du fichier.

encore merci pour ton aide

[invite2313209787891133]

Oui c'est possible, il suffit de placer le code dans ThisWorkbook, dans le private sub Workbook_Open() et il s'exécutera à l'ouverture du classeur.

[boblebob]

salut,
j'ai un petit probleme avec la partie automatique au demarage,
j'ai utiliser le meme code que precedement en retirant la partie imprimer, j'ai placer le tout directement dans ThisWorkbook, ca donne ca:

Sub actualiser_numfacture()
'ouverture du fichier texte
Open "...\numerofacture.txt" For Input As 1

'lecture du fichier texte
Line Input #1, numfacture

Range("a1").Value = numfacture
Close #1
Open "\\SDATA\disk1\entreprise_d_verdy\2010\numerofacture.txt" For Output As 1
Print #1, numfacture
Close #1
End Sub

si je clic sur le bouton "imprimer" le numéro de facture se met a jour et ça imprime (parfait) mais si je ferme excel, que je change manuellement le numéro de facture puis que je le réouvre, le numéro ne se met pas a jour automatiquement.

Image supprimée.

[JPL]

Ton image a été supprimée. Sa taille était excessive et nous n'acceptons pas d'image sur un serveur extérieur. Il faut la poster en pièce jointe en respectant les dimensions maximum : http://forums.futura-sciences.com/lo...ges-forum.html

[invite2313209787891133]

Bonjour
Est ce que tu pourrais upploader ton fichier quelque part, que je puisse le récupérer ?
Sinon il faut déjà virer les lignes "Sub actualiser_numfacture()" et "End Sub" si ils sont déjà dans "private sub Workbook_Open()"

[boblebob]

salut,
j'ai retirer les 2 lignes que tu m'as indiquer, mais ca ne marche toujours pas.
voici une image qui je l'espère te permettra de mieux résoudre le problème

sinon, je pourrais toujours t'envoyer le fichier excel pour que tu ai directement accès au code

[invite2313209787891133]

Je viens de jeter un œil à ton fichier; ça ne marche pas parce que le code n'est pas dans la bonne procédure:

- Il faut aller sur ThisWorkbook
- Ton code est dans Général ; déclarations ; tu copies l'intégralité du code, puis avec la liste déroulante tu sélectionnes "Worbook" au lieu de Général.
- Tu recopies le code entre les lignes Private Sub Workbook_Open() et End Sub qui viennent d'apparaitre.
- Tu fermes le fichier en sauvant, tu rouvres; ça devrait marcher cette fois

[boblebob]

merci beaucoup dudule pour toute ton aide, j'ai finalement réussit a corriger tout les problème que j'avais avec excel
tout est automatique maintenant.

encore merci