Discussion :

[SOTUMA]

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

[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 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 ?

[SOTUMA]

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

[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

[unparia]

Bonjour Phil'oche

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.

[Menhir]

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 ?

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.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SOTUMA]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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.

[Invité]

Fichier.XlsX
[Onglet$Plage]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SOTUMA]

Fichier.XlsX
[Onglet$Plage]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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!

[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!

[SOTUMA]

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é

[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

[SOTUMA]

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