Discussion :

[Rafap]

Bonjour,

N’étant pas un expert, je viens demander votre aide aujourd’hui pour une macro concernant la facturation. Je vous explique ma problématique. J’ai 16 fichiers Excel : 1 fichier qui liste les 15 templates types pour la facturation et 15 fichiers qui correspondent à une facture différente. Ainsi dans mon premier fichier j’ai un tableau avec 15 lignes où il y a écrit sur chaque ligne « Template n° » (Ligne 1 : Template n°1, Ligne 2 : Template n°2 etc). Ma volonté est la suivante : Faire 15 boutons en face de chaque ligne et leur attribuer 15 macros différentes.

Je souhaite que ma macro fasse la chose suivante :

- Quand je clique sur le bouton en face de « Template n°1 », que cela m’ouvre le fichier Template n°1.
- Que cela incrémente automatique sur ma cellule AO2 (du document Template n°1) un numéro de commande (n+1).
- Que cela sauvegarde le document.
- Que la feuille de calcul soit bloquée.

Voici les 4 choses que j’aimerais pour ma macro (Ainsi, les utilisateurs n’auront plus qu’à faire « Enregistre sous » et compléter la facture sans modifier le template de base. Et je souhaite « Enregistrer » dans ma macro pour que l’on garde en mémoire le numéro de commande précédent pour que le +1 se fasse toujours avec le dernier n° de commande et que l’on ne revienne pas à 0). Ensuite, je n’aurais plus qu’à faire mes 14 autres macros en changeant simplement le chemin.

Est-ce possible ? Je suis un peu perdu. Merci d’avance,

Bonne journée.

[Philippe Tulliez]

Bonjour,
Ce que tu demandes devrait faire l'objet d'au moins quatre nouvelles discussions.
Concernant ta deuxième question (l'incrémentation d'un numéro). Voir ce billet Excel – Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée

[Menhir]

Ma volonté est la suivante : Faire 15 boutons en face de chaque ligne et leur attribuer 15 macros différentes.

Il serait bien plus simple de faire un seul bouton qui puisse lancer l'un des 15 template au choix.
Le choix tu template souhaité pourrait se faire avec une liste déroulante ou, encore plus simple, en décidant qu'on utilise celui de la ligne active au lancement de la macro.

- Quand je clique sur le bouton en face de « Template n°1 », que cela m’ouvre le fichier Template n°1.

Méthode Open de Workbooks : https://docs.microsoft.com/fr-FR/off...workbooks.open

- Que cela incrémente automatique sur ma cellule AO2 (du document Template n°1) un numéro de commande (n+1).

Utiliser la propriété Value du Range référant la cellule souhaitée : https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)

- Que cela sauvegarde le document.

Méthode Save de Workbook : https://docs.microsoft.com/fr-FR/off....workbook.save

- Que la feuille de calcul soit bloquée.

Qu'est-ce que tu veux dire par "bloquée" ?
Si c'est ce que je pense, n'aurais-tu pas oublié l'étape "débloquer" en début de macro ?

Et je souhaite « Enregistrer » dans ma macro pour que l’on garde en mémoire le numéro de commande précédent pour que le +1 se fasse toujours avec le dernier n° de commande et que l’on ne revienne pas à 0).

Dans la mesure où ta macro n'intègre pas ce numéro de commande, il faudra que tu expliques à quoi il sert.
Il est probable qu'il faudra garder une place quelque part dans ton fichier pour enregistrer le dernier numéro utilisé.

Ensuite, je n’aurais plus qu’à faire mes 14 autres macros en changeant simplement le chemin.

Il serait beaucoup plus simple de n'en faire qu'une qui serve pour les 15 modèles différents.

[Rafap]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
'
' Test
'
 
'
    Workbooks.Open Filename:= _
        "C:\Users\" & VBA.Environ("USERNAME") & "\Template1"
 
    Range("AN2").Select
    Dim num As Integer
    num = Range("AN2").Value
    num = num + 1
    Range("AN2").Value = num
    ActiveWorkbook.Save
    Sheets("BC").Protect
End Sub

Merci de vos réponses, pour le moment, j'ai ça, et cela semble fonctionner pour un template. Néanmoins, je ne sais pas comment maximiser en faisant qu'une macro pour les 15 et pas 15 macros avec le chemin différent.

[Menhir]

Pour info, ceci :

Code :

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

1
2
3
4
5
    Range("AN2").Select
    Dim num As Integer
    num = Range("AN2").Value
    num = num + 1
    Range("AN2").Value = num

Peut se simplifier en :

Code :

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

    Range("AN2").Value = 1 + Range("AN2").Value

Néanmoins, je ne sais pas comment maximiser en faisant qu'une macro pour les 15 et pas 15 macros avec le chemin différent.

Ne sachant pas comment sont organisées tes données, il est difficile de répondre à ça.
Il faudrait que tu présentes une copie d'écran de ton tableau de 15 modèles dont tu parles dans la demande.

[Rafap]

Merci de la simplification !



Voici la capture d'écran. Dans ma tête, quand on clique sur la flèche, ça ouvre le fichier en question (Ils sont tous dans le même dossier, ont juste un nom différent Template1, Template2 etc). Et dès que ça ouvre, ça incrémente le n+1. Cela sauvegarde l'incrémentation (Pour les prochaines fois pas repartir de 0). Et je bloque pour pas que des modifications soient faites par erreur et ça force à faire "Enregistrer Sous". Une idée ? Ou ma façon est la moins pire ? Merci.

[Menhir]

Ton entête "Template", c'est quelle cellule ?

[Philippe Tulliez]

Bonjour,
Je viens seulement de comprendre, du moins je l'espère, que c'était le nom des "Template" qui devait être incrémenté.
Si j'ai bien compris, une solution très simple est de mettre une formule de concaténation avec le mot "Template" suivi du numéro de la ligne - 1
Soit

Code :

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

="Template" & LIGNE()-1

Tu peux aussi faire en sorte que ce soit bien structuré sur 2 ou 3 caractères

Code :

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

="Template" & TEXTE(LIGNE()-1;"000")