Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et qui
insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le réactiver
après. Je ne sais pas comment identifier le dossier actuellement courant.
Voici mon code. Que faut-il mettre à la place des points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et qui
insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le réactiver
après. Je ne sais pas comment identifier le dossier actuellement courant.
Voici mon code. Que faut-il mettre à la place des points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et qui
insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le réactiver
après. Je ne sais pas comment identifier le dossier actuellement courant.
Voici mon code. Que faut-il mettre à la place des points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" <guylafreniere@hotmail.com> a écrit dans le message de
news: eaxqLUCzIHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder en
mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Je ne sais pas comment identifier le dossier actuellement courant.
Je ne sais pas comment identifier le dossier actuellement courant.
Je ne sais pas comment identifier le dossier actuellement courant.
Bonjour heureux-oli,
Je te remercie pour ta réponse mais ce n'est pas tout à fait ce que je
cherche.
Si je ne me trompe pas,
Application.Options.DefaultFilePath(wdDocumentsPath) donne le dossier par
défaut proposé pour l'ouverture ou l'enregistrement des fichiers. Au
moment où j'exécute ma macro, le dossier courant n'est pas nécessairement
le dossier par défaut. Supposons que j'ouvre l'un après l'autre des
documents qui sont dans un dossier autre que le dossier par défaut pour y
effectuer une opération quelconque, je veux pouvoir revenir
automatiquement dans ce dossier avec la boîte de dialogue d'ouverture des
fichiers, après l'exécution de ma macro.
Je suis preneur pour une autre suggestion. Merci à l'avance!
Guy Lafrenière
"heureux-oli" a écrit dans le message de
groupe de discussion :Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder
en mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Bonjour heureux-oli,
Je te remercie pour ta réponse mais ce n'est pas tout à fait ce que je
cherche.
Si je ne me trompe pas,
Application.Options.DefaultFilePath(wdDocumentsPath) donne le dossier par
défaut proposé pour l'ouverture ou l'enregistrement des fichiers. Au
moment où j'exécute ma macro, le dossier courant n'est pas nécessairement
le dossier par défaut. Supposons que j'ouvre l'un après l'autre des
documents qui sont dans un dossier autre que le dossier par défaut pour y
effectuer une opération quelconque, je veux pouvoir revenir
automatiquement dans ce dossier avec la boîte de dialogue d'ouverture des
fichiers, après l'exécution de ma macro.
Je suis preneur pour une autre suggestion. Merci à l'avance!
Guy Lafrenière
"heureux-oli" <yyy.heureux-oli@hotmail.com.yyy> a écrit dans le message de
groupe de discussion : uyU5RpEzIHA.5108@TK2MSFTNGP05.phx.gbl...
Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" <guylafreniere@hotmail.com> a écrit dans le message de
news: eaxqLUCzIHA.2188@TK2MSFTNGP04.phx.gbl...
Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder
en mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière
Bonjour heureux-oli,
Je te remercie pour ta réponse mais ce n'est pas tout à fait ce que je
cherche.
Si je ne me trompe pas,
Application.Options.DefaultFilePath(wdDocumentsPath) donne le dossier par
défaut proposé pour l'ouverture ou l'enregistrement des fichiers. Au
moment où j'exécute ma macro, le dossier courant n'est pas nécessairement
le dossier par défaut. Supposons que j'ouvre l'un après l'autre des
documents qui sont dans un dossier autre que le dossier par défaut pour y
effectuer une opération quelconque, je veux pouvoir revenir
automatiquement dans ce dossier avec la boîte de dialogue d'ouverture des
fichiers, après l'exécution de ma macro.
Je suis preneur pour une autre suggestion. Merci à l'avance!
Guy Lafrenière
"heureux-oli" a écrit dans le message de
groupe de discussion :Salut,
Tu peux récupérer le repertoire par défaut avec
Dim strCurrentDir As String
strCurrentDir = Application.Options.DefaultFilePath(wdDocumentsPath)
....
....
ChangeFileOpenDirectory =strCurrentDir
http://word.developpez.com/faq/?page=VBA#VBA_repertoire_par_defaut
--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/
----------------------------------------------------------------------------------
"Guy Lafrenière" a écrit dans le message de
news:Bonjour Groupe,
J'utilise Word 2003. Je fais une macro qui affiche automatiquement la
boîte de dialogue 'Insérer un fichier' dans un dossier prédéterminé et
qui insère le fichier choisi dans le document actif.
Les fichiers à insérer sont dans un dossier spécifique. Je veux garder
en mémoire le dossier courant avant l'exécution de la macro pour le
réactiver après. Je ne sais pas comment identifier le dossier
actuellement courant. Voici mon code. Que faut-il mettre à la place des
points d'interrogation?
Public Sub InsérerFichier
Dim strCurrentDir as String
strCurrentDir = ?????
ChangeFileOpenDirectory "Nom du dossier contenant les fichiers à
insérer"
Dialogs(wdDialogInsertFile).Show
ChangeFileOpenDirectory strCurrentDir
End Sub
Merci à l'avance pour toute aide!
Guy Lafrenière