Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Donner un nom à un fichier - VBA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

baroneddy

XLDnaute Nouveau
Bonjour à tous,

Toujours aussi mauvais en VBA (pourtant je progresse) qu'il y a 4j, je suis de nouveau confronté à un problème que mes recherches n'ont pas sur combler.

Alors voila, en fait j'ai 2 fichiers, un fichier base de donné (.xlsx - on l’appellera "DB" dans la suite du texte) et un fichier qui exploite les données de cette base ("exploit").

Dans le fichier "exploit", j'ai 2 / 3 macros qui utilisent DB. Donc pour le moment, il y a le nom du fichier dans la macro, et avec les deux fichiers ouvert, ca ne pose pas de problème. Seulement, j'aimerai faire cela un peu plus propre : j'aimerai que dans le fichier "exploit', on sélectionne le fichier "DB" et qu'on puisse ensuite affecter un nom au chemin complet pour accéder au fichier.

Par exemple, j'ai eu besoin d'utiliser dans mon fichier :

Code: 
Set Fichier = ThisWorkbook

Ca marche très bien pour le fichier dans lequel j’exécute la macro, mais pour l'autre fichier, j'aurai aimé qq chose comme :

Code: 
Set Fichier = "c:/Mes docs/database.xlsx"

Mais il faudrait pouvoir sélectionner ce fichier/répertoire dans une boite de dialogue et qu'on ai plus à le refaire après l'avoir fait la première fois qu'on a ouvert le fichier !

J'espère avoir réussi à être claire (c'est pas gagné 🙂 ) .

Je vous remercie d'avance,

Edd.
 
Trier par date Trier par votes
Re : Donner un nom à un fichier - VBA

Bonsoir baroneddy,

Voici un exemple simple en VBA que tu pourras adapter. Une fois le chemin/ fichier choisi, tu peux le sauvegarder dans un onglet caché pour récupérer la "valeur" et ensuite réouvrir le fichier ultérieurement. (ici, le chemin est sauvegarder dans la cellule A1 de l'onglet actif)

VB: 
Sub ChoisirFichier()

'Ouvre fenêtre permettant de sélectionner un fichier et sauvegarder dans A1
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Show
    [A1] = .SelectedItems(1)
End With

'Ouvre ce fichier
Set wb = Workbooks.Open([A1])

End Sub

A+
 
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

A en fait, j'ai un problème avec Set wb = Workbooks.Open([A1])" 🙁


Si le fichier est déjà ouvert, j'ai un message qui me dit que le fichier est déjà ouvert et que si je l'ouvre à nouveau, les modifications seront perdues ! Est-ce qu'il y a moyen de ne pas essayer de l'ouvrir si il est déjà ouvert tout en définissant bien le nom de la cellule ?
 
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

Bonjour,

Sur la base du travail de Grand_Chaman_Excel:

Code: 
Sub ChoisirFichier()
 
 Dim NomFichier As String, bOuvert As Boolean
'Ouvre fenêtre permettant de sélectionner un fichier et sauvegarder dans A1
 With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
     .Show
     Nomficher = .SelectedItems(1)
 End With
 
'Test si le fichier est déjà ouvert
 For Each wb In Workbooks
    If wb.FullName = NomFichier Then
        bOuvert = True
        Exit For
    End If
 Next
 
 If Not bOuvert Then
    Set wb = Workbooks.Open(NomFichier)
    [A1] = NomFichier
 End If
 
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

Impeccable, Hasco, merci beaucoup ! J'ai pu en faire ce que je voulais.

Seulement j'ai même encore un problème ! Si j'arrive à le faire marcher sur mon pc sans problème. Ca ne marche pas pour la personne à qui je l'envois :s Ca lui donne une erreur de compilation au moment de l'ouverture de la boite de dialog. Si j'ai bien compris ce que j'ai lu, c'est un problème de filedialog qui n'est pas dans la bibliothèque ! Mais comment le mettre automatiquement ? Ou existe t-il une autre application qui serait "plus" compatible ?

Je vous remercie !
 
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

Salut, est-ce que cette personne n'a pas une ancienne version d'Excel style 97 auquel cas l'instruction n'est pas reconnue , il me semble que cette instruction n'est apparue qu'avec la version 2002 ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

Non malheureusement on est tous les deux sur Office 2010. J'ai comparé nos bibliothèques de référence, la seule différence est qu'il a de son côté un truc écrit qui dit "Microsoft Calendar Control 2007 manquant", alors que moi je l'ai, mais je ne pense pas que ca change le filedialog si ?
 
Vote positif 0 Vote négatif
Re : Donner un nom à un fichier - VBA

Bonjour à tous ! Je reviens vers vous car j'ai un problème ... C'est un problème sur mac :s lorsque je lance la macro pour sélectionner le fichier j'ai une erreur de compilation 438 et " With Application.FileDialog(msoFileDialogFilePicker) " qui se sélectionne en jaune !

La référence Microsoft Office 14.0 Object est bien coché et il n'y a pas de problème de référence manquante ! C'est assez gênant car une partie des personnes qui vont être amené à travaillé sur ce fichier seront sur mac :s

Merci de votre aide !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
99
fanch55
P
  • Question Question
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
2
Affichages
20
PHIL37
P
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
80
CDALE
C
R
  • Question Question
Microsoft 365 Inscrire une date et initiales dans un fichier .pdf ouvert
Réponses
1
Affichages
273
kiki29
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
149
tnion
T
S
  • Question Question
Microsoft 365 VBA enregistrement dans dossier spécifique
Réponses
1
Affichages
274
vgendron
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
384
MarineU
M
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
42
job75
M
Excel et Co-edition dans un fichier sharepoint.
Réponses
0
Affichages
75
Mcgirard13
M
P
  • Question Question
Microsoft 365 recherche fichier sans un dossier
2 3
Réponses
32
Affichages
2 K
pelerin65
P
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
212
sylvanu
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
277
ali591
A
  • Résolu(e)
XL 2021 ouvrir un fichier vba excel 2021 dans les versions ulterieires
Réponses
4
Affichages
401
eriiic
S
  • Question Question
Microsoft 365 VBA Requette SQL sur un autre fichier excel
Réponses
13
Affichages
467
dysorthographie
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
536
arnoldbrice19
A
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
1 K
sylvanu
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
359
ma6me
M
P
  • Question Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
804
Phil69970
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
271
spike29
S
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
130
JJ69
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…