Problème chemin par defaut enregistrer sous en vba
5 réponses
Franck G.
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "\"
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
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
Jacky
Bonjour,
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Bonjour,
Par exemple:
'-----------
chemin = "d:donnees" '***A adapter***
NomFichierSave = ThisWorkbook.Name
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin &
NomFichierSave)
'--------
Les répertoires doivent exister et il faut avoir les droits nécessaire à
l'accès du chemin choisi.
--
Salutations
JJ
"Franck G." <FranckG@discussions.microsoft.com> a écrit dans le message de
news: 01CDED84-BA37-4F89-9D79-AFEB39B82BB3@microsoft.com...
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave &
""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
JLuc
Franck G. avait soumis l'idée :
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci : ChDrive "C" ChDir "MonRep" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
avec Chdir, ne pas mettre le disque
-- JLuc
Franck G. avait soumis l'idée :
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & ""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci :
ChDrive "C"
ChDir "MonRep"
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci : ChDrive "C" ChDir "MonRep" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
avec Chdir, ne pas mettre le disque
-- JLuc
Franck G.
Bonjour Jacky,
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Bonjour Jacky,
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé)
voici une partie du code
Dim qt As QueryTable
Dim Datd As String
Dim DatdYY As String
Dim DatdMM As String
Dim SaveDate As String
Dim CheminSave As String
Dim NomFichierSave As String
Dim Response As Boolean
Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test
'sinon apres le chemin sera du style \serveurpartage 'et j'ai les droits
aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA")
If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & ""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple:
'-----------
chemin = "d:donnees" '***A adapter***
NomFichierSave = ThisWorkbook.Name
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin &
NomFichierSave)
'--------
Les répertoires doivent exister et il faut avoir les droits nécessaire à
l'accès du chemin choisi.
--
Salutations
JJ
"Franck G." <FranckG@discussions.microsoft.com> a écrit dans le message de
news: 01CDED84-BA37-4F89-9D79-AFEB39B82BB3@microsoft.com...
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave &
""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Franck G.
Bonjour et merci JLuc,
Merci quand même, mais cela ne fonctionne pas.
J'ai posté à jacky une réponse ci-dessous :
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
"JLuc" wrote:
Franck G. avait soumis l'idée :
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci : ChDrive "C" ChDir "MonRep" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
avec Chdir, ne pas mettre le disque
-- JLuc
Bonjour et merci JLuc,
Merci quand même, mais cela ne fonctionne pas.
J'ai posté à jacky une réponse ci-dessous :
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé)
voici une partie du code
Dim qt As QueryTable
Dim Datd As String
Dim DatdYY As String
Dim DatdMM As String
Dim SaveDate As String
Dim CheminSave As String
Dim NomFichierSave As String
Dim Response As Boolean
Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test
'sinon apres le chemin sera du style \serveurpartage 'et j'ai les droits
aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA")
If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & ""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Je ne vois pas mon erreur !!
Merci
"JLuc" wrote:
Franck G. avait soumis l'idée :
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & ""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci :
ChDrive "C"
ChDir "MonRep"
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
"JLuc" wrote:
Franck G. avait soumis l'idée :
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Comme ceci : ChDrive "C" ChDir "MonRep" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show
avec Chdir, ne pas mettre le disque
-- JLuc
Jacky
Re.... Pas de problème chez moi, si les sous répertoire et répertoire existent, sinon xl prend celui par défaut.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour Jacky,
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Auriez-vous une solution ?
Merci d'avance
Re....
Pas de problème chez moi, si les sous répertoire et répertoire existent,
sinon xl prend celui par défaut.
--
Salutations
JJ
"Franck G." <FranckG@discussions.microsoft.com> a écrit dans le message de
news: 22182A37-0685-4BD6-95ED-19B8EDD672EE@microsoft.com...
Bonjour Jacky,
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé)
voici une partie du code
Dim qt As QueryTable
Dim Datd As String
Dim DatdYY As String
Dim DatdMM As String
Dim SaveDate As String
Dim CheminSave As String
Dim NomFichierSave As String
Dim Response As Boolean
Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un
test
'sinon apres le chemin sera du style \serveurpartage 'et j'ai les
droits
aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA")
If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave &
""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple:
'-----------
chemin = "d:donnees" '***A adapter***
NomFichierSave = ThisWorkbook.Name
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin &
NomFichierSave)
'--------
Les répertoires doivent exister et il faut avoir les droits nécessaire à
l'accès du chemin choisi.
--
Salutations
JJ
"Franck G." <FranckG@discussions.microsoft.com> a écrit dans le message
de
news: 01CDED84-BA37-4F89-9D79-AFEB39B82BB3@microsoft.com...
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre
enregistrer-sous, un chemin par defaut et non le chemin du lancement du
fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais
pas
pour le chemin de sauvegarde
Application.EnableEvents = False
'ChDir CheminSave """"ne fonctionne pas non plus""""
EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave &
""
& NomFichierSave)
If EnregistrerSous = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Else
ActiveWorkbook.Close
End If
Exit Sub
Re.... Pas de problème chez moi, si les sous répertoire et répertoire existent, sinon xl prend celui par défaut.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour Jacky,
J'ai bien tout cela, mais je n'avais pas donner plus de détail (désolé) voici une partie du code
Dim qt As QueryTable Dim Datd As String Dim DatdYY As String Dim DatdMM As String Dim SaveDate As String Dim CheminSave As String Dim NomFichierSave As String Dim Response As Boolean Dim EnregistrerSous As Boolean
CheminSave = "D:TESTCA" 'J'ai bien les droits c juste pour faire un test 'sinon apres le chemin sera du style serveurpartage 'et j'ai les droits aussi
Datd = InputBox("Mois et Année de Facturation au format MM/AAAA") If Not IsDate(Datd) Or Not Datd Like "??/????" Then GoTo etiq_err
Application.EnableEvents = False EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub
Je ne vois pas mon erreur !!
Merci
Bonjour,
Par exemple: '----------- chemin = "d:donnees" '***A adapter*** NomFichierSave = ThisWorkbook.Name EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(chemin & NomFichierSave) '-------- Les répertoires doivent exister et il faut avoir les droits nécessaire à l'accès du chemin choisi.
-- Salutations JJ
"Franck G." a écrit dans le message de news:
Bonjour,
Pouvez-vous m'aider svp.
Je recherche le moyen de proposer à l'utilisateur via la fenêtre enregistrer-sous, un chemin par defaut et non le chemin du lancement du fichier.
Voici ce que je fais et qui marche bien, pour le nom du fichier mais pas pour le chemin de sauvegarde
Application.EnableEvents = False 'ChDir CheminSave """"ne fonctionne pas non plus"""" EnregistrerSous = Application.Dialogs(xlDialogSaveAs).Show(CheminSave & "" & NomFichierSave) If EnregistrerSous = False Then ThisWorkbook.Saved = True ActiveWorkbook.Close Else ActiveWorkbook.Close End If Exit Sub