Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Bonjour/ Bonsoir !
Quelqu'un pourrait-il m'aider pour trouver le code VBA qui me permettrait d'ouvrir l'un ou l'autre de deux classeurs selon un critère, à partir d'un bouton
Exemple :
Critères A ou B
Si "A" ouvrir Classeur-A
Si "B" ouvrir Classeur-B
Bonjour A-Jelil,
Que sont vos critères A et B ? Des contenus de cellules, des résultats de calculs, des variables VBA ???
Pour l'algo on peut faire au plus simple :
VB:
Sub Ouvrir()
Choix = xxxxxxx ' xxxxxxx à définir'
If Choix = Critère1 Then
Workbooks.Open Filename:=Nom_Fichier1 ' Chemin fichiers à définir'
Else
Workbooks.Open Filename:=Nom_Fichier2
End If
End Sub
Option Explicit
Sub Ouvrir()
On Error GoTo ErrX
Dim chn$: chn = InputBox("saisir A ou B :", "Choix du critère")
If chn <> "" Then Workbooks.Open "C:\Users\A-Jelil\Documents\" _
& IIf(chn = "A", "Classeur-A", "Classeur-B") & ".xlsm"
Exit Sub
ErrX:
MsgBox "Critère ou nom de classeur non valide." & vbLf _
& "Vérifier aussi le chemin du classeur.", 48, "Erreur"
End Sub
Une autre solution avec les 3 fichiers joints, à télécharger dans le même dossier (le bureau) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
With [D5] 'à adapter
If Target.Address = .Address Then If .Value <> "" Then Workbooks.Open ThisWorkbook.Path & "\" & .Value & ".xlsx"
End With
End Sub
- 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