Discussion :

[Invité]

Bonjour,

Je connais depuis longtemps developpez.net, et j'ai toujours trouvé les réponses à mes questions en consultant le forum et/ou les tutoriels au cours des dernières années pour mes codes Python et autres.

Aujourd'hui, novice en VBA, je viens enfin poster sur ce forum car malgré mes maintes recherches, je n'arrive pas à 'visualiser' une issue à ma problématique dans la conception de mes macros Excel.
Je ne m'étais jamais essayée au VBA… jusqu'à il y a quelques jours, un peu forcée : dans le cadre de mon boulot (il y a un début à tout !) d'où ma newbietude

Le contexte :
Dans mon tableau Excel, à chaque fin de ligne, j'ai Macro1 et Macro2 toutes deux associées à leur bouton respectif.

• Macro1 : Ouvre une boite de dialogue permettant à l'utilisateur de sélectionner un fichier de type PDF. La macro mémorise le chemin dudit fichier dans une variable globale.
• Macro2 : En un clic sur le bouton : ouvre le lecteur PDF avec le fichier précédemment sélectionné (chemin mémorisé).

Le but de cette manœuvre est de faire en sorte que le fichier PDF relatif au document mentionné sur la ligne du tableau Excel puisse être ouvert en un clic sans à avoir à parcourir l'explorateur de fichiers (=Macro2).
À "enregistrer" (mémoriser) le chemin d'un nouveau fichier PDF pour une nouvelle ligne du tableau, ou modifier un ancien chemin si le document précédemment mémorisé a été modifié (=Macro1)

Le problème :

	| Col. X   | Col. Y   |
------------------------------|
Ligne3	| [Macro1] | [Macro2] |
Ligne4	| [Macro1] | [Macro2] |
Ligne5	| [Macro1] | [Macro2] |
etc…	| [Macro1] | [Macro2] |

