Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word VBA : ChangeFileOpenDirectory ne fonctionne pas bien

VBA : ChangeFileOpenDirectory ne fonctionne pas bien

18 réponses
Avatar
Souriane
Bonjour,

Quelqu=92un peut-il m=92aider avec ce probl=E8me d=92ouverture de bo=EEte d=
e
dialogue!

La macro suivante ne fonctionne pas du premier coup:
ChangeFileOpenDirectory "z:\temp\"
Application.Dialogs(wdDialogFileOpen).Show

Elle ouvre dans =93Mes Documents=94. Que je fasse la m=EAme macro avec
n=92importe quel r=E9pertoire, c=92est toujours =AB Mes Documents =BB qui e=
st
ouvert. Cependant, si je vais manuellement dans n=92importe quel de mes
r=E9pertoires et ouvre un document, le referme et ex=E9cute la macro.
Tout est beau, =E7a fonctionne maintenant! Si je ferme Word et le
r=E9ouvre, la macro fonctionne encore. Si je ferme ma session Windows,
reviens dans Windows, ouvre Word, =E7a fonctionne plus.

Pourtant, si je fais la macro suivante, elle fonctionne tr=E8s bien =E0
tout coup n=92importe quand :
ChangeFileOpenDirectory "z:\temp\"
Documents.Open FileName:=3D"test.doc", ConfirmConversions:=3DTrue,
ReadOnly _
:=3DFalse, AddToRecentFiles:=3DFalse, PasswordDocument:=3D"",
PasswordTemplate _
:=3D"", Revert:=3DFalse, WritePasswordDocument:=3D"",
WritePasswordTemplate:=3D"" _
, Format:=3DwdOpenFormatAuto

Avez-vous des suggestions?

J=92ai Word 2003
Je travaille en r=E9seau.

Merci!

Guylaine
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
1 2
Avatar
Geo
Bonjour

Ma macro sert à insérer un fichier à la position du curseur dans le document en cours
et non pas à ouvrir un fichier. Je me demande si ta suggestion est encore appropriée.



Amha : oui, il faut l'adapter :

.InitialFileName = Curdir

Mais c'est une question de goût, le résultat est le même.

--
A+
Avatar
Souriane
Bonjour,

Merci de vos réponses. J’ai été débordée, je n’ai pu venir a vant!

Quand j’exécute

Sub OuvrirDoc()
Dim oDlg As FileDialog
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "C:Temp"
.Show
End With
Debug.Print oDlg.SelectedItems(1)
Set oDlg = Nothing
End Sub

Si je fais « ESC » pour sortir de la fenêtre « Parcourir », ça me
donne l’erreur suivante.
Erreur d'exécution '5'
Argument ou appel de procédure incorrect
Et ça me pointe cette ligne : Debug.Print oDlg.SelectedItems(1)

Et de toute façon, je ne veux pas « Parcourir » seulement, je veux
pouvoir ouvrir le fichier également.

Pour ce qui est de :
strNewDir = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(wdDocumentsPath) = "c:temp"
Dialogs(wdDialogInsertFile).Show
Options.DefaultFilePath(wdDocumentsPath) = strCurrentDir

Ça sert à insérer un fichier. (Geo)Je ne comprends pas laquelle des
lignes je dois changer pour que ça fonctionne?




On 11 mai, 14:57, Geo wrote:
Re

> La macro suivante ne fonctionne pas du premier coup:
>     ChangeFileOpenDirectory "z:temp"
>     Application.Dialogs(wdDialogFileOpen).Show

A+


Avatar
heureux-oli
Salut Souriane, je persiste.

Sub OuvrirDoc()
On Error GoTo monErreur
'Déclaration de l'objet FileDialog
Dim oDlg As FileDialog
'Affectation de l'objet
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "C:Temp"
.Show
End With
'Insertion du fichier
Selection.InsertFile FileName:=oDlg.SelectedItems(1)
'Gestion de l'erreur
monErreur:
If Err.Number = 5 Or Err.Number = 0 Then
Set oDlg = Nothing
Exit Sub
Else
Set oDlg = Nothing
MsgBox Err.Description
End If
End Sub


--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"Souriane" a écrit dans le message de news:

Bonjour,

Merci de vos réponses. J’ai été débordée, je n’ai pu venir avant!

Quand j’exécute

Sub OuvrirDoc()
Dim oDlg As FileDialog
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "C:Temp"
.Show
End With
Debug.Print oDlg.SelectedItems(1)
Set oDlg = Nothing
End Sub

Si je fais « ESC » pour sortir de la fenêtre « Parcourir », ça me
donne l’erreur suivante.
Erreur d'exécution '5'
Argument ou appel de procédure incorrect
Et ça me pointe cette ligne : Debug.Print oDlg.SelectedItems(1)

Et de toute façon, je ne veux pas « Parcourir » seulement, je veux
pouvoir ouvrir le fichier également.

Pour ce qui est de :
strNewDir = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(wdDocumentsPath) = "c:temp"
Dialogs(wdDialogInsertFile).Show
Options.DefaultFilePath(wdDocumentsPath) = strCurrentDir

