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 Je perds le chemin de ma clé.

Je perds le chemin de ma clé.

5 réponses
Avatar
Patrick BASTARD
Bonjour, toutes et tous.

Workbooks.OpenText Filename:="b:\Analyse des HD\DELACH\91.XLS", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
_
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1),
_
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Windows("91.XLS").Activate
Sheets("91").Select
Sheets("91").Copy After:=Workbooks("HD a controler.xls").Sheets(1)
Windows("91.XLS").Activate
ActiveWorkbook.Close

Ce code fonctionne sur ma clé USB "B" à la maison.
:-)
Mais cette même clé USB change subrepticement d'identité en chemin, pour
s'appeler "J" au bureau.
:-(

Les deux fichiers (HD a controler.XLS dans lequel se trouve ce code, et
91.XLS) se trouvent dans le même répertoire.

Merci d'avance à qui qui me donnera la syntaxe pour définir le chemin du
type :
Workbooks.OpenText Filename:="ce sous-répertoire":\91.XLS", ...

et qui m'évitera de faire chaque fois rechercher/remplacer.
--
Bien amicordialement,
P. Bastard
Signaler un problème avec ce contenu

5 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
Avatar
Daniel
Bonsoir.
Peut-être brutalement :
Dim Tabl As String, i As Integer
Tabl = Array(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t,
u, v, w, x, y, z)
On Error Resume Next
For i = 0 To 25
Workbooks.OpenText Filename:=Tabl(i) & ":Analyse des
HDDELACH91.XLS"
Next i
Cordialement.
Daniel
"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, toutes et tous.

Workbooks.OpenText Filename:="b:Analyse des HDDELACH91.XLS", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
_
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Windows("91.XLS").Activate
Sheets("91").Select
Sheets("91").Copy After:=Workbooks("HD a controler.xls").Sheets(1)
Windows("91.XLS").Activate
ActiveWorkbook.Close

Ce code fonctionne sur ma clé USB "B" à la maison.
:-)
Mais cette même clé USB change subrepticement d'identité en chemin, pour
s'appeler "J" au bureau.
:-(

Les deux fichiers (HD a controler.XLS dans lequel se trouve ce code, et
91.XLS) se trouvent dans le même répertoire.

Merci d'avance à qui qui me donnera la syntaxe pour définir le chemin du
type :
Workbooks.OpenText Filename:="ce sous-répertoire":91.XLS", ...

et qui m'évitera de faire chaque fois rechercher/remplacer.
--
Bien amicordialement,
P. Bastard



Avatar
Patrick BASTARD
Bonjour, *Daniel*

Et merci. Je teste demain au bureau.

J'osais espérer qu'il existait en VBA l'équivalent de "chemin" en Excel4.
Ah, le bon vieux temps des .XLM !!!
;-)

De toute manière, je te tiens informé dès que je reviens, mais les augures
me sembles propices.


--
Bien amicordialement,
P. Bastard


Bonsoir.
Peut-être brutalement :
Dim Tabl As String, i As Integer
Tabl = Array(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r,
s, t, u, v, w, x, y, z)
On Error Resume Next
For i = 0 To 25
Workbooks.OpenText Filename:=Tabl(i) & ":Analyse des
HDDELACH91.XLS"
Next i
Cordialement.
Daniel
"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, toutes et tous.

Workbooks.OpenText Filename:="b:Analyse des HDDELACH91.XLS",
Origin:= _ xlWindows, StartRow:=1, DataType:=xlDelimited,
TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:=True, Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)),
TrailingMinusNumbers:=True Windows("91.XLS").Activate
Sheets("91").Select
Sheets("91").Copy After:=Workbooks("HD a controler.xls").Sheets(1)
Windows("91.XLS").Activate
ActiveWorkbook.Close

