Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compresser en une ligne

Compresser en une ligne

17 réponses
Avatar
Claire
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
FxM
Bonsoir Claire,

Windows("Caisse sku.xls").Activate


Essaie voir avec :
Windows("Caisse sku").Activate

@+
FxM



Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
Joël GARBE
Bonsoir,

tiret = Workbooks("Caisse sku.xls").ActiveSheet.=range("J2").Value

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Claire" a écrit dans le message de news:
OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
FxM
Re-bsr,

tiret = Workbooks("Caisse sku.xls").Range("j2").Value
[teste avec ou sans .xls]

Attention ! il y a une différence MAJEURE avec ce que tu indiques :
Le classeur Caiise SKU n'est pas la document actif.

@+
FxM



Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire




Avatar
michdenis
Bonjour Claire,

essaie de cette manière :

With Windows("Caisse sku.xls")
.activate
tiret = .Range("j2").Value
End With


Salutations!


"Claire" a écrit dans le message de news: OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire
Avatar
Joël GARBE
OH !!! FxM

Tu es sûr de toi là ??? (et la feuille alors, keskon en fait ?)

Bon week-end !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"FxM" a écrit dans le message de news:

Re-bsr,

tiret = Workbooks("Caisse sku.xls").Range("j2").Value
[teste avec ou sans .xls]

Attention ! il y a une différence MAJEURE avec ce que tu indiques :
Le classeur Caiise SKU n'est pas la document actif.

@+
FxM



Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire





Avatar
Joël GARBE
Bonsoir,

Elle demande une ligne, et tu lui en donnes 4 pour le même prix !!!

trop top !!

Bon week-End

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"michdenis" a écrit dans le message de news:
%
Bonjour Claire,

essaie de cette manière :

With Windows("Caisse sku.xls")
.activate
tiret = .Range("j2").Value
End With


Salutations!


"Claire" a écrit dans le message de news:
OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire





Avatar
FxM
OH !!! FxM
Tu es sûr de toi là ??? (et la feuille alors, keskon en fait ?)
Ben non, comme d'hab je n'ai pas fait de test. Je me suis rendu compte

de l'oubli en lisant ta réponse (bien que j'ai un doute sur
l'activesheet d'un classeur non activé).

Bon week-end !!!
De même

@+
FxM

Avatar
FxM
OH !!! FxM

Tu es sûr de toi là ??? (et la feuille alors, keskon en fait ?)

Bon week-end !!!



Testé sous Excel 2000 :

Sub test()
tt = Workbooks("xl-test_ferme01.xls").ActiveSheet.Range("A1").Value
End Sub

Ce fut dur :o))

@+
FxM

Avatar
Joël GARBE
Bonsoir (re)

Je confirme qu'il y a une ActiveSheet par WorkBook, qu'il soit actif ou non
!, de même qu'il y a une ActiveCell par WorkSheet !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"FxM" a écrit dans le message de news:

OH !!! FxM
Tu es sûr de toi là ??? (et la feuille alors, keskon en fait ?)
Ben non, comme d'hab je n'ai pas fait de test. Je me suis rendu compte de

l'oubli en lisant ta réponse (bien que j'ai un doute sur l'activesheet
d'un classeur non activé).

Bon week-end !!!
De même

@+
FxM



Avatar
michdenis
Bonjour Joël,

" Elle demande une ligne "

Je suppose que si elle savait faire, elle ne poserait pas la question ! En ce sens, je me sens pas lier par sa demande.
Il y a plusieurs façons d'écrire ce qu'elle demande... et de façon générale, tout mettre sur la même ligne n'est pas
celle que j'utilise le plus souvent !


Salutations!



"Joël GARBE" a écrit dans le message de news: 418d1467$0$18920$
Bonsoir,

Elle demande une ligne, et tu lui en donnes 4 pour le même prix !!!

trop top !!

Bon week-End

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"michdenis" a écrit dans le message de news:
%
Bonjour Claire,

essaie de cette manière :

With Windows("Caisse sku.xls")
.activate
tiret = .Range("j2").Value
End With


Salutations!


"Claire" a écrit dans le message de news:
OGD%
Bonjour,

J'aimerais compresser ces 2 lignes de code en une seule. A chaque fois
que
j'essaie, j'ai un message d'erreur 1004.

Windows("Caisse sku.xls").Activate
tiret = Range("j2").Value

Merci
Claire





1 2