Recherche
Résolu
domicol
Messages postés
54
Statut
Membre
-
domicol Messages postés 54 Statut Membre -
domicol Messages postés 54 Statut Membre -
bonsoir la planète
j enregistre la page excel sous le nom de la cellule C6
je voudrai si je tape en C6 un mot qu'il aille regarder s il y a deja un fichier excel enregistre sous le meme nom et si oui me le coller dans la feuille bilan sur le fichier excel test et si non ne rein faire je rempli alors la page
voici mon fichier
https://www.cjoint.com/c/JAErM7lTOwi
bonne soirée
paie et bonheur à vous et vos proches
j enregistre la page excel sous le nom de la cellule C6
je voudrai si je tape en C6 un mot qu'il aille regarder s il y a deja un fichier excel enregistre sous le meme nom et si oui me le coller dans la feuille bilan sur le fichier excel test et si non ne rein faire je rempli alors la page
voici mon fichier
https://www.cjoint.com/c/JAErM7lTOwi
bonne soirée
paie et bonheur à vous et vos proches
2 réponses
Bonjour,
je l'avais déjà fait sur ton précédent post au cas où!
Mettre ceci dans le module de ta feuille bilan. Se déclenche au double clic sur la cellule C6. Tu auras donc tes 2 classeurs ouverts, a toi de procéder ensuite:
je l'avais déjà fait sur ton précédent post au cas où!
Mettre ceci dans le module de ta feuille bilan. Se déclenche au double clic sur la cellule C6. Tu auras donc tes 2 classeurs ouverts, a toi de procéder ensuite:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MonFichier As String
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
MonFichier = ThisWorkbook.Path & "\" & Range("C6").Value & ".xlsx"
If FichierExiste(MonFichier) = True Then
' MsgBox "Le fichier existe on ouvre"
Application.Workbooks.Open MonFichier
Else
MsgBox "Le fichier " & Range("C6").Value & " n'existe pas...", vbCritical, "Ouverture fichier"
End If
End If
End Sub
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( https://excel-malin.com )
If Len(Dir(MonFichier)) > 0 Then
FichierExiste = True
Else
FichierExiste = False
End If
End Function