Ce code fonctionne sur ma clé USB "B" à la maison.
:-)
Mais cette même clé USB change subrepticement d'identité en chemin,
pour s'appeler "J" au bureau.
:-(

Les deux fichiers (HD a controler.XLS dans lequel se trouve ce code,
et 91.XLS) se trouvent dans le même répertoire.

Merci d'avance à qui qui me donnera la syntaxe pour définir le
chemin du type :
Workbooks.OpenText Filename:="ce sous-répertoire":91.XLS", ...

et qui m'évitera de faire chaque fois rechercher/remplacer.
--
Bien amicordialement,
P. Bastard




Avatar
Alain CROS
Bonjour.

Si tu as une macro XL4 qui s'adapte automatiquement au chemin, n'hésite pas à nous en faire profiter!
Tu pourrai même l'utiliser en vba avec Application.ExecuteExcel4Macro

Alain CROS

"Patrick BASTARD" a écrit dans le message de news: #
| Bonjour, *Daniel*
|
| Et merci. Je teste demain au bureau.
|
| J'osais espérer qu'il existait en VBA l'équivalent de "chemin" en Excel4.
| Ah, le bon vieux temps des .XLM !!!
| ;-)
|
| De toute manière, je te tiens informé dès que je reviens, mais les augures
| me sembles propices.
|
|
| --
| Bien amicordialement,
| P. Bastard
Avatar
ClémentMarcotte
Bonjour,

Pas sur de bien comprendre, et pas testé, mais si le seul "élément
inconstant" est le nom du lecteur, mais que c'est juste a ou j, tu peux te
faire quelque chose du genre:

sub placetoiaquelquepart()
laplace = inputBox("Êtes vous à la maison ou au travail ? ")
select case laplace
case "Maison"
chdrive "b"
case "Tavail"
chdrive "j"
end select
chdir "Analyse des HDdelach"
Workbooks.OpenText Filename:="91.XLS", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:úlse, _
Other:úlse, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), _
Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Windows("91.XLS").Activate
Sheets("91").Select
Sheets("91").Copy After:=Workbooks("HD a controler.xls").Sheets(1)
Windows("91.XLS").Activate
ActiveWorkbook.Close


"Patrick BASTARD" a écrit dans le
message de news:%
Bonjour, toutes et tous.


Ce code fonctionne sur ma clé USB "B" à la maison.
:-)
Mais cette même clé USB change subrepticement d'identité en chemin, pour
s'appeler "J" au bureau.
:-(

Les deux fichiers (HD a controler.XLS dans lequel se trouve ce code, et
91.XLS) se trouvent dans le même répertoire.

Merci d'avance à qui qui me donnera la syntaxe pour définir le chemin du
type :
Workbooks.OpenText Filename:="ce sous-répertoire":91.XLS", ...

et qui m'évitera de faire chaque fois rechercher/remplacer.
--
Bien amicordialement,
P. Bastard




Avatar
Paul V.
Salut Patrick

A partir de ton fichier de départ, utilise
ActiveWorkbook.Path

Ce pourrait donc être :
Workbooks.OpenText Filename:¬tiveworkbook.path & "91.XLS",
Origin:=.............................

A+

Paul V

"Patrick BASTARD" a écrit dans le
message de news: %
Bonjour, toutes et tous.

Workbooks.OpenText Filename:="b:Analyse des HDDELACH91.XLS", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:úlse, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
_
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
Windows("91.XLS").Activate
Sheets("91").Select
Sheets("91").Copy After:=Workbooks("HD a controler.xls").Sheets(1)
Windows("91.XLS").Activate
ActiveWorkbook.Close

Ce code fonctionne sur ma clé USB "B" à la maison.
:-)
Mais cette même clé USB change subrepticement d'identité en chemin, pour
s'appeler "J" au bureau.
:-(

Les deux fichiers (HD a controler.XLS dans lequel se trouve ce code, et
91.XLS) se trouvent dans le même répertoire.

Merci d'avance à qui qui me donnera la syntaxe pour définir le chemin du
type :
Workbooks.OpenText Filename:="ce sous-répertoire":91.XLS", ...

et qui m'évitera de faire chaque fois rechercher/remplacer.
--
Bien amicordialement,
P. Bastard