Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Désolé j'ai du faire une fausse manip ; ma réponse a été tronquée ;-((
La voici en entier :
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Cela affiche le dialogue d'ouverture, et permet à l'utilisateur de
choisir un fichier, sans que celuii-ci soit effectivement ouvert.
C'est la suite du traitement qui ouvre le fichier après une éventuelle
vérification : si l'utilisateur est censé ouvrir un fichier nommé
VentesXXX et choisit autre chose, tu peux afficher un message et
réafficher le dialogue d'ouverture.
Voici un exemple de code
Sub Ouvre()
Dim DocChoisi
DocChoisi = Application.GetOpenFilename
If DocChoisi = False Then
' Traitement si le bouton Annuler a été choisi
Else
' Vérification éventuelle que le fichier choisi est
conforme à ce qui est attendu
'
' Ouverture
Workbooks.Open DocChoisi
End If
End Sub
Désolé j'ai du faire une fausse manip ; ma réponse a été tronquée ;-((
La voici en entier :
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Cela affiche le dialogue d'ouverture, et permet à l'utilisateur de
choisir un fichier, sans que celuii-ci soit effectivement ouvert.
C'est la suite du traitement qui ouvre le fichier après une éventuelle
vérification : si l'utilisateur est censé ouvrir un fichier nommé
VentesXXX et choisit autre chose, tu peux afficher un message et
réafficher le dialogue d'ouverture.
Voici un exemple de code
Sub Ouvre()
Dim DocChoisi
DocChoisi = Application.GetOpenFilename
If DocChoisi = False Then
' Traitement si le bouton Annuler a été choisi
Else
' Vérification éventuelle que le fichier choisi est
conforme à ce qui est attendu
'
' Ouverture
Workbooks.Open DocChoisi
End If
End Sub
Désolé j'ai du faire une fausse manip ; ma réponse a été tronquée ;-((
La voici en entier :
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Cela affiche le dialogue d'ouverture, et permet à l'utilisateur de
choisir un fichier, sans que celuii-ci soit effectivement ouvert.
C'est la suite du traitement qui ouvre le fichier après une éventuelle
vérification : si l'utilisateur est censé ouvrir un fichier nommé
VentesXXX et choisit autre chose, tu peux afficher un message et
réafficher le dialogue d'ouverture.
Voici un exemple de code
Sub Ouvre()
Dim DocChoisi
DocChoisi = Application.GetOpenFilename
If DocChoisi = False Then
' Traitement si le bouton Annuler a été choisi
Else
' Vérification éventuelle que le fichier choisi est
conforme à ce qui est attendu
'
' Ouverture
Workbooks.Open DocChoisi
End If
End Sub
oui, ta bréve et incompléte réponse m'avait étonné :o)
oui, ta bréve et incompléte réponse m'avait étonné :o)
oui, ta bréve et incompléte réponse m'avait étonné :o)
En effet cela me lance le requester mais !!! soudain rien
l'aide sur la fonction dit
Affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé
par l'utilisateur sans réellement ouvrir les fichiers.
je cherche à ouvrir le fichier pour lui appliquer un traitement
Je te remercie de l'aide mais cela ne répond complètement à ma question
Merci
denisBonjour Denis,
Utilise pour cela Application.GetOpenFilename
En effet cela me lance le requester mais !!! soudain rien
l'aide sur la fonction dit
Affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé
par l'utilisateur sans réellement ouvrir les fichiers.
je cherche à ouvrir le fichier pour lui appliquer un traitement
Je te remercie de l'aide mais cela ne répond complètement à ma question
Merci
denis
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
En effet cela me lance le requester mais !!! soudain rien
l'aide sur la fonction dit
Affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé
par l'utilisateur sans réellement ouvrir les fichiers.
je cherche à ouvrir le fichier pour lui appliquer un traitement
Je te remercie de l'aide mais cela ne répond complètement à ma question
Merci
denisBonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" <MichelSupp@gaboly.com> a écrit dans le message de
news:%23CPCzZX8EHA.1296@TK2MSFTNGP10.phx.gbl...
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Bonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
DenisBonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
Denis
Bonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" <MichelSupp@gaboly.com> a écrit dans le message de
news:%23CPCzZX8EHA.1296@TK2MSFTNGP10.phx.gbl...
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
DenisBonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
Re,
Quand j'ai évoqué Google, il s'agissait de retrouver des fils de
discussion de ce forum sur un sujet donné. Ce n'est pas Google ou ce
genre de forum, mais les archives de CE forum via Google.
Je te conseille vivement d'essayer, tu y trouveras vraiment beaucoup de
choses.
Quand à l'emploi de CreateObject("Shell.Application"), c'est moins
universel que GetOpenFileName, car limité aux versions Windows :
pourquoi utiliser un outil spécifique à une plate-forme quand des outils
plus généraux existent ?Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et
leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
DenisBonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour
proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
--
Cordialement,
Michel Gaboly
www.gaboly.com
Re,
Quand j'ai évoqué Google, il s'agissait de retrouver des fils de
discussion de ce forum sur un sujet donné. Ce n'est pas Google ou ce
genre de forum, mais les archives de CE forum via Google.
Je te conseille vivement d'essayer, tu y trouveras vraiment beaucoup de
choses.
Quand à l'emploi de CreateObject("Shell.Application"), c'est moins
universel que GetOpenFileName, car limité aux versions Windows :
pourquoi utiliser un outil spécifique à une plate-forme quand des outils
plus généraux existent ?
Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et
leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
Denis
Bonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour
proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" <MichelSupp@gaboly.com> a écrit dans le message de
news:%23CPCzZX8EHA.1296@TK2MSFTNGP10.phx.gbl...
Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
--
Cordialement,
Michel Gaboly
www.gaboly.com
Re,
Quand j'ai évoqué Google, il s'agissait de retrouver des fils de
discussion de ce forum sur un sujet donné. Ce n'est pas Google ou ce
genre de forum, mais les archives de CE forum via Google.
Je te conseille vivement d'essayer, tu y trouveras vraiment beaucoup de
choses.
Quand à l'emploi de CreateObject("Shell.Application"), c'est moins
universel que GetOpenFileName, car limité aux versions Windows :
pourquoi utiliser un outil spécifique à une plate-forme quand des outils
plus généraux existent ?Encore merci tout cela fonctionne à mon gré.
Et c'est aussi pour cela que ce genre de groupe de discussion m'est plus
profitable que google.
Trop d'info tue l'info.
Toutefois ne jetons pas la pierre et ne tombons pas de l'excès inverse.
Trop utiliser les newsgroups lasse les MVP à réecrire ce qui l' a été.
Trop utiliser les moteurs de recherches tue les newsgroups.
Allez assez philosophé. Encore merci de toutes les bonnes volontés qui
dépannent de modestes utilisateurs par leur savoir, leur diponibilté et
leur
gentillesse.
Et sans vouloir abuser, je continuerai à vous solliciter ô MVP.
DenisBonjour
Essaye ceci
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogOpen).Show ("c:zaza.xls") 'pour
proposer l
'ouverture de zaza.xls
End Sub
ou encore dans un module
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
ledos = Chemin & ""
Msgbox ledos
End Function
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
LeDossier = ThisWorkbook.Path
CheminEtFichier = ChoixDossier(LeDossier)
End Sub
salutations
Gilbert
"Michel Gaboly" a écrit dans le message de
news:%Bonjour Denis,
Utilise pour cela Application.GetOpenFilename
--
Cordialement,
Michel Gaboly
www.gaboly.com