Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
Bonjour
Si j'ai bien compris :
La requête Query nommée CA se situe donc dans ta feuille CAmensuel ?
Les éléments de configuration de ta requête se situent sur la feuille
"Feuil1" (chaîne de connexion et syntaxe de requête)
Si c'est bien ça :
With Worksheets("CAmensuel").QueryTables(CA)
..Connection = worksheets("Feuil1").[A1]
..CommandText = worksheets("Feuil1").[A2]
..Refresh
End with
Cordialement
Pascal
"CAIRIS" a écrit dans le message de news:Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
Bonjour
Si j'ai bien compris :
La requête Query nommée CA se situe donc dans ta feuille CAmensuel ?
Les éléments de configuration de ta requête se situent sur la feuille
"Feuil1" (chaîne de connexion et syntaxe de requête)
Si c'est bien ça :
With Worksheets("CAmensuel").QueryTables(CA)
..Connection = worksheets("Feuil1").[A1]
..CommandText = worksheets("Feuil1").[A2]
..Refresh
End with
Cordialement
Pascal
"CAIRIS" <Kerguestenen@wanadoo.fr> a écrit dans le message de news:
ABAFA89F-BB3A-4810-8B25-03CF010722D0@microsoft.com...
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
Bonjour
Si j'ai bien compris :
La requête Query nommée CA se situe donc dans ta feuille CAmensuel ?
Les éléments de configuration de ta requête se situent sur la feuille
"Feuil1" (chaîne de connexion et syntaxe de requête)
Si c'est bien ça :
With Worksheets("CAmensuel").QueryTables(CA)
..Connection = worksheets("Feuil1").[A1]
..CommandText = worksheets("Feuil1").[A2]
..Refresh
End with
Cordialement
Pascal
"CAIRIS" a écrit dans le message de news:Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé
mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
.Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
.Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" a écrit dans le message de news:
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" <Kerguestenen@wanadoo.fr> a écrit dans le message de news:
ABAFA89F-BB3A-4810-8B25-03CF010722D0@microsoft.com...
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" a écrit dans le message de news:
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" a écrit dans le message de news:
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" <Kerguestenen@wanadoo.fr> a écrit dans le message de news:
ABAFA89F-BB3A-4810-8B25-03CF010722D0@microsoft.com...
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
Si CA est le nom de ton QueryTable, tu dois utiliser les guillements comme ceci :
..Range("A1") = Worksheets("CAmensuel").QueryTables("CA").Connection
C'est Ok si c'est CA est une variable et qu'elle est effectivement bien renseignée du nom de ton
QueryTable.
Cette procédure va simplement afficher dans la cellule A1 et A2 les chaînes "Connection" et
"CommandText"
qui ont été utilisé lors de la création de ce querytable spécifique...Est-ce le but que tu
recherches ?
"CAIRIS" a écrit dans le message de news:
Bonjour
J'ai pris connaissance de mails très détaillés expliquant la nécessité de
créer une macro pour modifier la source de données d'un tableau croisé mais
malheureusement, mon niveau en VB est insuffisant pour adapter le code
proposé.
Ci joint le code que j'ai essayé d'adapter :
Sub MajTCD()
With Worksheets("Feuil1")
..Range("A1") = Worksheets("CAmensuel").QueryTables(CA).Connection
..Range("A2") = Worksheets("CAmensuel").QueryTables(CA).CommandText
End With
End Sub
l'onglet "Feuil1" contient la connexion que j'ai modifiée en A1 :
ODBC;DSN=MS Access Database;DBQ=D:Cairis
ConseilDéveloppementsThaeronsThaeron.mdb;DefaultDir=D:Cairis
ConseilDéveloppementsThaerons;DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;
et le COmmandText en A2
et l'onglet CAMensuel contient de le tableau croisé CA.
Quand je lance la macro, elle plante dès la ligne .range("A1")....
Quelqu'un peut-il m'aider ?
Merci d'avance
--
Catherine