Bonjour le forum,
J’ai un petit souci d’ouverture de fichier dont le contenu de la cellule G12 ou la cellule D15 sont dans le nom du ficher sauvegardé dans un autre dossier.
Pour être plus claire, ci-joint mon fichier avec les 2 Command Button de recherche à côté des cellules G12 et D15 et voici un bout de code bidouillé à partir de plusieurs réponses sur ce forum mais il ne fonctionne absolument pas!
Quelqu’un pourrait-il m’aider svp.
Private Sub CommandButton1_Click() pour la recherche par rapport au nom du client
Dim chemin As String
chemin = ThisWorkbook.Path & "\"
End
Workbooks.Open Filename:=chemin & "Offres xls\" & "[D15.Value]*" & "_" & "*" & "_" & "*" & ".xls"
End Sub
Private Sub CommandButton2_Click() pour la recherche par rapport au n° de l’offre
Dim chemin As String
chemin = ThisWorkbook.Path & "\"
End
Workbooks.Open Filename:=chemin & "Offres xls\" & "*" & "_" & "*" & "_" & [G12].Value & ".xls"
End Sub
Merci d’avance et excellente journée à tous,
Christine
J’ai un petit souci d’ouverture de fichier dont le contenu de la cellule G12 ou la cellule D15 sont dans le nom du ficher sauvegardé dans un autre dossier.
Pour être plus claire, ci-joint mon fichier avec les 2 Command Button de recherche à côté des cellules G12 et D15 et voici un bout de code bidouillé à partir de plusieurs réponses sur ce forum mais il ne fonctionne absolument pas!
Quelqu’un pourrait-il m’aider svp.
Private Sub CommandButton1_Click() pour la recherche par rapport au nom du client
Dim chemin As String
chemin = ThisWorkbook.Path & "\"
End
Workbooks.Open Filename:=chemin & "Offres xls\" & "[D15.Value]*" & "_" & "*" & "_" & "*" & ".xls"
End Sub
Private Sub CommandButton2_Click() pour la recherche par rapport au n° de l’offre
Dim chemin As String
chemin = ThisWorkbook.Path & "\"
End
Workbooks.Open Filename:=chemin & "Offres xls\" & "*" & "_" & "*" & "_" & [G12].Value & ".xls"
End Sub
Merci d’avance et excellente journée à tous,
Christine