Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue
"enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il
procéder.
Merci a vous
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
MichDenis
Sub test()
Dim Chemin As String
Chemin = "E:Documents"
If dir(chemin) <>"" then Application.Dialogs(xlDialogSaveAs).Show Chemin else Msgbox "Chemin introuvable" end if End Sub
"sten83" a écrit dans le message de news: % Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue "enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il procéder. Merci a vous
Sub test()
Dim Chemin As String
Chemin = "E:Documents"
If dir(chemin) <>"" then
Application.Dialogs(xlDialogSaveAs).Show Chemin
else
Msgbox "Chemin introuvable"
end if
End Sub
"sten83" <jymls83@club-internet.fr> a écrit dans le message de news:
%23SOUhDffIHA.5180@TK2MSFTNGP05.phx.gbl...
Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue
"enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il
procéder.
Merci a vous
If dir(chemin) <>"" then Application.Dialogs(xlDialogSaveAs).Show Chemin else Msgbox "Chemin introuvable" end if End Sub
"sten83" a écrit dans le message de news: % Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue "enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il procéder. Merci a vous
MichDenis
Il y a coquille :
Lire comme ceci : If Dir(Chemin, vbDirectory) <> "" Then au lieu de If Dir(Chemin) <> "" Then
"MichDenis" a écrit dans le message de news:
Sub test()
Dim Chemin As String
Chemin = "E:Documents"
If dir(chemin) <>"" then Application.Dialogs(xlDialogSaveAs).Show Chemin else Msgbox "Chemin introuvable" end if End Sub
"sten83" a écrit dans le message de news: % Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue "enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il procéder. Merci a vous
Il y a coquille :
Lire comme ceci : If Dir(Chemin, vbDirectory) <> "" Then
au lieu de If Dir(Chemin) <> "" Then
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ej34AaffIHA.5348@TK2MSFTNGP03.phx.gbl...
Sub test()
Dim Chemin As String
Chemin = "E:Documents"
If dir(chemin) <>"" then
Application.Dialogs(xlDialogSaveAs).Show Chemin
else
Msgbox "Chemin introuvable"
end if
End Sub
"sten83" <jymls83@club-internet.fr> a écrit dans le message de news:
%23SOUhDffIHA.5180@TK2MSFTNGP05.phx.gbl...
Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue
"enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il
procéder.
Merci a vous
Lire comme ceci : If Dir(Chemin, vbDirectory) <> "" Then au lieu de If Dir(Chemin) <> "" Then
"MichDenis" a écrit dans le message de news:
Sub test()
Dim Chemin As String
Chemin = "E:Documents"
If dir(chemin) <>"" then Application.Dialogs(xlDialogSaveAs).Show Chemin else Msgbox "Chemin introuvable" end if End Sub
"sten83" a écrit dans le message de news: % Bonjour, j'aimerai à l'aide d'une macro ouvrir la boite de dialogue "enregistrer sous" mais sur un repertoire bien spécifique, comment faut -il procéder. Merci a vous