• Ligne3 : Macro2 ouvre bien le fichier pdf précédemment sélectionné avec Macro1 (ou affiche un message d'erreur si le chemin est vide)
• Ligne4 : Si je clique directement sur Macro2, sans avoir sélectionné un fichier avec Macro1, le fichier PDF de la Ligne3 s'affiche à la place du message d'erreur indiquant à l'utilisateur de d'abord sélectionner un document PDF...
  Idem donc pour les lignes suivantes.
  Évidemment si je donne un nouveau chemin de fichier à Macro1 en ligne4 et que je vais ouvrir le fichier PDF défini en ligne1 : le PDF qui s'affiche sera celui enregistré en ligne4…

Et oui, je n'avais pas vu arriver ce problème…

Concrètement, si je devais formuler une question ce serait : est-ce possible d'exécuter une même macro qui donne un résultat différent selon la ligne où elle est exécutée ? Ou, peut-on lier deux macros données à une seule ligne donnée ?
J'ai vu de tout au cours de mes recherches, je commence donc à douter… et n'ayant jamais fait de VBA, je ne connais peut-être pas les bons termes qui me mèneraient à une plausible solution.

Voilà, j'ai essayé d'être la plus claire possible afin que vous compreniez bien la situation…

J'ai acquis par "passion" lors de mes temps libres de +/- bonnes bases en Python (ainsi que des notions en C et PHP), à titre personnel donc.
J'en suis arrivée à me dire que quand on connaît et qu'on aime un langage, on sait "à peu près quoi chercher" et on trouve facilement… mais là en VBA je dois admettre que je ne trouve pas de vrai charme à ce langage et que je suis complètement paumée !


Merci à ceux qui m'ont lu et d'avance merci à ceux qui me répondront.

Cordialement,

_Tifa_

[chrisaccess]

bonsoir,

D'aprés se que je comprends tu souhaite utiliser la même macro quelque soit la ligne sur la même colonne.

Si c'est la question la réponse est oui, il te faut le faire avec un select case ou ta variable sera le numéro de la ligne "row" que tu as sélectionnée.

Montre ton code pour qu'on puisse avancer

[Invité]

bonsoir,
D'aprés se que je comprends tu souhaite utiliser la même macro quelque soit la ligne sur la même colonne.

Oui c'est exactement ça !
Je vais me renseigner sur comment utiliser select case et row

Et pour le code (que je n'avais pas avec moi hier soir), le voici :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Fichier As Variant
 
Sub BoiteDial()
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    If Fichier = False Then Exit Sub
    'MsgBox "Debug : chemin du fichier = " + Fichier
End Sub
 
Sub OuvrirFichier()
    If Fichier = Nul Then
        MsgBox "Fichier introuvable, enregistrez-le d'abord"
        Exit Sub
    End If
    ThisWorkbook.FollowHyperlink (Fichier)
End Sub

Merci beaucoup de l'aide

Cordialement,
_Tifa_

[chrisaccess]

Pour faire simple je ferai un seul bouton à côté du tableau et je demanderai à l'utilisateur de se placer sur la ligne du fichier à ouvrir.

J'ai construit cette fonction que j'utilise régulièrement à adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function selectline(nom As String)
 
questions = ""
recherche = ""
recherchlign = ""
 
questions = MsgBox("Avez vous sélectionner une cases de la ligne à modifier", vbYesNo, "SELECTION LIGNE")
If questions = 6 Then
    numero = ""
    selectline = ActiveCell.Row
 
End If
 
If questions = 7 Then
 
    recherche = MsgBox("Voulez vous recherchez par le " & nom, vbYesNo, "SELECTION LIGNE")
    If recherche = 6 Then
        recherchlign = InputBox("Veuillez saisir le nom !", "SELECTION LIGNE")
        ActiveSheet.Range("A5").AutoFilter Field:=1
        ActiveSheet.Range("A5").AutoFilter Field:=1, Criteria1:=recherchlign
        MsgBox "Veuillez sélectionner une case de la ligne concernée par la modification" & Chr(10) & "et cliquez à nouveau sur le bouton RELANCE ", vbInformation, "RELANCE"
    End If
    If recherche = 7 Then
        MsgBox "Veuillez sélectionner une case de la ligne concernée par la modification" & Chr(10) & "et cliquez à nouveau sur le bouton RELANCE", vbInformation, "RELANCE"
        End
    End If
End If
 
End Function

Je considère que le nom de ton fichier est en case ligne .. colonne x et que fichier ne dispose que du parcours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
dim fichier as string
dim num as integer
 
Sub BoiteDial()
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    If Fichier = False Then Exit Sub
    'MsgBox "Debug : chemin du fichier = " + Fichier
End Sub
 
Sub OuvrirFichier()
    If Fichier = Nul Then
        MsgBox "Fichier introuvable, enregistrez-le d'abord"
        Exit Sub
    End If
num = selectline("nom du fichier")
 
ThisWorkbook.FollowHyperlink (Fichier & "\" & sheets("1").range("x" & num).value)
 
End Sub

Voilà un début pour essayer

[Invité]

Bonsoir,

Merci pour ta réponse.
J'ai un peu travaillé dessus aujourd'hui et j'ai du coup essayé d'adapter la fonction ainsi que la méthode appliquée, mais je n'ai pas réussi à avoir un résultat concluant (autant dire pas de résultat du tout; J'ai pas réellement "eu le temps de prendre le temps" pour comprendre la fonction selectline()... ).
J'ai néanmoins essayé de parvenir à mes fins par d'autres moyens (mais rien de satisfaisant) tout en essayant de bien comprendre le fonctionnement de VBA afin de mieux appréhender le code :/

Cela étant dit, j'ai constaté que le contenu de ma variable Fichier – contenant le chemin du Fichier sélectionné via Macro1 – est vide à la réouverture de mon fichier Excel.
J'ai donc cherché de ce coté pour réussir à faire en sorte que le contenu de la variable soit "rechargé" dès l'ouverture du tableau.
Pas encore testé. Donc si vous avez d'autres suggestions, je suis évidemment preneuse.

Cordialement,

_Tifa_

[Invité]

Bonjour,

Alors j'ai avancé dans mon code.

J'ai un peu grugé, j'ai laissé tomber les objets images (auxquels j'associais mes macros), et fait en sorte que les cellules des colonnes concernées par les macros soient cliquables et que la macro s'exécute.

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Fichier As Variant
'''Méthode pour cellules cliquables - colonnes L et M :'''
Sub Worksheet_SelectionChange(ByVal Target As Range)
    ''' MACRO1 : Pour choisir le fichier : '''
    If Target.Column = 12 Then
        Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
        If Fichier = False Then Exit Sub
        MsgBox "Valeur Fichier = " + Fichier
        ActiveWorkbook.Names.Add Name:="MaValeur", RefersTo:=Fichier '"=Fichier"""
    End If
    ''' MACRO2 : Pour ouvrir le fichier '''
    If Target.Column = 13 Then 
        Fichier = [MaValeur]
        If Fichier = Nul Then
            MsgBox "Fichier introuvable, enregistrez-le d'abord"
            Exit Sub
        End If
        ThisWorkbook.FollowHyperlink (Fichier)
    End If
End Sub
'''Fin de méthode'''

Maintenant, il ne "me reste plus qu'à" indiquer au Macro1 et Macro2 qu'elles sont "liées" entre elles en fonction de leur n° de ligne.