Discussion :

[marcolino]

Bonsoir,

je voudrais savoir si c'est possible de créer un macro de façon qu'à chaque fois que j'ouvre un fichier le chiffre de référence augmente d'un, comme pour les nombres de visiteurs d'un site web.
exemple: j'ouvre une première fois: 1
j'ouvre une deuxième fois: le 1 deviens 2...

Merci

[ucfoutu]

Bonsoir,

Mon premier réflexe (vite réprimé) était de répondre "oui" à la question, telle que posée .

Le second (de sagesse, lui), est plus modéré et nécessite la réponse à plusieurs questions :
- ouvrir quel fichier ? (n'importe lequel suir ton disque ou ... ailleurs ...., Excel ou non ?)
- l'ouvrir comment ? pour en lire le contenu (fichier .txt par exemple) ? pour l'exécuter (exe ou xls par exemple) ?
- s'il s'agit d'un classeur : y compris si l'on inhibe les macros ?
etc... etc...
Ta question est pour moi assez floue à ce stade .

[marcolino]

Désolé pour mon manque de clairté.

C'est un fichier Excel que j'utilise comme modèle de base pour le modifier et l'imprimer. Tout ceci pour éviter à chaque fois d'avoir des doublons ou de ne plus savoir quel étais le numéro du dernier fichier.
J'espère avoir été assez clair maintenant...

Merci

[ucfoutu]

C'est un fichier Excel que j'utilise comme modèle de base pour le modifier et l'imprimer. Tout ceci pour éviter à chaque fois d'avoir des doublons ou de ne plus savoir quel étais le numéro du dernier fichier.

Toujours pas très clair (notamment ce que j'ai souligné).
Il s'agit de quoi faire, exactement ? Un compteur ou renommer par incrémentation ?
Il est absolument indispensable que tu exprimes tout précisément et en détail, si tu ne souhaites pas que cette discussion devienne une succession de questions/réponses .
Merci de le faire calmement et complètement.

[marcolino]

En fait je souhaite créer chaque mois des factures donc renommer le chiffre par incrémentation

[mercatog]

Une première approximation
dans l'évènement Open du Workbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("A1").Value + 1
End Sub

permet d'incrémenter à chaque ouverture A1 de la feuille Feuil1

[marcolino]

Merci pour la réponse.
J'ai encore une petite question: où dois-je l'écrire ce code?
Merci

[ucfoutu]

Une première approximation
dans l'évènement Open du Workbook

(bien que je sois persuadé que cela n'est pas ce que tu désires faire )