Ça sert à insérer un fichier. (Geo)Je ne comprends pas laquelle des
lignes je dois changer pour que ça fonctionne?




On 11 mai, 14:57, Geo wrote:
Re

> La macro suivante ne fonctionne pas du premier coup:
> ChangeFileOpenDirectory "z:temp"
> Application.Dialogs(wdDialogFileOpen).Show

A+


Avatar
Souriane
Merci Oli, mais ce n'est pas ce que je cherche à faire. Si je
sélectionne un fichier dans la boîte qui apparaît, la macro insère ce
document dans le document courant.

Moi, ce que je souhaite, c'est une macro ouvre la boîte de dialogue
"Ouvrir" dans le répertoire par exemple c:temp. Pour que je puisse
ensuite choisir et ouvrir le document de mon choix dans ce répertoire.

Merci!

Guylaine

On 19 mai, 15:16, "heureux-oli" wrote:
Salut Souriane, je persiste.

Sub OuvrirDoc()
On Error GoTo monErreur
'Déclaration de l'objet FileDialog
Dim oDlg As FileDialog
'Affectation de l'objet
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
    .InitialFileName = "C:Temp"
    .Show
End With
'Insertion du fichier
Selection.InsertFile FileName:=oDlg.SelectedItems(1)
'Gestion de l'erreur
monErreur:
If Err.Number = 5 Or Err.Number = 0 Then
Set oDlg = Nothing
Exit Sub
Else
Set oDlg = Nothing
MsgBox Err.Description
End If
End Sub

--
Heureux-oli


Avatar
heureux-oli
Salut Souriane,

C'était trop simple, alors je l'ai fait compliqué ! mdr
**********************************************
Sub OuvrirDoc()
On Error GoTo monErreur
'Déclaration de l'objet FileDialog
Dim oDlg As FileDialog
'Affectation de l'objet
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "C:Temp"
.Show
End With
Documents.Open oDlg.SelectedItems(1)
'Gestion de l'erreur
monErreur:
If Err.Number = 5 Or Err.Number = 0 Then
Set oDlg = Nothing
Exit Sub
Else
Set oDlg = Nothing
MsgBox Err.Description
End If
End Sub
*************************************************

Je préfère ne pas modifier les options si ce n'est pas nécessaire.
La raison est simple, sii le code est arrêté en cours d'exécution, les
options restent modifiées.
Dans le cas du répertoire par défaut, ce n'est pas grave, mais pour les
utilisateurs, c'est déroutant.



--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"Souriane" a écrit dans le message de news:

Merci Oli, mais ce n'est pas ce que je cherche à faire. Si je
sélectionne un fichier dans la boîte qui apparaît, la macro insère ce
document dans le document courant.

Moi, ce que je souhaite, c'est une macro ouvre la boîte de dialogue
"Ouvrir" dans le répertoire par exemple c:temp. Pour que je puisse
ensuite choisir et ouvrir le document de mon choix dans ce répertoire.

Merci!

Guylaine

On 19 mai, 15:16, "heureux-oli" wrote:
Salut Souriane, je persiste.

Sub OuvrirDoc()
On Error GoTo monErreur
'Déclaration de l'objet FileDialog
Dim oDlg As FileDialog
'Affectation de l'objet
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "C:Temp"
.Show
End With
'Insertion du fichier
Selection.InsertFile FileName:=oDlg.SelectedItems(1)
'Gestion de l'erreur
monErreur:
If Err.Number = 5 Or Err.Number = 0 Then
Set oDlg = Nothing
Exit Sub
Else
Set oDlg = Nothing
MsgBox Err.Description
End If
End Sub

--
Heureux-oli


Avatar
Souriane
Grooooooooooooooos merci! Ça fonctionne sur tous les ordinateurs
maintenant. Je suis très contente! C'est génial!

On 21 mai, 13:25, "heureux-oli" wrote:

Je préfère ne pas modifier les options si ce n'est pas nécessaire.




En effet, moi aussi, j'aime mieux pas y toucher!
Avatar
Geo
Tout est dans le titre.
mdr

--
A+
Avatar
Souriane
Concernant ce que vous m'avez créé (ci-dessous), quand j'ouvre un
fichier de fusion en ayant recours à cette macro, la liaison avec la
base de données est rautomatiquement rompue.

Quoi faire?

Merci!
Souriane

Sub ouverture ()
On Error GoTo monErreur
'Déclaration de l'objet FileDialog
Dim oDlg As FileDialog
'Affectation de l'objet
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
With oDlg
.InitialFileName = "z:xyz"
.Show
End With
Documents.Open oDlg.SelectedItems(1)
'Gestion de l'erreur
monErreur:
If Err.Number = 5 Or Err.Number = 0 Then
Set oDlg = Nothing
Exit Sub
Else
Set oDlg = Nothing
MsgBox Err.Description
End If
end sub


Géo, je n'avais pas lu ton sujet "Le cargo pour le Québec se
remplit". Elle m'a fait bien rire!!
1 2