Modifier une cellule dans un fichier fermé

Version imprimable

10/01/2018, 12h00
SOTUMA

Modifier une cellule dans un fichier fermé

Bonjour tout le monde je vous souhaite une bonne et heureuse année 2018
après + recherche je ne trouve pas une solution à mon problème
je compte sur vous pour me donner un coup de mains
j'ai un fichier qui contiens le code sous un répertoire
j'ai un autre fichier base qui se trouve sous un autre répertoire
je souhaite modifier la cellule AJ3 du fichier base a partir du fichier code sans ouvrir le fichier base
10/01/2018, 12h36
Menhir

Il n'est pas possible de modifier une donnée (ni même de la lire) sans ouvrir le fichier.
Cela dit, "ouvrir" peut avoir des significations multiples.

En fonction de ce que tu souhaites faire exactement, il y a plusieurs solutions à ton problème.
La plus simple serait sans doute de faire une mise à jour du fichier "base" lors de son ouverture.

Citation:

je souhaite modifier la cellule AJ3 du fichier base a partir du fichier code sans ouvrir le fichier base

Je ne comprends pas cette formule.
Quelle est la nature (type, emplacement) de la donnée que tu récupères dans le fichier code et quelle opération est faite sur cette donnée pour obtenir la valeur à implanter dans ton fichier base ?
10/01/2018, 12h41
SOTUMA

Citation:

Envoyé par Menhir

Il n'est pas possible de modifier une donnée (ni même de la lire) sans ouvrir le fichier.
Cela dit, "ouvrir" peut avoir des significations multiples.

En fonction de ce que tu souhaites faire exactement, il y a plusieurs solutions à ton problème.
La plus simple serait sans doute de faire une mise à jour du fichier "base" lors de son ouverture.

Je ne comprends pas cette formule.
Quelle est la nature (type, emplacement) de la donnée que tu récupères dans le fichier code et quelle opération est faite sur cette donnée pour obtenir la valeur à implanter dans ton fichier base ?

en fait je souhaite écrire "OUI" dans la cellule AJ3 du fichier base sans ouvrir ce dernier
10/01/2018, 12h48
Phil'oche

je pensais pourtant que la modification sur un classeur fermé était possible (via OLE DB) ?

http://silkyroad.developpez.com/VBA/...sFermes/#LIV-C
10/01/2018, 13h07
unparia

Bonjour Phil'oche

Citation:

que la modification sur un classeur fermé était possible (via OLE DB) ?

et que ferait ta méthode, sans "ouvrir" ? Tu me le dis ?
Ne pas confondre "ne pas ouvrir avec Excel" et "ne pas ouvrir".
Il est impossible d'agir sur un fichier (même de simplement le lire) sans l'ouvrir, quelle que puisse être le mode choisi d'ouverture. :mouarf:
10/01/2018, 13h58
Menhir

Citation:

Envoyé par Phil'oche

je pensais pourtant que la modification sur un classeur fermé était possible (via OLE DB) ?

Comme je le disais, "ouvrir" peut avoir des significations multiples.
Regarde bien le code que tu as mis en lien. A ton avis, à quoi sert le méthode "Open" qu'on voit vers la ligne 15 ?
Si ce n'est pas une ouverture de fichier, ça y ressemble fortement, non ? :mrgreen:

Même mettre un lien dans Excel vers une donnée externe implique une ouverture.

La seule méthode (à ma connaissance) de lire/écrire une donnée dans un fichier sans l'ouvrir est d'attaquer directement le secteur disque sur lequel elle se trouve.
Perso, c'est une méthode que je n'ai plus rencontré depuis que les disquettes 5"1/4 ont été abandonnées et que les supports font plus de 360 ko.

Code:

1
2
3
4
5
6
7
Sub test()
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;"""
    .Execute "Update [Feuil1$AJ3:AJ3] set [F1]='TOTO'"
    .Close
 End With
End Sub

Citation:
Envoyé par dysorthographie
Code:

1 2 3 4 5 6 7 Sub test() With CreateObject("Adodb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;""" .Execute "Update [Feuil1$AJ3:AJ3] set [F1]='TOTO'" .Close End With End Sub
merci pour votre réponse mais comme je suis débutant je vous demande de m'indiquer ou se trouve le nom du fichier que je souhaite modifier
en fait ce que je souhaite est la chose suivante
dans un sub teste se trouvant dans un module du fichier source je souhaite ecrire "OUI" dans la cellule AJ3 du fichier base qui se trouve dans un répertoire autre que celui du fichier source
le fichier base se trouve dans ThisWorkbook.Path & "\BASES\"
sub teste()

je souhaite mettre "OUI" dans le fichier base sans l'ouvrir

end sub

merci d'avance

Fichier.XlsX
[Onglet$Plage]

Code:

1
2
3
4
5
6
Sub test()
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;"""
    .Execute "Update [Feuil1$AJ3:AJ3] set [F1]='TOTO'"
    .Close
 End With End Sub

10/01/2018, 14h35
unparia

Citation:

je souhaite mettre "OUI" dans le fichier base sans l'ouvrir

Quand on insiste, on insiste, hein ...
Bon -->> réponse --->> en utilisant le même procédé que celui que tu utiliserais pour mettre une étiquette à un vêtement qui se trouve dans ta valise sans ouvrir cette valise. :roll:
10/01/2018, 14h41
Invité

1 pièce(s) jointe(s)

c'est un abus de langage communément employé et ce même sur ce forum!

un forum est une communauté ou chaque participant en accepte les usage!

Pièce jointe 341322

Citation:
Envoyé par dysorthographie
Fichier.XlsX
[Onglet$Plage]
Code:

1 2 3 4 5 6 Sub test() With CreateObject("Adodb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;""" .Execute "Update [Feuil1$AJ3:AJ3] set [F1]='TOTO'" .Close End With End Sub
merci pour votre attention

j'ai essayé d'adapter votre code comme suit
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim Annee As Integer Annee = Year(Date) With CreateObject("Adodb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\BASES\" & "BASE " & Annee - 1 & "\MENU PRINCIPAL.xlsm" & ";Extended Properties=""Excel 12.0;HDR=No;""" .Execute "Update [PARAMETRES$AJ3:AJ3] set [F1]='OUI'" .Close End With End Sub
mais ça ne donne rien ou est l'erreur la cellule AJ3 se trouve dans une feuille PARAMETRES du classeur MENU PRINCIPAL.XLSM
LE SUB TESTE se touve dans un module d'un autre classeur

10/01/2018, 15h34
Invité

tu as ouvert le classeur en question pour voir le résultat, oui je présume! ça va sens dire mais ça va mieux en le disant!
10/01/2018, 15h40
SOTUMA

Citation:

Envoyé par dysorthographie

tu as ouvert le classeur en question pour voir le résultat, oui je présume! ça va sens dire mais ça va mieux en le disant!

désolé effectivement j'ai ouvert le dossier et la valeur de la cellule AJ3 de la feuille parametres n'a pas changé
10/01/2018, 15h47
Invité

ThisWorkbook concerne le classeur qui exécute la macro!

si .Execute "Update [PARAMETRES$AJ3:AJ3] set [F1]='OUI'" sens message d'erreur c'est que la macro est Ok mais sur quel fichier??????

fais un debug.print ThisWorkbook.Path
10/01/2018, 15h51
SOTUMA

Citation:

Envoyé par dysorthographie

ThisWorkbook concerne le classeur qui exécute la macro!

si .Execute "Update [PARAMETRES$AJ3:AJ3] set [F1]='OUI'" sens message d'erreur c'est que la macro est Ok mais sur quel fichier??????

effectivement ThisWorkbook concerne le classeur qui exécute la macro
j'ai même regarder dans la cellule AJ3 de toutes les feuilles du fichier qui execute la macro je n'ai pas trouvé le mot OUI