rechercher un fichier et l ouvrir

[sarrsouraa]

bonjour tout le monde
avec excel 2003 pour chercher un fichier on utilise .filesearch
mais j ai p reussi a trouver l'equivalente pr 2007
merciiiiiiiiiiiii

 

[bambi]

Re : rechercher un fichier et l ouvrir

Bonjour sarrsouraa

Pour t'aiguiller un peu 😉
https://www.excel-downloads.com/threads/migration-filesearch-excel-2002-vers-2007.77162/

 

[Bebere]

Re : rechercher un fichier et l ouvrir

bonjour Sarrsouraa,Bambi
à tester

Sub test()
Dim Filename As String

Filename = Application.GetOpenFilename(filefilter:="Fichiers xls (*.xls), *.xls", Title:="Choisir le fichier xls")
If UCase(Filename) = "FAUX" Then
MsgBox "Opération annulée"
Exit Sub
End If

Application.Workbooks.Open Filename

End Sub

à bientôt

 

[sarrsouraa]

Re : rechercher un fichier et l ouvrir

merciiiiiiiiii bcp pr votre aide si je peux vous embeter encore un peu
j'ai besoins de supprimer tout les controles sous l'onglet add-ins
j'ecrit
dim cbar as CommandBarControl
For Each Cbar In Application.CommandBars("Add-Ins")
cbar.delete
Next Cbar
mais ca genère des erreurs
merciiiiiiiide m aider

 

[Bebere]

Re : rechercher un fichier et l ouvrir

Saarsoura
ceci pourra peur être t'aider


'Savez vous comment supprimer toutes les barres de menus
'dans une macro (Aut😵pen) ?
'Deux solutions : S Krecke et L Longre

'Solutions Sébastion Krecke, mpfe
Public NomsToolBars(100) As String
Public IndexControls(100) As Integer

'Celui-ci vire toutes les barres d'outils et la barre de menu à l'ouverture
Sub Aut😵pen()
For i = 0 To 100
NomsToolBars(i) = ""
IndexControls(i) = 0
Next i
J = 0
For i = 1 To Application.CommandBars.Count
If Application.CommandBars(i).Name <> "Worksheet Menu Bar" Then
If (Application.CommandBars(i).Visible = True) Then
J = J + 1
NomsToolBars(J) = Application.CommandBars(i).Name
Application.CommandBars(i).Visible = False
End If
End If
Next i

J = 0
For i = 1 To Application.CommandBars("Worksheet Menu Bar").Controls.Count
If Application.CommandBars("Worksheet Menu Bar"). _
Controls(i).Visible = True Then
J = J + 1
IndexControls(J) = i
Application.CommandBars("Worksheet MenuBar ").Controls(i).Visible = False
End If
Next i
End Sub

'rétablir en partant
Sub Auto_Close()
J = 1
While (NomsToolBars(J) <> "")
Application.CommandBars(NomsToolBars(J)).Visible = True
J = J + 1
Wend
J = 1
While (IndexControls(J) <> 0)
Application.CommandBars("Worksheet MenuBar "). _
Controls(IndexControls(J)).Visible = True
J = J + 1
Wend
End Sub

'Solutions L Longre, mpfe
'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

'Résurrection:
Sub AfficheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub

Public Sub ReiniMenusbarresSysteme()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Dim Cb As CommandBar

For Each Cb In Application.CommandBars
If Cb.BuiltIn = True Then
Cb.Enabled = True
End If
Next

End Sub


à bientôt

 

[sarrsouraa]

Re : rechercher un fichier et l ouvrir

berbere merci pr ton aide mais j'ai juste besoinde supprimer les controles sous add-ins le pb c que j'arrive a supprimer pour "view" par exemple maismais qd je met Application.CommandBars("Add-Ins") il n accepte p

 

[Bebere]

Re : rechercher un fichier et l ouvrir

bonjour Sarrsoura
essaye le code suivant
test sur le nom(name)
'Solutions L Longre, mpfe
'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
If CmdB.Name = "Add-Ins" Then CmdB.Enabled = False
If CmdB.Name = "View" Then CmdB.Enabled = False
Next CmdB
End Sub

'Résurrection:
Sub AfficheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
à bientôt

 

[sarrsouraa]

Re : rechercher un fichier et l ouvrir

merci bcp berbere ca m aide bien
bon weekend