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

Ecrire la cellule d'un fichier excel sans l'ouvrir

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gagletor
  • Date de début Date de début

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
G

gagletor

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterais écrire l'adresse d'un chemin d'accès dans la cellule d'un fichier excel situé dans un dossier réseau à partir d'un formulaire principale.

Mais la macro ne doit pas s'arrêter là, elle doit le faire sur toutes les feuilles excel se trouvant dans le dossier réseau.

En résumé, lorsque je valide sur ma feuille principale, un macro doit écrire mon texte dans la cellule A5 de la feuil2 de tous les classeurs excel du répertoire.

J'arrive à écrire dans un classeur sans l'ouvrir, mais je n'arrive pas faire la boucle sur tout le répertoire.

Quelqu'un aurait une idée??

Merci de votre aide

Bonne après midi

Grégory
 
Trier par date Trier par votes
Re : Ecrire la cellule d'un fichier excel sans l'ouvrir

Bonjour Grégory

sans doute utiliser une boucle "For Each" sur tes fichiers, mais t'en dire plus sans voir le code utilisé... Pas facile...

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Ecrire la cellule d'un fichier excel sans l'ouvrir

bonjour à tous,
j'ai fait un exemple pour ce sujet avec DIR :
https://www.excel-downloads.com/thr...cellules-dans-plusieurs-fichiers-excel.76751/
en échange, je suis curieux de connaître le code utilisé pour écrire dans le fichier fermé
à suivre
ps : j'ai oublié :
ouvrir le classeur en désactivant les macros, il doit y avoir une macro de type Open si je souviens bien
la macro ouvre et ferme les classeurs d'un répertoire déterminé
 
Vote positif 0 Vote négatif
Re : Ecrire la cellule d'un fichier excel sans l'ouvrir

Bonsoir ttl monde,

Ci dessous proposition à adapter puisqu'on parle d'un formulaire restant mystérieux sans pièce jointe. Le chemin du dossier réseau est ici en constante

Petite remarque: Un code pour écrire dans un fichier fermé est dans le WIKI page 6 de MichelXLD depuis au moins 2 ans...

Code: 
Option Explicit
Const dossier_reseau As String = "F:\documents\essai_xld" ' a adapter"
Public fichier As String
'------------------------------------------------------------------------
Sub repertorier()
ChDir dossier_reseau
fichier = Dir("*.xls")
 
    While fichier <> ""
        ecrire_fermé
        fichier = Dir
    Wend
MsgBox "opération terminée"
End Sub
'---------------------------------------------------------------
Sub ecrire_fermé()
Dim source As ADODB.Connection
Dim externe As ADODB.Recordset
Dim texte_SQL As String
 
 
Set source = New ADODB.Connection
Set externe = New ADODB.Recordset
'
fichier = dossier_reseau & "\" & fichier
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                "data source=" & fichier & ";" & _
                "extended properties=""Excel 8.0;HDR=NO"""
 
texte_SQL = "SELECT * FROM [feuil2$C5:C5];"
externe.Open texte_SQL, source, adOpenKeyset, adLockOptimistic
    'externe.MoveFirst
    externe.Fields(0) = dossier_reseau
    externe.Update
 
 
 externe.Close
 source.Close
End Sub

Ne pas oublier de cocher la référence "Microsoft ActiveX data object 2;X library"
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ecrire la cellule d'un fichier excel sans l'ouvrir

Bonjour à tous, et merci pour vos réponses,

Je n'ai pas mis mon fichier car il est assez compliqué, il y a énormément de macro à l'intérieur et ça risquerai de gêner plus qu'autre chose.

Je vais essayer d'expliquer comment fonctionne mon programme :

Mon programme permet de gérer des cartes de contrôle, qui sont utilisées pour contrôler nos produits. Ces cartes de contrôle sont des classeurs excel qui sont situés dans un répertoire sur le réseau.

Je dispose d'une feuille excel, dont je me sert comme moteur de recherche. On tape la référence ou la partie de référence souhaitée dans un textbox et ça m'affiche dans une listbox le listing des références correspondantes. On clic sur le fichier souhaité et ça l'ouvre.

J'ai un fichier excel qui se trouve sur le réseau, et qui me gère mes mots de passe d'accès, pour avoir plus ou moins de droit.

Il peut arriver que l'on change d'arborescence réseau, j'ai donc mis en place un système qui permet de changer les chemins d'accès automatiquement sans modifier le code vba.

En ce qui concerne le moteur de recherche, je change le chemin pour accéder à la carte vierge, celui pour accéder au fichier de gestion de mots de passe, et celui du répertoire où se trouvent les cartes. Cette partie fonctionne très bien.

Pour les cartes de contrôle, je dois changer le lien pour accéder à la feuille de gestion des mots de passe. C'est plus difficile puisque j'ai actuellement 500 cartes, et que l'on en fait tous les jours.

Je me vois donc mal changer le lien sur toutes les cartes les unes après les autres.
Je voudrais donc, à partir de mon moteur de recherche, mettre à jour le lien qui se trouve "cellule A5 feuil3" de toutes mes cartes de contrôle. Je pensais donc faire une macro pour automatiser tout ça, par exemple :

Je copie mon lien "cellule A4 feuil2" de mon moteur de recherche, et je le colle "cellule A5 feuil3" de mes cartes de contrôle situées sur le réseau après clic sur un bouton.

Voilà, j'espère que mes explications sont assez claire.

Merci pour votre attention, et surtout pour 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

T
  • Résolu(e)
Autres sauvegarde semestriel d'un fichier excel
Réponses
9
Affichages
316
wDog66
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
530
Phil69970
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
485
MCOTTEND
M
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
564
JJ69
J
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
554
AtTheOne
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
877
dysorthographie
T
  • Question Question
XL 2019 Actualisation d'un fichier excel sans l'ouvrir
Réponses
8
Affichages
5 K
Thomas10m
T
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
660
Lu76Fer
J
  • Résolu(e)
XL 2019 Important : Nommer fichier grâce aux éléments de publipostage
Réponses
6
Affichages
797
JacquesO
J
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
819
Liner77
L
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
667
crocrocro
C
D
  • Résolu(e)
XL 2019 VBA - Copier Coller d'un fichier A vers fichier B
Réponses
2
Affichages
753
drizzydunck
D
A
  • Question Question
XL 2016 Reprendre la valeur d'une cellule dans le titre d'un graphique...
Réponses
5
Affichages
708
Orson83
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
1 K
Guillaumeg3
G
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
745
oguruma
L
  • Question Question
Microsoft 365 Extraire les filtres d'une colonne ou d'un segment en VBA et les écrire dans une autre colonne.
2
Réponses
20
Affichages
2 K
LORIS-B
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…