[RESOLU] Récupération d'une plage d'un classeur fermé - XL2010

  • Initiateur de la discussion Initiateur de la discussion Ternoise
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ternoise

XLDnaute Occasionnel
Bonjour le forum

J'ai une fonction (connu de tous) qui fonctionne très bien sur XL 2003.

Sur un autre PC avec XL 2010, ça ne marche plus.

Je vous met 2 fichiers de démo en pièces jointes.

Mettre ces 2 fichiers dans un répertoire ""c:\Fichtemp"" et ouvrir ""Classeur_Cible""

Merci de votre aide

David
 
Dernière édition:
Re : Récupération d'une plage d'un classeur fermé - XL2010

Re,

Il n'est pas trop difficile de se rendre compte que le problème vient de la colonne P du fichier CHRONOS.xlsm.

ADO n'accepte pas les valeurs textes "Normal" et "Super" alors que les cellules sont au format "heure" !

J'ai mis cette colonne P au format "Standard", il n'y a plus de problème.

Fichiers joints.

Je vais maintenant regarder ce qui se passe avec la solution par formule de liaison.

A+
 

Pièces jointes

Re : Récupération d'une plage d'un classeur fermé - XL2010

Re,

Avec la formule de liaison aucun problème avec les formats des colonnes.

Les valeurs zéros de la feuille DIRECTION sont masquées en décochant l'option avancée idoine.

La macro utilisée :

Code:
Sub Import()
Dim fichier$, f$, nlig&, ncol%
'---préparation---
fichier = ThisWorkbook.Path & "\CHRONOS.xlsm" 'à adapter
f = "'" & fichier & "'!T"
nlig = ExecuteExcel4Macro("ROWS(" & f & ")")
ncol = ExecuteExcel4Macro("COLUMNS(" & f & ")")
'---restitution du tableau en B9---
Application.ScreenUpdating = False
With Sheets("DIRECTION")
  .Rows("9:" & Rows.Count).Delete  'RAZ
  With .[B9].Resize(nlig, ncol)
    .FormulaArray = "=" & f 'formule matricielle
    .Value = .Value 'suppression des formules
    .Name = "T" 'nomme la plage
    .Borders.Weight = xlThin 'bordures
  End With
End With
End Sub
Fichiers joints.

A+
 

Pièces jointes

Re : Récupération d'une plage d'un classeur fermé - XL2010

Re Job75

Bon boulot. Un grand merci. Avec la formule de liaison, c'est impeccable. J'aurais du partir sur cette option des que vous me l'avez dis ! Des claques !!!

Pendant ce temps, je cherchais l'erreur avec le ADO ! Oui je suis borné !

Mais comment avez-vous vu cela du premier coup d’œil ? !
Il n'est pas trop difficile de se rendre compte que le problème vient de la colonne P du fichier CHRONOS.xlsm.

Inexplicable pour moi ! Bref, j'étais assez emballé que mon classeur aller fonctionner.
J'ai donc changé le format de cette colonne. Hé bin non, il ne fonctionnait toujours pas.

Je me suis mis dans la recherche des erreurs de format de ce tableau et...j'ai bien trouvé cette erreur !
Mais je n'ai vraiment pas d'explication ! Et franchement, même si je vais utiliser le classeur avec formule de liaison, j'aimerais comprendre le pourquoi du comment ! Borné !

L'erreur est en I764 du classeur "chronos" (j'ai passé du temps à trouver cette cellule !!!)

Si vous définissez "T" jusqu’à R763, ça fonctionne.
Mettez "T" jusqu'à R764, ça plante !

Pourtant la cellule I763 est la même que I764

Si vous avez l'envie de vous arracher les cheveux ??? !!!

Encore merci
David
 

Pièces jointes

Dernière édition:
Re : Récupération d'une plage d'un classeur fermé - XL2010

Re,

Il n'est pas trop difficile de se rendre compte que le problème vient de la colonne P du fichier CHRONOS.xlsm.

Le débogueur permet tout simplement de connaître les valeurs qui beuguent 🙄

Sur votre dernier fichier qui beugue :

- RS_n = 756 donc ligne = 756 + 8 = 764

- RS_f = 12 donc colonne = 12 + 1 + 1 = 14 => colonne N

La cellule N764 n'est pas un nombre (heure) mais du texte, vous pouvez vérifier avec =ESTTEXTE(N764)

Edit : ensuite les bugs se produisent en colonne O (O764 et suivantes) où il y a des textes vides "".

A+
 
Dernière édition:
Re : [RESOLU] Récupération d'une plage d'un classeur fermé - XL2010

Re,

Pour info je viens d'envoyer ce MP à Ternoise :

job75 à dit:
Bonsoir Ternoise,

Il y a une chose qui n'est vraiment pas bien de votre part.

Au post #15 de ce fil vous avez supprimé les 2 fichiers joints.

Comment voulez-vous qu'ensuite un visiteur s'y retrouve ???

J'ai remarqué que vous avez fait la même chose sur vos discussions antérieures.

Si c'est une manie il faut la perdre !

Cordialement,

job75

Bonne fin de soirée.

Edit : putain, il a aussi supprimé les fichiers des posts #1 et #18, c'est de la paranoïa !

job75 à dit:
Re,

https://www.excel-downloads.com/thr...une-plage-dun-classeur-ferme-xl2010.20004384/

Si vous ne remettez pas en place tous les fichiers supprimés je ne m'occuperai plus jamais de vous, désolé.

A+
 
Dernière édition:
Re : [RESOLU] Récupération d'une plage d'un classeur fermé - XL2010

Bonjour Job75

J'ai fais une erreur. Je voulais archiver les anciens messages et les pièces jointes.
C'est vraiment une erreur. Je vais essayer de retrouver les fichiers.

Encore désolé.

Cordialement

David
 
Re : [RESOLU] Récupération d'une plage d'un classeur fermé - XL2010

Punaise, j'ai vraiment tout viré. Même les anciens fichiers. Je suis en rage la.
Vraiment désolé le Forum.

Je vais regarder sur différents ordi si je retrouve mes fichiers exemples.

Le problème c'est que quand je met un fichier exemple qui ne fonctionne pas, je le met sur forum et quand la solution est trouvée je le supprime de l'ordi. Mauvaise organisation.
 
Re : [RESOLU] Récupération d'une plage d'un classeur fermé - XL2010

Posts #1 et #15 je ne retrouve pas.
Post "18 retrouvé

Peut être sur un ordi pro, je rechercherais demain


Si vous ne remettez pas en place tous les fichiers supprimés je ne m'occuperai plus jamais de vous

Je reconnais ma faute, il ne faut pas m'en vouloir. C'est souvent vous qui m'aidez dans mes projets, J'espère que cette erreur sera oubliée !

Cordialement
David
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
Réponses
0
Affichages
735
laiglenoir
L
P
Réponses
15
Affichages
2 K
pedrofabien1986
P
J
Réponses
3
Affichages
1 K
jasol
J
Retour