Paramètres en VBA

Version imprimable

Paramètres en VBA

Bonjour,

Voici un exemple (ma question) avec ces macros (Excel 2007)
J'aimerai récupérer par le pgm appelant la valeur modifiée du paramètre par le pgm appelé
C'est à dire que numbeeps ait la valeur 7 dans Message (msg1)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private numbeeps As Integer Sub Main() numbeeps = 5 Multibeep (numbeeps) Message End Sub Sub Multibeep(numbeeps) For counter = 1 To numbeeps Beep Next counter numbeeps = 7 Message End Sub Sub Message() msg1 = numbeeps msg2 = " = valeur de numbeeps" MsgBox msg1 & " " & msg2 End Sub
Merci

Bonjour ,
Il y a deux façon de voir les chose!

Passer la variable par référence pour modifier la valeur de l'appelant!
Code:

1 2 3 4 5 6 7 Sub Multibeep(Byref numbeeps) For counter = 1 To numbeeps Beep Next counter numbeeps = 7 Message End Sub
Soit pas un faisant une fonction.
Code:

1 2 3 4 5 6 7 function Multibeep(numbeeps) For counter = 1 To numbeeps Beep Next counter Multibeep = 7 Message End function
Code:

1 2 3 4 Sub Main() numbeeps = Multibeep (5) Message End Sub

Paramètres excel vers PWP et retour

Bonjour dysorthographie,

Merci, ça marche avec ByRef MAIS, je voudrais récupérer un paramètre de PWP (appelé) dans EXCEL (appelant) et ...problèmes

J'ai adapté ta solution aux appels macro, mais KO

Pgm appelant (EXCEL)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
'Valcel contient le nom du slide de PWP à afficher
 
Public valcel As String
Public ouvfer As String
 
 
Sub Automate1()
Dim PPTApp As Object
Dim oPPTApp As PowerPoint.Application
valcel = ActiveCell.Value
 
If (ouvfer = Null) Or (ouvfer = "") Then
ouvfer = "FER"
End If
 
If (valcel = Null) Or (valcel = "") Then
  MsgBox "Saisir une zone de recherche"
Else
Set oPPTApp = New PowerPoint.Application
 
With oPPTApp
 .Visible = True
  Set PwpVBA = .Presentations.Open("c:\Users\SERGE\Desktop\VBA\PwpVBA.pptm")
    oPPTApp.Run "'" & PwpVBA.Name & "'!Module1.Visu01", valcel, ouvfer
 
 
End With
Affichage1 valcel, ouvfer
End If
 
 'Et on quitte PowerPoint proprement :
' oPPTApp.Quit
On Error GoTo Suite
Suite:
If (ouvfer = "OUV") Then
oPPTApp.Quit
ouvfer = "FER"
End If
 
End Sub
 
'Affichage des valeurs
Sub Affichage1(ByRef valcel As String, ByRef ouvfer As String)
MsgBox " EXCEL Valcel value = " & valcel & vbCrLf & "ouvfer value = " & ouvfer
 
 
End Sub

PGM appelé dans PWP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Visu01(ByRef valcel As String, ByRef ouvfer As String)
 
' Affichage d'une Diapo avec son nom (demande depuis fichier excel)
 
On Error GoTo Sortieerreur
'MsgBox xvalcel, xouvfer
'If (Xouvfer = "OUV") Then
'oPPTapp.Quit
'MaPresentation.Close
'Xouvfer = "FER"
'End If
 
Dim objSld As Slide
 
  Dim oPPTapp As PowerPoint.Application
  Dim MaPresentation As PowerPoint.Presentation
         Set oPPTapp = CreateObject("PowerPoint.Application")
         oPPTapp.Visible = True
 
        Set MaPresentation = oPPTapp.Presentations.Open(FileName:="C:\Users\SERGE\Desktop\VBA\PwpVBA.pptm")
    'Sélectionne la diapo paramètrée
 
    MaPresentation.Slides(valcel).Select
    ouvfer = "OUV"
    Affichage valcel, ouvfer
 
 Exit Sub
 
Sortieerreur:
' Diapo non trouvée
MaPresentation.Slides("PRESENTATION").Select
msg1 = valcel
msg2 = "Diapo non trouvée"
MsgBox msg1 & " " & msg2
 
ouvfer = "OUV"
' Et on quitte PowerPoint proprement :
'appPowerPoint.Quit
'MaPresentation.Close
 
End Sub
 
 
Sub Affichage(ByRef valcel As String, ByRef ouvfer As String)
MsgBox "POWER POINT Valcel value = " & valcel & vbCrLf & "ouvfer value = " & ouvfer
 
 
End Sub

Affichage dans PWP ouvfer = '"OUV"
Affichage1 dans EXCEL ouvfer = "FER"

Merci
Je débute en VBA, je cherche beaucoup, mais au bout d'un moment.....HELP!

01/05/2017, 18h21
Pierre Fauconnier
Salut.
- Eviter les Exit Sub. VBA permet cette abominable syntaxe, mais ce n'est pas une raison pour l'employer... Voici une construction plus propre qui te permet de n'avoir qu'une sortie de procédure ou de fonction, et qui donc va permettre de sortir proprement;
- Si tu as un code Excel et un code PowerPoint, c'est peine perdue de vouloir utiliser une variable de l'un dans l'autre.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub GestionErreur() On Error GoTo EndHandler ... ... ... EndHandler: If Err <> 0 Then ... ... End If End Sub
01/05/2017, 21h26
Morvandio

Paramètres excel vers PWP et retour

Bonsoir,

Merci, c'est dommage de ne pas pouvoir passer un paramètre et retour entre EXCEL et POWER POINT
Pour le EXIT SUB je suis d'accord
J'avais mis cela pour aller vite et essayer de traiter le Pb (paramètre) en premier
Je vais corriger

Merci encore...je reviendrai
01/05/2017, 21h28
Pierre Fauconnier

Peux-tu expliquer ce que tu cherches à réaliser?
02/05/2017, 07h37
Morvandio

Parametres VBA EXCEL POWER POINT

Bonjour,

Je gère (avec des amis) une association (voyages)
Les adhérents sont sur EXCEL avec toutes leurs coordonnées (N°, Noms, Adresses, etc...)
...et sur POWER POINT avec leurs photos, passeports, et autres...
J'ai "nommé" par procédure VBA chaque slide de PPT avec le n° d'adhérent (200 personnes actuellement)
Je peux "brasser" Excel ou PPT, l'accès au slide depuis excel fonctionne toujours
MAIS
l'application PPT reste toujours ouverte ET la présentation (slide) aussi
je me retrouve avec x PPT ouverts (autant que d'accès de recherche)
DONC
Je voudrais fermer au moins la dernière présentation (ou PPT complet) pour respirer
C'est pour cela que j'essaie de passer un paramètre de PPT à EXCEL (ouvert/fermé)
pour fermer PPT si besoin
Est-ce possible?
Je débute en VBA
Je suis un ancien informaticien (retraité maintenant)
j'ai beaucoup développé su AS400 (écrans, Pgm (GAP), CLP, procédures, etc...)
Je ne suis pas trop dépaysé
Merci