J'au créé une macro pour mettre en page un diaporama. Je voudrais afficher
une boite de dialogue pour pouvoir sélectionner le chemin du répertoire des
images. Il s'agit d'une boite de dialogue du type ouvrir de word, mais la
boite ouvrir de word ne convient pas, on ne peut ouvrir que des fichiers
word. Je cherche l'équivalent de la boite "Getopen filename" d'Excel qui
ouvre une boite "ouvrir" et récupère uniquement le chemin d'accès des
fichiers.
En principe, Frédéric s'intéresse plus à Excel, mais je suppose que certaines sont probablement directement utilisables dans Word.
Tu peux soit, faire afficher les macros une par une, soit, télécharger le classeur au complet. Ensuite, tu peux exporter les modules, et les importer dans Word.
Bonjour,
Je cherche l'équivalent de la boite "Getopen filename" d'Excel qui
ouvre une boite "ouvrir" et récupère uniquement le chemin d'accès
des
fichiers.
Il n'y a pas d'équivalent direct dans VBA pour Word, (à moins que ce
ne soit une nouveauté de Word 2003).
En principe, Frédéric s'intéresse plus à Excel, mais je suppose que
certaines sont probablement directement utilisables dans Word.
Tu peux soit, faire afficher les macros une par une, soit, télécharger
le classeur au complet. Ensuite, tu peux exporter les modules, et les
importer dans Word.
En principe, Frédéric s'intéresse plus à Excel, mais je suppose que certaines sont probablement directement utilisables dans Word.
Tu peux soit, faire afficher les macros une par une, soit, télécharger le classeur au complet. Ensuite, tu peux exporter les modules, et les importer dans Word.
Anacoluthe
Bonjour !
'Michael' nous a écrit ...
J'au créé une macro pour mettre en page un diaporama. Je voudrais afficher une boite de dialogue pour pouvoir sélectionner le chemin du répertoire des images. Il s'agit d'une boite de dialogue du type ouvrir de word, mais la boite ouvrir de word ne convient pas, on ne peut ouvrir que des fichiers word. Je cherche l'équivalent de la boite "Getopen filename" d'Excel qui ouvre une boite "ouvrir" et récupère uniquement le chemin d'accès des fichiers.
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une série de boîtes de dialogues adaptées, dont on peut même personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String ' renvoie le chemin d'un répertoire sélectionné With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choisir le répertoire de travail" .Show UnRepertoireChoisi = .SelectedItems(1) End With End Function
Public Sub Test() MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi() End Sub
Anacoluthe « Imaginer cest choisir. » - Jean GIONO
Bonjour !
'Michael' nous a écrit ...
J'au créé une macro pour mettre en page un diaporama. Je voudrais afficher
une boite de dialogue pour pouvoir sélectionner le chemin du répertoire des
images. Il s'agit d'une boite de dialogue du type ouvrir de word, mais la
boite ouvrir de word ne convient pas, on ne peut ouvrir que des fichiers
word. Je cherche l'équivalent de la boite "Getopen filename" d'Excel qui
ouvre une boite "ouvrir" et récupère uniquement le chemin d'accès des
fichiers.
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une
série de boîtes de dialogues adaptées, dont on peut même
personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String
' renvoie le chemin d'un répertoire sélectionné
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choisir le répertoire de travail"
.Show
UnRepertoireChoisi = .SelectedItems(1)
End With
End Function
Public Sub Test()
MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi()
End Sub
Anacoluthe
« Imaginer cest choisir. »
- Jean GIONO
J'au créé une macro pour mettre en page un diaporama. Je voudrais afficher une boite de dialogue pour pouvoir sélectionner le chemin du répertoire des images. Il s'agit d'une boite de dialogue du type ouvrir de word, mais la boite ouvrir de word ne convient pas, on ne peut ouvrir que des fichiers word. Je cherche l'équivalent de la boite "Getopen filename" d'Excel qui ouvre une boite "ouvrir" et récupère uniquement le chemin d'accès des fichiers.
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une série de boîtes de dialogues adaptées, dont on peut même personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String ' renvoie le chemin d'un répertoire sélectionné With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choisir le répertoire de travail" .Show UnRepertoireChoisi = .SelectedItems(1) End With End Function
Public Sub Test() MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi() End Sub
Anacoluthe « Imaginer cest choisir. » - Jean GIONO
Gloops
B'jour,
Ah, ben voilà qui va intéresser Yves Crespin, qui posait la question il y a trois semaines.
Enfin à moins qu'il utilise Word 2000, il ne me semble pas qu'il ait précisé. _________________________________________ Anacoluthe a écrit, le 24/05/2004 14:23 :
Bonjour !
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une série de boîtes de dialogues adaptées, dont on peut même personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String ' renvoie le chemin d'un répertoire sélectionné With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choisir le répertoire de travail" .Show UnRepertoireChoisi = .SelectedItems(1) End With End Function
Public Sub Test() MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi() End Sub
Anacoluthe « Imaginer cest choisir. » - Jean GIONO
B'jour,
Ah, ben voilà qui va intéresser Yves Crespin, qui posait la question il
y a trois semaines.
Enfin à moins qu'il utilise Word 2000, il ne me semble pas qu'il ait
précisé.
_________________________________________
Anacoluthe a écrit, le 24/05/2004 14:23 :
Bonjour !
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une
série de boîtes de dialogues adaptées, dont on peut même
personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String
' renvoie le chemin d'un répertoire sélectionné
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choisir le répertoire de travail"
.Show
UnRepertoireChoisi = .SelectedItems(1)
End With
End Function
Public Sub Test()
MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi()
End Sub
Anacoluthe
« Imaginer cest choisir. »
- Jean GIONO
Ah, ben voilà qui va intéresser Yves Crespin, qui posait la question il y a trois semaines.
Enfin à moins qu'il utilise Word 2000, il ne me semble pas qu'il ait précisé. _________________________________________ Anacoluthe a écrit, le 24/05/2004 14:23 :
Bonjour !
Pour info le VBA de WD2002 et WD2003 dispose maintenant d'une série de boîtes de dialogues adaptées, dont on peut même personnaliser le titre.
Exemple pour choisir un répertoire:
Public Function UnRepertoireChoisi() As String ' renvoie le chemin d'un répertoire sélectionné With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choisir le répertoire de travail" .Show UnRepertoireChoisi = .SelectedItems(1) End With End Function
Public Sub Test() MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi() End Sub
Anacoluthe « Imaginer cest choisir. » - Jean GIONO
