Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ouvrir/créer fichier

ouvrir/créer fichier

2 réponses
Avatar
Emcy
bonjours,

je voudrais faire une macro qui m'affiche une fenetre du style "enregistrer
sous" (avec un filtre sur les fichiers .mdb)
=> si je selectionne un fichier existant, je voudrais faire une action (en
recuperant le nom du ficher selectionné)
=> si je tape le nom d'un fichier non existant dans la zone "nom de
fichier", je voudrais faire une autre action (en recuperant le nom du ficher
entré).

comment faire ?
Signaler un problème avec ce contenu

2 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
Avatar
michdenis
Bonjour Emcy,

Essaie ceci :

'--------------------------------------
Sub EnregistrerSousSpecial()

Dim Repertoire As String
Dim Fichier As String
Dim A as String

'Définir répertoire à ouvrir par défaut
Repertoire = "C:Excel"
fichier = "MaBase.mdb"

a = Dir(Repertoire, vbDirectory)
If a = "" Then
MsgBox "Ce répertoire " & Repertoire & _
" n'existe pas."
Exit Sub
End If

If Dir(Repertoire & fichier) <> "" Then
MsgBox "Ce fichier existe"
Exit Sub
Else
Application.GetSaveAsFilename Repertoire & fichier, _
fileFilter:="Access (*.mdb), *.mdb"
End If
End Sub
'--------------------------------------


Salutations!



"Emcy" a écrit dans le message de news:
bonjours,

je voudrais faire une macro qui m'affiche une fenetre du style "enregistrer
sous" (avec un filtre sur les fichiers .mdb)
=> si je selectionne un fichier existant, je voudrais faire une action (en
recuperant le nom du ficher selectionné)
=> si je tape le nom d'un fichier non existant dans la zone "nom de
fichier", je voudrais faire une autre action (en recuperant le nom du ficher
entré).

comment faire ?
Avatar
Emcy
merci

"michdenis" a écrit dans le message de news:
%
Bonjour Emcy,

Essaie ceci :

'--------------------------------------
Sub EnregistrerSousSpecial()

Dim Repertoire As String
Dim Fichier As String
Dim A as String

'Définir répertoire à ouvrir par défaut
Repertoire = "C:Excel"
fichier = "MaBase.mdb"

a = Dir(Repertoire, vbDirectory)
If a = "" Then
MsgBox "Ce répertoire " & Repertoire & _
" n'existe pas."
Exit Sub
End If

If Dir(Repertoire & fichier) <> "" Then
MsgBox "Ce fichier existe"
Exit Sub
Else
Application.GetSaveAsFilename Repertoire & fichier, _
fileFilter:="Access (*.mdb), *.mdb"
End If
End Sub
'--------------------------------------


Salutations!



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

bonjours,

je voudrais faire une macro qui m'affiche une fenetre du style
"enregistrer
sous" (avec un filtre sur les fichiers .mdb)
=> si je selectionne un fichier existant, je voudrais faire une action (en
recuperant le nom du ficher selectionné)
=> si je tape le nom d'un fichier non existant dans la zone "nom de
fichier", je voudrais faire une autre action (en recuperant le nom du
ficher
entré).

comment faire ?