Bonjour à Tous,
Avec l'aide d'un post existant sur le forum, j'ai pu créer un Modèle de bon de commande en (.xlt). Ensuite il me suffit d'ouvrir le même fichier en .xls et un numéro de BDC vient s'incrémenter automatiquement (l'intérêt de ce model est qu'il garde en mémoire le dernier numéro utilisé).
Question : Est ce que ce model de BDC (.xlt) doit être dans le même dossier pour que cela foncionne normalement ou pas.... dans l'optique que ce fichier sera sur le reseau à terme et pas sur mon disque.
La macro est la suivante:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveSetting "MyApp", "Startup", "Top", Range("A2")
End Sub
Private Sub Workbook_Open()
If Range("A1").Value <> 1 Then
Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5") + 1
Range("A1").Value = 1
End If
End Sub
Merci pour vos réponses.
Avec l'aide d'un post existant sur le forum, j'ai pu créer un Modèle de bon de commande en (.xlt). Ensuite il me suffit d'ouvrir le même fichier en .xls et un numéro de BDC vient s'incrémenter automatiquement (l'intérêt de ce model est qu'il garde en mémoire le dernier numéro utilisé).
Question : Est ce que ce model de BDC (.xlt) doit être dans le même dossier pour que cela foncionne normalement ou pas.... dans l'optique que ce fichier sera sur le reseau à terme et pas sur mon disque.
La macro est la suivante:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveSetting "MyApp", "Startup", "Top", Range("A2")
End Sub
Private Sub Workbook_Open()
If Range("A1").Value <> 1 Then
Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5") + 1
Range("A1").Value = 1
End If
End Sub
Merci pour vos réponses.