Faire une commande exportation dans un répertoire défini

Bonjour,
Je viens de prendre connaissance de ton travail, je vais tester encore merci et je reviens donner des news pour te donner le rendu.
Merci

Hello ::
EUREKA !!! cela fonctionne, mais tu sais je recherche la perfection, question:
Quand la commande arrive dans le répertoire final ou le fichier doit se trouver, est-il possible que je puisse à ce moment là prendre la main pour décider du nom et de l'endroit final ?
exemple : DoCmd.OutputTo acOutputReport, "Et_reclamations_riverains", "Snapshot Format", "O:\gestion_espace\DIRECTION_ESPACES_VERTS\5_ETATS_Récapitulatifs des dossiers reclamations\me.NOMDOC.snp" là ce qui se passe réellement, le nom normalement attribué c'est mon client sur le quel je me trouve dans mon formulaire de départ, je souhaite que mon état final se nomme par ex : si je suis sur le formulaire de Mr tartenpion, mon doc prendra le nom de "tartenpion.snp" lors de l'éxécution de la cde que je puisse moi-même l'indiquer ce nom final ???? Bon là déjà c'est super bien avançé et j'ai encore appris une commande géniale, je ne me lasserai jamais du VBA c'est tout simplement "jouissif" quand au final on obtient les résultats que l'on connait.......
Pour info dans mon formulaire le nom du champs de mon client se nomme "numplaignant", donc voir si à la fin de la commande je pourrai imposer le me.numplaignant ????
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Bonsoir, J'ai été obligé de modifié mon Identifiant parce que j'avais perdu l'original. Pas grave !
Bon! Suis satisfait que tu sois contente.
Pour ce qui est d'intégrer le nom et forcer le dossier de rangement du courrier, la solution est assez simple. Il me semble qu'il faille des bifurcations commandées par des boites de dialogues du type "Rangement automatique, Rangement manuel, Abandonner" Enfin! c'est comme ça que je m'y prendrais. Je ne traiterais que des branches auto, puisque pour les autres il suffit de laisser certains arguments vides pour que Access soit obligé de demander ce qui doit être fait;

Pour le genre de problèmes où je veux un nom de fichier auto et variable, et de même pour les dossiers, je te dis la méthode que j'ai

Par exemple pour le cas présent: (Il est préférable de copier/coler ce qui suit sur une page de module pour distinguer les commentaires du code réellement écrit)

'Préparer la date; je les écris toujours à l'envers pour qu'ils soient classer en 'Année+Mois+Jour
DateCourrier = Forms!RecueilsPlaintes!DateReponsePlainte
DateDoc = Format(DateCourrier, "yyyy" & "_" & "mm" & "_" & "dd")

'Préparer le nom du plaignant. Ainsi le nom complet est prèt à être intégré dans 'la chaîne
NumPlaignant = Forms!RecueilsPlaintes!NomPlaignant & "_" & Forms!RecueilsPlaintes!PrenomPlaignant

'Nom final du fichier pour l'enregistrement auto
NomFinalDoct = NumPlaignant & "_" & DateDoc & ".snp"

'Alors Le NomComplet du fichier avec son chemin sera
CheminExport = "O:\gestion_espace\DIRECTION_ESPACES_VERTS\5_ETATS_Récapitulatifs des dossiers reclamations\" & NomFinalDoct

'Le nom CheminExport est à garder tel quel évidemment comme dans le code 'précédent.
'Mais attention il ne faut pas modifié le nom de ton état puisque c'est celui
'de l'état sortant avant enregistrement
'Par contre, je me demande si tu n'aurais pas intérêt à adopter la
'constante acFormatSNP plutôt que "Snapshot Format" 'qui t'oblige à avoir
'des guillemets en plus.

'Enfin dernier détail ! Si tu veux ranger des courriers dans des dossiers séparés
'par années, tu peux aussi facilement entrer l'année, et aussi le mois, avec
'un nom évolutif. Exemple :
ANNEE = Year(Forms!RecueilsPlaintes!DateCourrier)

'Il suffit alors d'avoir préparé à l'avance autant de dossiers "Année" que tu veux,
'cela aussi pour les collègues qui n'auront pas à farfouiner dans le code en ton 'absence,
'la ligne de code s'écrit alors :
CheminExport2 = "O:\gestion_espace\DIRECTION_ESPACES_VERTS\5_ETATS_Récapitulatifs des dossiers reclamations\" & ANNEE & "\" & NomFinalDoct

'Et pour finir, si tu veux choisir au dernier moment le nom et le dossier où ranger
'le courrier, il suffit de rentrer le code sans indication ni de nom, ni de chemin.

DoCmd.OpenReport "EtatsFinauxComptesCourants", acPreview, "", ""
DoCmd.OutputTo acOutputReport, "", acFormatSNP, "", False

'Et voilà, il suffisait de demander pour l'avoir. Après un peu de tâtonnement.
'Bon courage.

PS: En relisant, je me rends compte qu'ayant travaillé avec des morceaux de code d'une base personnelles, j'ai laissé un nom d'un de mes états "EtatsFinauxComptesCourants" , il faut bien sûr remplacer par "Et_reclamations_riverains". Excuses!

