Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Excel Access

Excel Access

14 réponses
Avatar
cirano
Bonjour,
J’ai une question compliquée à formuler:
J’ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J’ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l’autre nom de fichier.
Lorsque j’utilise maintenant cette macro (il y en a d’autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m’ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d’origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j’ai jeter le nouveau
fichier et maintenant la macro ne s’exécute pas et me signale qu’ Excel ne
trouve plus le fichier.
Quelqu’n aurais t’il une idée de ce qu’il c’est passé ? Et comment je
reviens à la situation d’origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l’usine à gaz !
Georges
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Pierre CFI [mvp]
bonjour
dans cette macro, tu ne fais pas réference à ce fichier ?
tu as le code ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Bonjour,
J'ai une question compliquée à formuler:
J'ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J'ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l'autre nom de fichier.
Lorsque j'utilise maintenant cette macro (il y en a d'autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m'ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d'origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j'ai jeter le nouveau
fichier et maintenant la macro ne s'exécute pas et me signale qu' Excel ne
trouve plus le fichier.
Quelqu'n aurais t'il une idée de ce qu'il c'est passé ? Et comment je
reviens à la situation d'origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l'usine à gaz !
Georges



Avatar
cirano
Je n'y fais nul part référence du moins je ne pense pas et je ne l'ai
certainement pas fait consciemment, cela c'est vraiment fait spontanément.
J’ai déjà dans le passé résolus ce problème avec un fichier similaire et en
copiant et collant mais ça n’a pas l’air de marché cette fois si.
Voici la macro (ceci non plus je me rappelle pas comment je l'ai pondue)
mais je me demande si elle est le noeud du problème ?
Sub reactualise()
'
' reactualise Macro
' De macro is opgenomen op 24/12/2001 door Compaq.
'

'
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:úlse
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
' Macro écrite le 24/12/01

'1°) trouver le nombre de lignes
Range("e6000").Select
Selection.End(xlUp).Select
DernièreLigne = Selection.Row

' 3°) Compéter la feuille avec les codes clients manquants
For NL = 2 To DernièreLigne
Code = Cells(NL, 4) ' le code de la colonne D
If Code = "" Then
Cells(NL, 4) = CodePrécédent
Else
CodePrécédent = Code
End If

Next NL

'For DJ = 2 To DernièreLigne
'Code = Cells(DJ, 12)
'If Code = "Nee" Then
' Cells(DJ, 12)


End Sub



bonjour
dans cette macro, tu ne fais pas réference à ce fichier ?
tu as le code ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Bonjour,
J'ai une question compliquée à formuler:
J'ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J'ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l'autre nom de fichier.
Lorsque j'utilise maintenant cette macro (il y en a d'autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m'ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d'origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j'ai jeter le nouveau
fichier et maintenant la macro ne s'exécute pas et me signale qu' Excel ne
trouve plus le fichier.
Quelqu'n aurais t'il une idée de ce qu'il c'est passé ? Et comment je
reviens à la situation d'origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l'usine à gaz !
Georges








Avatar
Pierre CFI [mvp]
.../...
il n'y a qu'ici eventuellement
Selection.QueryTable.Refresh BackgroundQuery:úlse
désactive là pour voir

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Je n'y fais nul part référence du moins je ne pense pas et je ne l'ai
certainement pas fait consciemment, cela c'est vraiment fait spontanément.
J'ai déjà dans le passé résolus ce problème avec un fichier similaire et en
copiant et collant mais ça n'a pas l'air de marché cette fois si.
Voici la macro (ceci non plus je me rappelle pas comment je l'ai pondue)
mais je me demande si elle est le noeud du problème ?
Sub reactualise()
'
' reactualise Macro
' De macro is opgenomen op 24/12/2001 door Compaq.
'

'
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:úlse
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
' Macro écrite le 24/12/01

'1°) trouver le nombre de lignes
Range("e6000").Select
Selection.End(xlUp).Select
DernièreLigne = Selection.Row

' 3°) Compéter la feuille avec les codes clients manquants
For NL = 2 To DernièreLigne
Code = Cells(NL, 4) ' le code de la colonne D
If Code = "" Then
Cells(NL, 4) = CodePrécédent
Else
CodePrécédent = Code
End If

Next NL

'For DJ = 2 To DernièreLigne
'Code = Cells(DJ, 12)
'If Code = "Nee" Then
' Cells(DJ, 12) >


End Sub



bonjour
dans cette macro, tu ne fais pas réference à ce fichier ?
tu as le code ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Bonjour,
J'ai une question compliquée à formuler:
J'ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J'ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l'autre nom de fichier.
Lorsque j'utilise maintenant cette macro (il y en a d'autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m'ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d'origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j'ai jeter le nouveau
fichier et maintenant la macro ne s'exécute pas et me signale qu' Excel ne
trouve plus le fichier.
Quelqu'n aurais t'il une idée de ce qu'il c'est passé ? Et comment je
reviens à la situation d'origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l'usine à gaz !
Georges










Avatar
cirano
OK, mais si je désactive le query je n'ai pas le résultat et la macro ne
fonctinnera pas non plus, mais c'est peux t'être une piste, peux t'être que
dans le query c'est glissé un link vers le nouveau nom, comment je fais pour
voir cela comment et ou ce trouve les querys avec un link vers Access ?


..../...
il n'y a qu'ici eventuellement
Selection.QueryTable.Refresh BackgroundQuery:úlse
désactive là pour voir

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Je n'y fais nul part référence du moins je ne pense pas et je ne l'ai
certainement pas fait consciemment, cela c'est vraiment fait spontanément.
J'ai déjà dans le passé résolus ce problème avec un fichier similaire et en
copiant et collant mais ça n'a pas l'air de marché cette fois si.
Voici la macro (ceci non plus je me rappelle pas comment je l'ai pondue)
mais je me demande si elle est le noeud du problème ?
Sub reactualise()
'
' reactualise Macro
' De macro is opgenomen op 24/12/2001 door Compaq.
'

'
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:úlse
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
' Macro écrite le 24/12/01

'1°) trouver le nombre de lignes
Range("e6000").Select
Selection.End(xlUp).Select
DernièreLigne = Selection.Row

' 3°) Compéter la feuille avec les codes clients manquants
For NL = 2 To DernièreLigne
Code = Cells(NL, 4) ' le code de la colonne D
If Code = "" Then
Cells(NL, 4) = CodePrécédent
Else
CodePrécédent = Code
End If

Next NL

'For DJ = 2 To DernièreLigne
'Code = Cells(DJ, 12)
'If Code = "Nee" Then
' Cells(DJ, 12) > >


End Sub



bonjour
dans cette macro, tu ne fais pas réference à ce fichier ?
tu as le code ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Bonjour,
J'ai une question compliquée à formuler:
J'ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J'ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l'autre nom de fichier.
Lorsque j'utilise maintenant cette macro (il y en a d'autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m'ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d'origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j'ai jeter le nouveau
fichier et maintenant la macro ne s'exécute pas et me signale qu' Excel ne
trouve plus le fichier.
Quelqu'n aurais t'il une idée de ce qu'il c'est passé ? Et comment je
reviens à la situation d'origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l'usine à gaz !
Georges















Avatar
cirano
Je pense avoir un nouvel indice concernant mon petit problème.
J'avais sur ma clé USB un exemplaire du fichier antécédent à la susdite
sauvegarde en rouvrant Excel sans aucun autre fichier et donc la macro dans
l’état ou elle ce trouvais avant j’ai le même problème: le fichier se ré
ouvre !
Donc la macro n’a rien à voir avec le prob ! Elle est dans l’état avant le
problème !
J’ai lus quelque part que Excel gardais en mémoire les dernier fichier
ouvert (les quatre fichier que l’on trouve dans le Menu « fichier » sont je
pense extensible à plus… est ce que ça ne peux pas être à l'origine de mon
soucis?



OK, mais si je désactive le query je n'ai pas le résultat et la macro ne
fonctinnera pas non plus, mais c'est peux t'être une piste, peux t'être que
dans le query c'est glissé un link vers le nouveau nom, comment je fais pour
voir cela comment et ou ce trouve les querys avec un link vers Access ?


..../...
il n'y a qu'ici eventuellement
Selection.QueryTable.Refresh BackgroundQuery:úlse
désactive là pour voir

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Je n'y fais nul part référence du moins je ne pense pas et je ne l'ai
certainement pas fait consciemment, cela c'est vraiment fait spontanément.
J'ai déjà dans le passé résolus ce problème avec un fichier similaire et en
copiant et collant mais ça n'a pas l'air de marché cette fois si.
Voici la macro (ceci non plus je me rappelle pas comment je l'ai pondue)
mais je me demande si elle est le noeud du problème ?
Sub reactualise()
'
' reactualise Macro
' De macro is opgenomen op 24/12/2001 door Compaq.
'

'
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:úlse
Columns("A:N").Select
Columns("A:N").EntireColumn.AutoFit
' Macro écrite le 24/12/01

'1°) trouver le nombre de lignes
Range("e6000").Select
Selection.End(xlUp).Select
DernièreLigne = Selection.Row

' 3°) Compéter la feuille avec les codes clients manquants
For NL = 2 To DernièreLigne
Code = Cells(NL, 4) ' le code de la colonne D
If Code = "" Then
Cells(NL, 4) = CodePrécédent
Else
CodePrécédent = Code
End If

Next NL

'For DJ = 2 To DernièreLigne
'Code = Cells(DJ, 12)
'If Code = "Nee" Then
' Cells(DJ, 12) > > >


End Sub



bonjour
dans cette macro, tu ne fais pas réference à ce fichier ?
tu as le code ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"cirano" a écrit dans le message de news:
Bonjour,
J'ai une question compliquée à formuler:
J'ai dans un fichier Excel une macro qui va chercher des données dans un
fichier Access qui est lui-même synchronisés avec une base de données sur mon
Ipaq.
J'ai sauvegardé le fichier dans lequel ce trouve cette macro sous un autre
nom pour essayer un truc (sur lequel je reviendrais plus tard dans une autre
question) et je pense (je ne suis même pas sur) avoir utilisés cette macro
sous l'autre nom de fichier.
Lorsque j'utilise maintenant cette macro (il y en a d'autres dans ce
document qui fonctionnent correctement) dans le fichier original, Excel
m'ouvre spontanément le nouveau fichier et exécute la macro dans le fichier
d'origine (le bon).
Je ne veux évidement pas de cette ouverture spontanée, j'ai jeter le nouveau
fichier et maintenant la macro ne s'exécute pas et me signale qu' Excel ne
trouve plus le fichier.
Quelqu'n aurais t'il une idée de ce qu'il c'est passé ? Et comment je
reviens à la situation d'origine ?
Je me tiens évidement à votre disposition pour éclaircir éventuellement
cette question qui tiens de l'usine à gaz !
Georges

















Avatar
JpPradier
Bonsoir cirano

Une question : est-ce que ta macro est affectée à un bouton ? si oui, il faut peut-etre réaffecter
la macro qui se trouve dans le bon fichier.

j-p
Avatar
cirano
Bien vu! C'est ça!!!!!


Bonsoir cirano

Une question : est-ce que ta macro est affectée à un bouton ? si oui, il faut peut-etre réaffecter
la macro qui se trouve dans le bon fichier.

j-p




Avatar
cirano
Je remercie J-P pour avoir mis le doigt la ou il fallait :-)
Maintenant je voudrais vous demandez comment faire pour sauvegarder dans une
même macro le fichier 2 fois dans 2 répertoires différents, une première fois
dans le fichier partagé pour qu'il sois lisible par le réseau et la deuxième
fois dans le répertoire ou il est aujourd'hui à cause de liens avec d'autres
fichiers.
J’ai voulu enregistrer la macro pour voir ce que cela donnait comme code,
pour ensuite les coller dans la macro existante, mais j’ai donc subis les
conséquences ci-dessous !


Bien vu! C'est ça!!!!!


Bonsoir cirano

Une question : est-ce que ta macro est affectée à un bouton ? si oui, il faut peut-etre réaffecter
la macro qui se trouve dans le bon fichier.

j-p






Avatar
JpPradier
Bonsoir cirano

Peut-etre en utilisant SaveCopyAs ?
Une autre solution est d'affecter la macro au bouton à chaque ouverture de classeur via VBA.

j-p
Avatar
cirano
Bonsoir,

J'ai été absent quelques jours et je n'ai donc pas réagis, excuses.

J'avais enregistré la macro qui avais engendré l'erreur de cette façon
"enregistrer sous "2 nom" dans le répertoire partagé et ensuite enregistrer
sous "nom d'origine" mais avec l’erreur précitée comme résultat.
J'ai malgré tout refais la même chose, l'erreur macro ne ce manifeste plus
seulement il me demande en court d'exécution « le fichier existe dèjà
remplacer ? oui/non comment squizer ceci ?

Excusé moi mais en VBA je ne connais que puic.

Merci,



Bonsoir cirano

Peut-etre en utilisant SaveCopyAs ?
Une autre solution est d'affecter la macro au bouton à chaque ouverture de classeur via VBA.

j-p




1 2