OVH Cloud OVH Cloud

Affichage extension fichier et Pb macros

2 réponses
Avatar
JacquesH
Bonjour à toutes et à tous,

Depuis ce midi, j'ai un souci car aucune de mes macros ne
fonctionne correctement. Dans plusieurs fichiers, elles bloquent toutes
sur une ligne du même genre.

Il s'agit d'une ligne qui copie les infos d'un fichier sur un
autre :

Workbooks("Classeur2").Sheets("Feuil1").Range("A1:M1000") =
Workbooks("Classeur1").Sheets("Feuil1").Range("A1:M1000").Value

J'ai essayé de voir ce que j'avais pu faire ces derniers jours.

EXCEL 97 - WINDOWS 95 mais j'ai essayé sur 2 ordinateurs.
En fait, la solution est la suivante : dans l'explorateur -
Affichage - Options des dossiers - Affichage - Masquer les extensions
des fichiers dont le type est connu.

Case cochée = extensions masquées = la ligne de code
fonctionne.
Case décochée = extensions apparentes = la ligne de code ne
fonctionne pas.

Quelqu'un a-t-il déjà rencontré ce problème ?

Si oui, que faut-il changer au code pour faire fonctionner les
macros avec les extensions apparentes ?

Merci d'avance.

Jacques

2 réponses

Avatar
Rai
Bonjour Jacques,

Ajoute systématiquement .xls après tes noms de classeur.
Ca devrait fonctionner dans tous les cas (extensions masquées ou non)
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:M1000") =
ou
Workbooks("Classeur2"&".xls").Sheets("Feuil1").Range("A1:M1000") =

Cordialement

Rai

"JacquesH" a écrit dans le message de news:
Bonjour à toutes et à tous,

Depuis ce midi, j'ai un souci car aucune de mes macros ne
fonctionne correctement. Dans plusieurs fichiers, elles bloquent toutes
sur une ligne du même genre.

Il s'agit d'une ligne qui copie les infos d'un fichier sur un
autre :

Workbooks("Classeur2").Sheets("Feuil1").Range("A1:M1000") =
Workbooks("Classeur1").Sheets("Feuil1").Range("A1:M1000").Value

J'ai essayé de voir ce que j'avais pu faire ces derniers jours.

EXCEL 97 - WINDOWS 95 mais j'ai essayé sur 2 ordinateurs.
En fait, la solution est la suivante : dans l'explorateur -
Affichage - Options des dossiers - Affichage - Masquer les extensions
des fichiers dont le type est connu.

Case cochée = extensions masquées = la ligne de code
fonctionne.
Case décochée = extensions apparentes = la ligne de code ne
fonctionne pas.

Quelqu'un a-t-il déjà rencontré ce problème ?

Si oui, que faut-il changer au code pour faire fonctionner les
macros avec les extensions apparentes ?

Merci d'avance.

Jacques







Avatar
JacquesH
Bonjour Rai,

J'ai juste pris le temps de tester ta solution qui me semble tout résoudre.

J'avais eu cette idée ce matin, mais je n'avais pas réussi. Sans doute une erreur de recopie.

Merci beaucoup.

Cordialement

Jacques


Bonjour Jacques,

Ajoute systématiquement .xls après tes noms de classeur.
Ca devrait fonctionner dans tous les cas (extensions masquées ou non)
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:M1000") > ou
Workbooks("Classeur2"&".xls").Sheets("Feuil1").Range("A1:M1000") >
Cordialement

Rai

"JacquesH" a écrit dans le message de news:
Bonjour à toutes et à tous,

Depuis ce midi, j'ai un souci car aucune de mes macros ne
fonctionne correctement. Dans plusieurs fichiers, elles bloquent toutes
sur une ligne du même genre.

Il s'agit d'une ligne qui copie les infos d'un fichier sur un
autre :

Workbooks("Classeur2").Sheets("Feuil1").Range("A1:M1000") > > Workbooks("Classeur1").Sheets("Feuil1").Range("A1:M1000").Value

J'ai essayé de voir ce que j'avais pu faire ces derniers jours.

EXCEL 97 - WINDOWS 95 mais j'ai essayé sur 2 ordinateurs.
En fait, la solution est la suivante : dans l'explorateur -
Affichage - Options des dossiers - Affichage - Masquer les extensions
des fichiers dont le type est connu.

Case cochée = extensions masquées = la ligne de code
fonctionne.
Case décochée = extensions apparentes = la ligne de code ne
fonctionne pas.

Quelqu'un a-t-il déjà rencontré ce problème ?

Si oui, que faut-il changer au code pour faire fonctionner les
macros avec les extensions apparentes ?

Merci d'avance.

Jacques