incrémentation automatique

bonjour tout le monde,
quelqu'un aurait-il une idée pour faire une incrémentation automatique de
numéro de dossier.
Pour le moment, j'utilise le système suivant : une relation entre deux
classeurs du type = cellule+1 avec lors de l'enregistrement du fichier une
macro qui par copier-coller vient ''instruire'' la feuille en relation. ça
marche plutôt bien mais comme la feuille en relation ce trouve sur mon
serveur je suis parfois ralentit par mon réseau. Je sais que ma macro par
copier-coller n'est pas du meilleur goût mais à ce moment là je n'ai trouvé
que ça.
je cherche donc le code pour l'incrémentation automatique toujours avec en
relation avec mon classeur en réseau, mais d'une manière plus transparente
qu'une relation de cellule à cellule.
Par la suite je serais aussi assez preneur du code pour enregistrer mon
dossier dans mon classeur en relation toujours d'une manière plus
transparente que celle que j'utilise.
d'avance merci.
Rémi

bonjour Rémi,

voici un exemple extrait du site de Laurent Longre,
http://xcell05.free.fr/pages/prog/hnamespace.htm#APIC
utilisant les noms masqués.

Sub SetHName(Nom As String, Valeur)
Application.ExecuteExcel4Macro _
"SET.NAME(""" & Nom & """," & Valeur & ")"
End Sub

Function GetHName(Nom As String)
GetHName = Application.ExecuteExcel4Macro(Nom)
End Function

Sub DelHName(Nom As String)
Application.ExecuteExcel4Macro "SET.NAME(""" & Nom & """)"
End Sub

Sub auto_open()
Application.EnableCancelKey = xlDisabled
Dim Count
Count = GetHName("TswbkCount")
If IsError(Count) Then
SetHName "TswbkCount", 1
Else
SetHName "TswbkCount", Count + 1
MsgBox Count
End If
End Sub

isabelle

bonjour tout le monde,
quelqu'un aurait-il une idée pour faire une incrémentation automatique de
numéro de dossier.
Pour le moment, j'utilise le système suivant : une relation entre deux
classeurs du type = cellule+1 avec lors de l'enregistrement du fichier
une macro qui par copier-coller vient ''instruire'' la feuille en
relation. ça marche plutôt bien mais comme la feuille en relation ce
trouve sur mon serveur je suis parfois ralentit par mon réseau. Je sais
que ma macro par copier-coller n'est pas du meilleur goût mais à ce
moment là je n'ai trouvé que ça.
je cherche donc le code pour l'incrémentation automatique toujours avec
en relation avec mon classeur en réseau, mais d'une manière plus
transparente qu'une relation de cellule à cellule.
Par la suite je serais aussi assez preneur du code pour enregistrer mon
dossier dans mon classeur en relation toujours d'une manière plus
transparente que celle que j'utilise.
d'avance merci.
Rémi

bonsoir Isabelle,
je te remercie de t'être penché sur mon triste cas, mais tout celà est trop
ardu pour moi, je ne suis encore qu'un petit débutant...
merci quand même
Rémi


"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23vMVJdd2FHA.3228@TK2MSFTNGP15.phx.gbl...

bonjour Rémi,

voici un exemple extrait du site de Laurent Longre,
http://xcell05.free.fr/pages/prog/hnamespace.htm#APIC
utilisant les noms masqués.

Sub SetHName(Nom As String, Valeur)
Application.ExecuteExcel4Macro _
"SET.NAME(""" & Nom & """," & Valeur & ")"
End Sub

Function GetHName(Nom As String)
GetHName = Application.ExecuteExcel4Macro(Nom)
End Function

Sub DelHName(Nom As String)
Application.ExecuteExcel4Macro "SET.NAME(""" & Nom & """)"
End Sub

Sub auto_open()
Application.EnableCancelKey = xlDisabled
Dim Count
Count = GetHName("TswbkCount")
If IsError(Count) Then
SetHName "TswbkCount", 1
Else
SetHName "TswbkCount", Count + 1
MsgBox Count
End If
End Sub

isabelle

bonjour tout le monde,
quelqu'un aurait-il une idée pour faire une incrémentation automatique de
numéro de dossier.
Pour le moment, j'utilise le système suivant : une relation entre deux
classeurs du type = cellule+1 avec lors de l'enregistrement du fichier
une macro qui par copier-coller vient ''instruire'' la feuille en
relation. ça marche plutôt bien mais comme la feuille en relation ce
trouve sur mon serveur je suis parfois ralentit par mon réseau. Je sais
que ma macro par copier-coller n'est pas du meilleur goût mais à ce
moment là je n'ai trouvé que ça.
je cherche donc le code pour l'incrémentation automatique toujours avec
en relation avec mon classeur en réseau, mais d'une manière plus
transparente qu'une relation de cellule à cellule.
Par la suite je serais aussi assez preneur du code pour enregistrer mon
dossier dans mon classeur en relation toujours d'une manière plus
transparente que celle que j'utilise.
d'avance merci.
Rémi