Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

utilisation d'une dim dans plusieurs sub

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion PHILIP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

PHILIP

XLDnaute Occasionnel
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 :
Code: 
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:
Code: 
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
 
Trier par date Trier par votes
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 :
Code: 
Public nom As String
Mais pense à l'annuler ou à la redéfinir si nécessaire...
 
Vote positif 0 Vote négatif
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

Code: 
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
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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)
 
Vote positif 0 Vote négatif
Re : utilisation d'une dim dans plusieurs sub

Voila comme je l'ai mise les instruction se suivant, c'est pas juste ?
Code: 
Public nom As String
            nom = "Vk_Tagesbericht_" & Format(Date, "yyyy_MM_dd")
Code: 
Sub rapport()
        
            Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls")
            ActiveWorkbook.RefreshAll
            Application.OnTime Now + TimeValue("00:00:20"), "Gustave"
End Sub

Code: 
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
 
Vote positif 0 Vote négatif
Re : utilisation d'une dim dans plusieurs sub

Code: 
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.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
711
Phil69970
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
828
AtTheOne
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
762
darkjedi
D
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
686
Phil69970
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
C
  • Question Question
XL 2016 Un chronomètre qui affiche TOUTES les secondes pendant la durée d'un traitement
2
Réponses
20
Affichages
2 K
crocrocro
C
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
927
crocrocro
C
  • Question Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
9 K
laurent950
T
  • Résolu(e)
Microsoft 365 Problèmes liaisons fausses
Réponses
4
Affichages
761
Thomi
T
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
S
  • Question Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
2 K
sofmat
S
M
  • Question Question
XL 2019 VBA gérer le Backcolor d'une zone de texte (activeX) situé dans plusieurs feuilles
Réponses
4
Affichages
940
Marcham
M
G
  • Résolu(e)
XL 2019 [Résolu] VBA inputbox sélection d'une plage de cellulle
Réponses
2
Affichages
1 K
grodep
G
D
  • Question Question
XL 2019 Exécuter une procédure à une heure définie (plannification)
2
Réponses
25
Affichages
4 K
patricktoulon
E
  • Résolu(e)
XL 2013 Rechercher et modifier la valeur d'une cellule dans tout un classeur
2
Réponses
21
Affichages
3 K
EXCJPH
E
  • Question Question
XL 2016 vba Envoi de courriel avec Gmail
Réponses
5
Affichages
6 K
kiki29
S
  • Question Question
Microsoft 365 Ajout d'une en-tete et pied de page via macro
Réponses
4
Affichages
1 K
saggigo
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…