Classeur Fermé - Classeur Ouvert

[Munchkin]

bonjour

je cherche à faire des recherche dans un classeur fermé

j'ai vu d'autre fil a ce sujet mais j'ai pas réussi à les adaptés.....

en fait j'ai une colonne qui contient les numéro des configuration et cela dans mon classeur ouvert

exemple: colonne A de la ligne 1 à 30

je vroudrais calculer le temps de passage de la configuration de la ligne i à la configuration à la ligne i+1

pour cela je vais dans le classeur fermé là où j'ai les données nécéssaires pour les recopier dans classeurOvert

mmmmm est c'est facile à faire?

Munchkin

 

[Arnaud]

salut,

tient vl'a un ex vite fait. par contre g pas mis de chemin pour l'emplacement du fichier donc il va le chercher a l'endrois par défaut donc MesDocuments.

 

[Munchkin]

salut arnaud, j'arrive pas à téléchrger le fichier. j'occupe un poste pour cette semaine sur lequel on n'a pas le droit de tout téléchrger,

est ce c'est possible de l'envoyé à mon mail? merci d'avance et bon appétit

Munchkin

 

[Munchkin]

Peut etre arnaud n'est pas là, est ce quelqu'un pourra me renvoyé le fichier que arnaud avait envoyé. je l'ai pas recu par mail car j'avais pas renseiggné ce dernier

je ne peut télécharger du forum.

Merci d'avance

Munchkin

 

[Arnaud]

bizarre. pourtant je te l'ai envoyé mais bon vu que ça fais presque 1 heure il y a du avoir un problème donc si effectivement quelqu'un d'autre pouvais essayer de l'envoyer.

 

[Munchkin]

je l'ai bien recu,

c'est pas tout à fait ce que je voulais.
je ce que voulais c'est rechercher les valeurs dans le fichier ferme et les copier dans classeurOvert. ClasseurFerme reste ferme

là tu m'a envoyé quelquechose qui peut etre utile, je vais voir coment l'adapter à m'a demande

Merci Arnaud, c'était gentil

The Munchkin

 

[Jean]

Bonjour à vous deux, Munchkin et Arnaud et le forum

Est-ce qu'il serait possible que la copie de la colonne du classeur fermé vers le classeur ouvert change de colonne vers la droite a chaque fois que l'on clique sur le bouton ?

Je remercie d'avance ceux qui voudront bien me répondre.

Bonne journée


Jean

 

[Arnaud]

Munchkin, je ne vois pas trop comment on pourrais lire des données dans un fichier sans l'ouvrir. en tout cas si c possible cela dépasse mes compétences. mais à mon avis tu est obligé de l'ouvrir. pas forcement avec excel mais si tu l'ouvre avec notepad par ex, cela deivent compliqué a lire....

 

[Munchkin]

Pour arnaud:
compris, je vais faire avec, c'est pas très génant

mais je n'ai pas compris la notion workbooks(1) et workbooks(2) que tu utilise

commment savoir lequel c'est le un et lequel c'est le deux?

Pour Jean:

je pense si tu fais un compteur i qui prend la valeur de la colonne dans le classeur ouvert et à la fin du code du bouton tu ajoute 1 (peut etre il faut adapter le code que ca soit des cells(ii, i) que tu trvail avec et non pas des range.)

in, c'est ce que je pense, mais est ce que ca marche?

Munchkin

 

[Mytå]

Salut Munchkin, Arnaud, Jean et le Forum

Pour lire ou écrire dans un classeur fermé voir sur :

<url>http://perso.wanadoo.fr/frederic.sigonneau/Ado.htm</url>http://perso.wanadoo.fr/frederic.sigonneau/Ado.htm

Mytå

 

[Mytå]

Re Salut Munchkin, Arnaud, Jean et le Forum

Pour lire ou écrire dans un classeur fermé voir sur :

Lien supprimé

Mieux comme cela

Mytå

 

[Munchkin]

d'accord Myta, je vais voir, merci beaucoup

Munchkin

 

[andré]

Salut à vous,

Il y a moyen de le faire par formule.
Cette question a déjà été reprise à plusieurs fois sur XLD.
Laisez-moi le temps de retrouver la réponse.

A bientôt.
André.

 

[Mytå]

Salut Munchkin, Arnaud, Jean, André et le Forum

Un bout de Macro pour lire dans un fichier fermé, d'après une macro XL4 de John Walkenbach trouvé dans mes archives.


Option Explicit

Private Function GetValue(Path, File, Sheet, Ref)
Dim Arg As String

'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If

'Crée l'argument
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)

'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function

Sub Recupere()

Dim P As String, F As String, S As String
Dim Ligne As Byte

For Ligne = 1 To 30
P = "C:\Mes Documents"
F = "ClasseurFerme.xls"
S = "Feuil1"
Cells(Ligne, 1) = GetValue(P, F, S, Cells(Ligne, 1).Address)
Cells(Ligne, 2) = Format(GetValue(P, F, S, Cells(Ligne, 2).Address), "hh:mm")
Next Ligne

End Sub

A suivre

Mytå

 

[Munchkin]

ouffffffffffffffffffffffffff t'es trop fort Myta

dommage t'es pas là pour voir mon sourir

j'ai envie de faire la fete à ton honneur se soir ))))))))))))))))))

Mille merci

et voilà, je suis heureux car ca n'a pas seulement résolu mon problème mais c'est mon chef qui n'arrivait pas à le faire grrrrrrrrrrrrrr

c'est mon tour à lui apprendre

encore merci
The Munchkin