utilisation d'une dim dans plusieurs sub

[PHILIP]

Bonjour à tous,

loin d'être un expert j'ai besoin de votre aide
j'ai ecris plusieurs sub qui se relient l'une à l'autre par :

Application.OnTime Now + TimeValue("00:00:20"), "rappine"

(j'ai plusieurs dossiers qui doivent mettre leur données à jour apres actualisation et je n'ai pas touver d'autres moyen que application on time pour laisser le temps de fairer l'actualisation (actualisation plus mis à jour des données (20 secondes) si vous avez une idée pour ameliorer la chose ... ma question est:
Dans la premiere sub j'ai mis une dim:

Dim nom As String
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")

cette dim ,j'aimerai pouvoir l'utiliser dans toutes les subs qui se suivent (a noter qu'elles se trouvent toutes dans le même module
comment dois je faire, faut il écrire public sub ou private sub ?

Merci pour votre aide

 

[Robert]

Re : utilisation d'une dim dans plusieurs sub

Bonjour Philip, bonjour le forum,

Si tu déclares, tout en haut d'un module, ta variable comme publique (Public) elle sera accessible dans tout le projet VBA :

Public nom As String

Mais pense à l'annuler ou à la redéfinir si nécessaire...

 

[PHILIP]

Re : utilisation d'une dim dans plusieurs sub

Bonjour Robert,

j'ai mis comme conseillé tout en haut du module et en premier hors sub

Public nom As String
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")

il me met erreur de compilation
instruction incorrecte à l'exterieure d'une procedure

Public nom As String
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")

Sub rapport()
        
            Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls")
            ActiveWorkbook.RefreshAll
            Application.OnTime Now + TimeValue("00:00:20"), "Gustave"
End Sub

gustave lancant une autre sub qui elle lance également une autre sub

 

[Minick]

Re : utilisation d'une dim dans plusieurs sub

Salut,

L'affectaion de nom doit ce faire dans le Sub.

Sub rapport()
   nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")
....

ps: coucou Robert

 

[PHILIP]

Re : utilisation d'une dim dans plusieurs sub

Bonjour Minick,

Cela je l'avais fais mais ce que je voudrais c'est que cette dim soit accessible pour plusieurs sub qui s'appellent c'est pourquoi Robert m'a conseillé de la mettre en public

 

[Minick]

Re : utilisation d'une dim dans plusieurs sub

Re,

J'ai juste dit de deplacer l'affectation de 'nom' pas la declaration de 'nom'.

Le Public Nom... reste en dehors du Sub et Nom=... lui vient bien dans un Sub
(celui qui lancera l'enchainement des autres macros)

 

[PHILIP]

Re : utilisation d'une dim dans plusieurs sub

Voila comme je l'ai mise les instruction se suivant, c'est pas juste ?

Public nom As String
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")

Sub rapport()
        
            Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls")
            ActiveWorkbook.RefreshAll
            Application.OnTime Now + TimeValue("00:00:20"), "Gustave"
End Sub

Sub Gustave()
    
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")
            Workbooks.Add
            ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\" & nom), FileFormat:=xlExcel8
            Sheets("Feuil1").Name = "Tagesleitung"
            Sheets("Feuil2").Name = "Ruckstand Znl"
            Sheets("Feuil3").Name = "Ruckstand Zdl"
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = "Status 6"
            Windows("TAGESBERICHT.xls").Activate
            Sheets("Tagesleistung").Select
            ActiveWorkbook.RefreshAll
            Application.Wait Now + TimeValue("00:0:20")
            Windows("TAGESBERICHT.xls").Activate
            Sheets("Tagesleistung").Select
            Cells.Select
            Selection.Copy
            Windows(nom & ".xls").Activate
            Sheets("tagesleitung").Select
            Cells.Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Windows("TAGESBERICHT.xls").Activate
            Cells.Select
            Selection.Copy
            Windows(nom & ".xls").Activate
            Cells.Select
            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Windows("TAGESBERICHT.xls").Activate
            Cells.Select
            Selection.Copy
            Windows(nom & ".xls").Activate
            Range("A1").Select
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            Rows("1:1").RowHeight = 71.25
            Rows("2:2").RowHeight = 6
            Rows("3:3").RowHeight = 22.75
            Rows("4:4").RowHeight = 6
               
        Call Gilles
 End Sub

 

[Minick]

Re : utilisation d'une dim dans plusieurs sub

Public nom As String
            [U][B][COLOR=Red]nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")[/COLOR][/B][/U]

Enleve ce que j'ai mi en rouge/gras/souligné


Edit:

Petite precision, si tu affectes 'nom' dans la procedure 'Gustave' et que tu veux l'utiliser
dans toute les autres procedures, il faut enlever la declaration de 'nom' (Dim nom...)
dans toutes ces procedures.

 

[PHILIP]

Re : utilisation d'une dim dans plusieurs sub

Pourquoi faire simple quand on peut faire compliqué
Je vais continuer à travailler à 14 heures

merci Minik