Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre, dès
que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce qu'il y
quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre, dès
que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce qu'il y
quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre, dès
que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce qu'il y
quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat en
C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier au
code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" <i@v> a écrit dans le message de news: ef$CLlv2JHA.4412@TK2MSFTNGP06.phx.gbl...
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le résultat
en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je modifier
au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" <i@v> a écrit dans le message de news: ef$CLlv2JHA.4412@TK2MSFTNGP06.phx.gbl...
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" <i@v> a écrit dans le message de news: ef$CLlv2JHA.4412@TK2MSFTNGP06.phx.gbl...
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Je me révise, cela fonctionne parfaitement
c'est juste que si un fichier comporte un apostrophe, il me fait une erreur 400.
mais pour le reste, cela fonctionne bien
Merci encore
"isabelle" a écrit dans le message de news:bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Je me révise, cela fonctionne parfaitement
c'est juste que si un fichier comporte un apostrophe, il me fait une erreur 400.
mais pour le reste, cela fonctionne bien
Merci encore
"isabelle" <i@v> a écrit dans le message de news: O4opXZ92JHA.4880@TK2MSFTNGP03.phx.gbl...
bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :
Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" <i@v> a écrit dans le message de news: ef$CLlv2JHA.4412@TK2MSFTNGP06.phx.gbl...
bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :
Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" <i@v> a écrit dans le message de news: OjuIPbk2JHA.4368@TK2MSFTNGP05.phx.gbl...
bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :
Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" <i@v> a écrit dans le message de news: %23LCxY0j2JHA.5772@TK2MSFTNGP02.phx.gbl...
marc a écrit :
Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle
Bonjour Isabelle
Je me révise, cela fonctionne parfaitement
c'est juste que si un fichier comporte un apostrophe, il me fait une erreur 400.
mais pour le reste, cela fonctionne bien
Merci encore
"isabelle" a écrit dans le message de news:bonjour Marc,
Cherche la clé HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand
elle doit être comme ceci :
"C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE" "%1"
isabelle
marc a écrit :Bonjour Isabelle
C'est ce que j'ai comme option déjà et ça ne fonctionne pas.....
Merci de toujours m'aider.
Marc
"isabelle" a écrit dans le message de news: ef$bonjour Marc,
j'ai retrouvé cette réponse de geedee à propos de ce sujet :
_____________________________________________________________
Voir sous Windows au niveau de l'explorateur,
Menu Outils > option des dossiers...
Onglet types de fichiers
Selectionner l'extension XLS
Bouton Avancé
Modification du type de fichier
Action : Ouvrir
Modifier
le message DDE doit etre :
[open("%1")]
Valider OK
nb : les doubles-quotes sont ici essentielles
_____________________________________________________________
isabelle
marc a écrit :Bonjour Isabelle
Concernant le nom des fichiers. Si le dossier est sur le C, les fichiers peuvent contenir des espaces dans le nom. par contre,
dès que j'adapte pour un "drive sur le réseau", il fait une erreur avec les mêmes fichiers qui sur le C fonctionnait. Est-ce
qu'il y quelque chose que je peux faire.
Merci de ton aide.
Marc
"isabelle" a écrit dans le message de news:bonjour Marc,
je corrige mon erreur,
si tu veut laisser le fichier Total dans le même répertoire,
remplace :
If File.Name <> "Total" Then
par:
If File.Name <> "Total.xls" Then
isabelle
marc a écrit :Bonjour Isabelle
J'ai mis le fichier "ailleurs" que dans le répertoire et l'erreur est disparu.
Un gros merci pour ton aide, ça fonctionne parfaitement.
Merci et bonne fin de journée
Marc
"isabelle" a écrit dans le message de news: %marc a écrit :Isabelle
ça fonctionne. Mais j'ai deux questions.
1. Présentement, le premier fichier s'écrit dans la cellule B6 avec le résultat en B7. Le deuxième nom en C6 et le
résultat en C7.
Si je veux : le premier fichier en B6 et son résultat en C6 et le deuxième en B7 et son résultat en C7, que dois je
modifier au code?
2. Après l'avoir exécuté, la macro indique une erreur 400. Est-ce que c'est parce que mon fichier total est dans le même
répertoire?
est ce que tu sais sur quel ligne il se produit l'erreur ? (appuyer sur debug et noter la ligne en jaune)
isabelle