Bonjour,
Je viens de prendre connaissance et je vais tester dans la journée car je passe beaucoup de tps là dessus et je néglige un peu le reste, mais au plus tard demain de reviens vers toi pour te donner le résultat de "TON" travail.
Merci

Merci beaucoup, mais je n'ai pas de pb avec le "docmd outputTo c'est avec le final, car mon état se recopie n'importe où sur mon PC, je désire lui indiquer le chemin du répertoire dans lequel je désire que mon état.snp soit mis, et qu'au lieu de lui mettre un nom d'enregistrement par défaut, je souhaite qu'il s'enregistre avec le nom du destinataire de l'état consulté.
Exemple : j'ouvre mon formulaire de consultation qui se nomme "fichierplaigant", avec une liste déroulante de tous mes plaignants, je sélec mon individu, et le formulaire de monsieur ou madame "duchmol" s'ouvre, je modifie les données si besoin, j'en rajoute, puis ensuite j'ouvre un état propre à monsieur ou madame "duchmol" et je désire l'exporter sur mon réseau dans un répertoire que je partage avec mes collègues sous le nom de "duchmol.snp" donc je souhaite dans ma commande rajouter "me.destinataire.snp", o:\mon répertoire\, ce que j'ignore c'est comment et dans quel ordre intégrer cela dans ma commande ci-dessous :
DoCmd.OutputTo acOutputReport, "Et_reclamations_riverains", "Snapshot Format", "Me.Destinataire.snp"
A l'heure actuelle quand j'exporte, il ouvre bien l'état au nom du destinataire que je consulte dans mon formulaire, mais il l'exporte dans c:\mes documents au nom de Me.Destinaire avec l'extension snp, donc ça marche à peu près, car au final je suis obligée de renommer mon doc dans le répertoire que je veux.
En conclusion, pour le moment, j'ouvre mon formulaire, avec le plaignant que je souhaite voir, j'ouvre mon état en aperçu, et dans ma barre de tâche j'ai créé un bouton "exporter" qui lors du clic, m'exporte mon état et c'est moi qui choisi l'extension finale du doc et l'endroit. C'est trop de manipulations et c'est pourquoi je voulais automatiser ça dans une fonction.
Merci

Je viens de me livrer à un petit essai pour obtenir l'orthographe certaine d'un chemin : enregistrer une "nouvelle macro" dans Word en "enregistrant sous" un certain fichier, en fait une version en .pdf d'un état issu d'Access, dans un dossier ouvert exprès pour cet essai, et puis d'aller regarder le VBA de ma macro. Très instructif !
2°) suggestion: Ne pas entrer directement le chemin dans l'écriture de l'instruction OutPutFile, mais de créer un paramètre précédant ' CheminEnregistrement = " C:\ AAAAA\BBBB\CCCC\"
et écrire l'instruction : DoCmd.OutPutFile ("","","", & CheminEnregistrement & , "","","","")
Je pense qu'il devrait y avoir moins de soucis.
Bonne journée.

Bonjour,
bien que votre "citation" me laisse perplexe, puis-je me permettre de vous demander plus de détail SVP merci

Ma devise est la même depuis plus de 10 ans, elle ne laissera sans doute pas perplexe un habitué de ces lieux...

Quant à la boite de dialogue, il suffit de quelques lignes en VBA pour effectuer cette opération.
En voici un exemple (qui ne fait qu'afficher le chemin choisi) :

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    .InitialFileName = Defaut
    If .Show = -1 Then
        MsgBox fd.SelectedItems(1)
    End If
End With
Set fd = Nothing

Il faut avoir la référence 'Microsoft Office xx.x Object Library' cochée dans la liste des références utilisables...

Merci pour votre aide, avant d'essayer cette méthode je vais en terminer avec celle en cours je suis très près de mon objectif, a part un erreur dans ma ligne "DoCmd.OutputTo acOutputReport" je suis très très près, faut que j'arrive à trouver. Merci

Ca y est je viens de trouver mon erreur,
En relisant ce que je viens de t'écrire j'ai trouvé, en fait c'est tout bête, dans mes dossiers j'ai 4 types de réclamations :
Type
Animaux_Insectes
Abattage_Elagage/Etêtage
Manque d'entretien_Fauchage
Demande d'interventions_conflits
et ce qui a foutu le chaos c'est "Abattage_Elagage/Etêtage" c'est la "/" qui passe pas, car mes tests je les ai faits que sur cette réclamation, et je me suis dis que la "/" n'était pas dans le même sens que celles de la cde et que lors de l'éxécution VBA devait bloquer la dessus, aussi j'ai essayé sur "Animaux_Insectes" et là ça passe "ouf" !!!! j'ai vraiment "transgoutté" à gros "spire" merci car ton dernier messg m'a permis de regarder la cde dans ces moindres détails....J'ai changé le titre en "Abattage_Elagage_Etêtage" et ça fonctionne..... Merciiiiiiiiiiiii

Tu peux rajouter cette ligne à ton nom de fichier :

+ "_" + Left(Time, 2) + "_" + Mid(Time, 4, 2)