J'utilise excel 2007
Je souhaiterais par l'action d'un bouton, ouvir un classeur dans le
m=EAme r=E9pertoire que celui ouvert.
J'ai un d=E9but de code, mais:
1) il n'ouvre pas le r=E9pertoire ou ce trouve le classeur ouvert
2) lorsque je fais la recherche du fichier et que je clique sur
"Ouvrir", il ne s'ouvre pas.
Voici ma bribe de code
'Application.FileDialog(msoFileDialogOpen).Show
Pourriez-vous m'=E9clairer.J'ai chercher sur la toile et dans le groupe
mais en vain
Cordialement
Crole
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Leonello
Bonsoir, Un truc du genre de la macro ci-dessous à adapter........
Sub OuvrirFichier() ' Dim Filt As String ' Liste des filtres de fichier possibles Dim FilterIndex As Integer ' Numéro de filtre par défaut Dim fichier As Variant ' nom du fichier Dim Titre As String ' Titre des msgbox ' ' Sélectionner le répertoire de travail ChDir ("E:ExcelVBA") ' ' Paramètrage de la boite de dialogue " Ouvrir fichier " ' ------------------------------------------------------ ' Choisir les filtres Filt = "Fichiers Excel (*.xls),*.xls," & _ "Fichiers Acrobat (*.pdf),*.pdf," & _ "Fichiers Texte (*.txt),*.txt," & _ "Fichier Lotus (*.prn),*.prn," & _ "Fichier CSV (*.csv),*.csv," & _ "Fichier ASCII (*.asc),*.asc," & _ "Fichier xml (*.xml),*.xml," & _ "Tous les Fichiers (*.*),*.*"
' Selection par défaut de 1=*.xls 2=*.pdf etc.. FilterIndex = 1
' Titre de la boite de dialogue Titre = "Selectionner un fichier"
' Acquérir un nom de fichier xls fichier = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Titre) ' ' Sortie si aucun fichier selectionné If fichier = False Then MsgBox "Vous n'avez pas selectionné de fichier." Exit Sub End If ' ' Ouverture du fichier excel Workbooks.Open fichier
' End Sub
--
Amicalement, Leo
a écrit dans le message de news:
Re bonsoir le groupe
J'utilise excel 2007 Je souhaiterais par l'action d'un bouton, ouvir un classeur dans le même répertoire que celui ouvert. J'ai un début de code, mais: 1) il n'ouvre pas le répertoire ou ce trouve le classeur ouvert 2) lorsque je fais la recherche du fichier et que je clique sur "Ouvrir", il ne s'ouvre pas.
Voici ma bribe de code 'Application.FileDialog(msoFileDialogOpen).Show Pourriez-vous m'éclairer.J'ai chercher sur la toile et dans le groupe mais en vain Cordialement Crole
Bonsoir,
Un truc du genre de la macro ci-dessous à adapter........
Sub OuvrirFichier()
'
Dim Filt As String ' Liste des filtres de fichier possibles
Dim FilterIndex As Integer ' Numéro de filtre par défaut
Dim fichier As Variant ' nom du fichier
Dim Titre As String ' Titre des msgbox
'
' Sélectionner le répertoire de travail
ChDir ("E:ExcelVBA")
'
' Paramètrage de la boite de dialogue " Ouvrir fichier "
' ------------------------------------------------------
' Choisir les filtres
Filt = "Fichiers Excel (*.xls),*.xls," & _
"Fichiers Acrobat (*.pdf),*.pdf," & _
"Fichiers Texte (*.txt),*.txt," & _
"Fichier Lotus (*.prn),*.prn," & _
"Fichier CSV (*.csv),*.csv," & _
"Fichier ASCII (*.asc),*.asc," & _
"Fichier xml (*.xml),*.xml," & _
"Tous les Fichiers (*.*),*.*"
' Selection par défaut de 1=*.xls 2=*.pdf etc..
FilterIndex = 1
' Titre de la boite de dialogue
Titre = "Selectionner un fichier"
' Acquérir un nom de fichier xls
fichier = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Titre)
'
' Sortie si aucun fichier selectionné
If fichier = False Then
MsgBox "Vous n'avez pas selectionné de fichier."
Exit Sub
End If
'
' Ouverture du fichier excel
Workbooks.Open fichier
'
End Sub
--
Amicalement,
Leo
<crolegoogle@skynet.be> a écrit dans le message de news:
f7037f94-91ea-4a81-9293-2cfd89ea5f2f@c19g2000prf.googlegroups.com...
Re bonsoir le groupe
J'utilise excel 2007
Je souhaiterais par l'action d'un bouton, ouvir un classeur dans le
même répertoire que celui ouvert.
J'ai un début de code, mais:
1) il n'ouvre pas le répertoire ou ce trouve le classeur ouvert
2) lorsque je fais la recherche du fichier et que je clique sur
"Ouvrir", il ne s'ouvre pas.
Voici ma bribe de code
'Application.FileDialog(msoFileDialogOpen).Show
Pourriez-vous m'éclairer.J'ai chercher sur la toile et dans le groupe
mais en vain
Cordialement
Crole
Bonsoir, Un truc du genre de la macro ci-dessous à adapter........
Sub OuvrirFichier() ' Dim Filt As String ' Liste des filtres de fichier possibles Dim FilterIndex As Integer ' Numéro de filtre par défaut Dim fichier As Variant ' nom du fichier Dim Titre As String ' Titre des msgbox ' ' Sélectionner le répertoire de travail ChDir ("E:ExcelVBA") ' ' Paramètrage de la boite de dialogue " Ouvrir fichier " ' ------------------------------------------------------ ' Choisir les filtres Filt = "Fichiers Excel (*.xls),*.xls," & _ "Fichiers Acrobat (*.pdf),*.pdf," & _ "Fichiers Texte (*.txt),*.txt," & _ "Fichier Lotus (*.prn),*.prn," & _ "Fichier CSV (*.csv),*.csv," & _ "Fichier ASCII (*.asc),*.asc," & _ "Fichier xml (*.xml),*.xml," & _ "Tous les Fichiers (*.*),*.*"
' Selection par défaut de 1=*.xls 2=*.pdf etc.. FilterIndex = 1
' Titre de la boite de dialogue Titre = "Selectionner un fichier"
' Acquérir un nom de fichier xls fichier = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Titre) ' ' Sortie si aucun fichier selectionné If fichier = False Then MsgBox "Vous n'avez pas selectionné de fichier." Exit Sub End If ' ' Ouverture du fichier excel Workbooks.Open fichier
' End Sub
--
Amicalement, Leo
a écrit dans le message de news:
Re bonsoir le groupe
J'utilise excel 2007 Je souhaiterais par l'action d'un bouton, ouvir un classeur dans le même répertoire que celui ouvert. J'ai un début de code, mais: 1) il n'ouvre pas le répertoire ou ce trouve le classeur ouvert 2) lorsque je fais la recherche du fichier et que je clique sur "Ouvrir", il ne s'ouvre pas.
Voici ma bribe de code 'Application.FileDialog(msoFileDialogOpen).Show Pourriez-vous m'éclairer.J'ai chercher sur la toile et dans le groupe mais en vain Cordialement Crole
crolegoogle
Merci Leo je met cela en musique Cordialement Crole
Merci Leo je met cela en musique
Cordialement
Crole
Merci Leo je met cela en musique Cordialement Crole
crolegoogle
Bonsoir le groupe Un grand merci Leo
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais Le hic, lorsque je sélectionne le fichier et que je clique sur "Ouvrir", rien ne se passe. J'utilise Excel 2007 et je ne sais pas si cela à un rapport.
Merci de m'éclairer Cordialement Crole
Bonsoir le groupe
Un grand merci Leo
J'ai mis cela en musique et cela correspond exactement à ce que je
recherchais
Le hic, lorsque je sélectionne le fichier et que je clique sur
"Ouvrir", rien ne se passe.
J'utilise Excel 2007 et je ne sais pas si cela à un rapport.
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais Le hic, lorsque je sélectionne le fichier et que je clique sur "Ouvrir", rien ne se passe. J'utilise Excel 2007 et je ne sais pas si cela à un rapport.
Merci de m'éclairer Cordialement Crole
Modeste
Bonsour® avec ferveur ;o))) vous nous disiez :
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais
;o))) une autre solution : http://excelabo.net/moteurs/compteclic.php?nom=gd-instruments
-- -- @+ ;o)))
Bonsour® crolegoogle@skynet.be avec ferveur ;o))) vous nous disiez :
J'ai mis cela en musique et cela correspond exactement à ce que je
recherchais
;o)))
une autre solution :
http://excelabo.net/moteurs/compteclic.php?nom=gd-instruments
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais
;o))) une autre solution : http://excelabo.net/moteurs/compteclic.php?nom=gd-instruments
-- -- @+ ;o)))
Leonello
Bonsoir,
En sélectionnant un fichier Excel sur Excel 2007, cela fonctionne chez moi !!!
--
Amicalement, Leo
a écrit dans le message de news:
Bonsoir le groupe Un grand merci Leo
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais Le hic, lorsque je sélectionne le fichier et que je clique sur "Ouvrir", rien ne se passe. J'utilise Excel 2007 et je ne sais pas si cela à un rapport.
Merci de m'éclairer Cordialement Crole
Bonsoir,
En sélectionnant un fichier Excel sur Excel 2007, cela fonctionne chez moi
!!!
--
Amicalement,
Leo
<crolegoogle@skynet.be> a écrit dans le message de news:
631de734-f4c5-40de-a7f8-e19c0455724f@m3g2000hsc.googlegroups.com...
Bonsoir le groupe
Un grand merci Leo
J'ai mis cela en musique et cela correspond exactement à ce que je
recherchais
Le hic, lorsque je sélectionne le fichier et que je clique sur
"Ouvrir", rien ne se passe.
J'utilise Excel 2007 et je ne sais pas si cela à un rapport.
En sélectionnant un fichier Excel sur Excel 2007, cela fonctionne chez moi !!!
--
Amicalement, Leo
a écrit dans le message de news:
Bonsoir le groupe Un grand merci Leo
J'ai mis cela en musique et cela correspond exactement à ce que je recherchais Le hic, lorsque je sélectionne le fichier et que je clique sur "Ouvrir", rien ne se passe. J'utilise Excel 2007 et je ne sais pas si cela à un rapport.