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 une variable avec sheeets( xxx).select est ce possible ?

une variable avec sheeets( xxx).select est ce possible ?

4 réponses
Avatar
lematou
Bonjour
xls2000 sous xp pro
dans une macro VBA croyez vous qu'il soit possible de remplacer des champs
du type:
Sheets("bckBre").Select
Application.Run ("datex")

Sheets("bckCes").Select
Application.Run ("datex")
voilà une explication en 2 mots, j'ai fait une macro pour me récupérer des
résultats de jobs de nuits.
je dois vérifier 12 jobs du type > "bckBre"
cette varable je la trouve dans plusieurs endroits de ma macr
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"

alors je voudrais savoir s'il est possible de remplacer "bckbre" par
"bckces" et ainsi de suite. ceci me permettrait d'avoir une macro beaucoup
plus courte et donc plus facile à faire évoluer.
en esperant avoir été asser explicite , merci pour votre attention
merci beaucoup et félicitation pour vos renseignements qui sont une
mine.cordialement
lematou
Signaler un problème avec ce contenu

4 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.
Sub test1()
Dim Tabl(12)
Tabl(0) = "bckBre"
Tabl(1) = "bckCes"
' etc
For i = 0 To 12
Sheets(Tabl(i)).Select
Next i
End Sub
et même chose pour les Run.
A moins qu'il faille extraire la chaîne bckBre de l'URL ?
Cordialement.
Daniel
"lematou" a écrit dans le message de
news:
Bonjour
xls2000 sous xp pro
dans une macro VBA croyez vous qu'il soit possible de remplacer des champs
du type:
Sheets("bckBre").Select
Application.Run ("datex")

Sheets("bckCes").Select
Application.Run ("datex")
voilà une explication en 2 mots, j'ai fait une macro pour me récupérer des
résultats de jobs de nuits.
je dois vérifier 12 jobs du type > "bckBre"
cette varable je la trouve dans plusieurs endroits de ma macro
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"

alors je voudrais savoir s'il est possible de remplacer "bckbre" par
"bckces" et ainsi de suite. ceci me permettrait d'avoir une macro beaucoup
plus courte et donc plus facile à faire évoluer.
en esperant avoir été asser explicite , merci pour votre attention
merci beaucoup et félicitation pour vos renseignements qui sont une
mine.cordialement
lematou


Avatar
lematou

Bonsoir.
Sub test1()
Dim Tabl(12)
Tabl(0) = "bckBre"
Tabl(1) = "bckCes"
' etc
For i = 0 To 12
Sheets(Tabl(i)).Select
Next i
End Sub
et même chose pour les Run.
A moins qu'il faille extraire la chaîne bckBre de l'URL ?
Cordialement.
Daniel
"lematou" a écrit dans le message de
news:
Bonjour
xls2000 sous xp pro
dans une macro VBA croyez vous qu'il soit possible de remplacer des champs
du type:
Sheets("bckBre").Select
Application.Run ("datex")

Sheets("bckCes").Select
Application.Run ("datex")
voilà une explication en 2 mots, j'ai fait une macro pour me récupérer des
résultats de jobs de nuits.
je dois vérifier 12 jobs du type > "bckBre"
cette varable je la trouve dans plusieurs endroits de ma macro
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"

alors je voudrais savoir s'il est possible de remplacer "bckbre" par
"bckces" et ainsi de suite. ceci me permettrait d'avoir une macro beaucoup
plus courte et donc plus facile à faire évoluer.
en esperant avoir été asser explicite , merci pour votre attention
merci beaucoup et félicitation pour vos renseignements qui sont une
mine.cordialement
lematou


Bonjour,
pour ce qui est de la première boucle c'est super elle fonctionne et c'est

génial, merci .
pour ce qui est du remplacement de: bckbre dan
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php" cela ne fonctionne pas
avez vous une petite idée sur la question?
merci beaucoup pour votre aide
lematou




Avatar
Daniel
Bonjour.
Regarde le code suivant :

Sub test()
Dim Var As String, Cherche As String, Remplace As String
Cherche = "bckbre"
Remplace = "bckces"
Var =
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"
Mid(Var, InStr(1, Var, Cherche), Len(Cherche)) = Remplace
End Sub

Cordialement.
Daniel
"lematou" a écrit dans le message de
news:



Bonsoir.
Sub test1()
Dim Tabl(12)
Tabl(0) = "bckBre"
Tabl(1) = "bckCes"
' etc
For i = 0 To 12
Sheets(Tabl(i)).Select
Next i
End Sub
et même chose pour les Run.
A moins qu'il faille extraire la chaîne bckBre de l'URL ?
Cordialement.
Daniel
"lematou" a écrit dans le message de
news:
Bonjour
xls2000 sous xp pro
dans une macro VBA croyez vous qu'il soit possible de remplacer des
champs
du type:
Sheets("bckBre").Select
Application.Run ("datex")

Sheets("bckCes").Select
Application.Run ("datex")
voilà une explication en 2 mots, j'ai fait une macro pour me récupérer
des
résultats de jobs de nuits.
je dois vérifier 12 jobs du type > "bckBre"
cette varable je la trouve dans plusieurs endroits de ma macro
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"

alors je voudrais savoir s'il est possible de remplacer "bckbre" par
"bckces" et ainsi de suite. ceci me permettrait d'avoir une macro
beaucoup
plus courte et donc plus facile à faire évoluer.
en esperant avoir été asser explicite , merci pour votre attention
merci beaucoup et félicitation pour vos renseignements qui sont une
mine.cordialement
lematou


Bonjour,
pour ce qui est de la première boucle c'est super elle fonctionne et c'est

génial, merci .
pour ce qui est du remplacement de: bckbre dans
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"
cela ne fonctionne pas
avez vous une petite idée sur la question?
merci beaucoup pour votre aide
lematou






Avatar
lematou

Bonjour.
Regarde le code suivant :

Sub test()
Dim Var As String, Cherche As String, Remplace As String
Cherche = "bckbre"
Remplace = "bckces"
Var =
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"
Mid(Var, InStr(1, Var, Cherche), Len(Cherche)) = Remplace
End Sub

Cordialement.
Daniel
"lematou" a écrit dans le message de
news:



Bonsoir.
Sub test1()
Dim Tabl(12)
Tabl(0) = "bckBre"
Tabl(1) = "bckCes"
' etc
For i = 0 To 12
Sheets(Tabl(i)).Select
Next i
End Sub
et même chose pour les Run.
A moins qu'il faille extraire la chaîne bckBre de l'URL ?
Cordialement.
Daniel
"lematou" a écrit dans le message de
news:
Bonjour
xls2000 sous xp pro
dans une macro VBA croyez vous qu'il soit possible de remplacer des
champs
du type:
Sheets("bckBre").Select
Application.Run ("datex")

Sheets("bckCes").Select
Application.Run ("datex")
voilà une explication en 2 mots, j'ai fait une macro pour me récupérer
des
résultats de jobs de nuits.
je dois vérifier 12 jobs du type > "bckBre"
cette varable je la trouve dans plusieurs endroits de ma macro
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"

alors je voudrais savoir s'il est possible de remplacer "bckbre" par
"bckces" et ainsi de suite. ceci me permettrait d'avoir une macro
beaucoup
plus courte et donc plus facile à faire évoluer.
en esperant avoir été asser explicite , merci pour votre attention
merci beaucoup et félicitation pour vos renseignements qui sont une
mine.cordialement
lematou


Bonjour,
pour ce qui est de la première boucle c'est super elle fonctionne et c'est

génial, merci .
pour ce qui est du remplacement de: bckbre dans
"URL;http://aww-backup.netfr.alcatel.fr/bckFR/bckbre/php/backup/invite/failed_visu.php"
cela ne fonctionne pas
avez vous une petite idée sur la question?
merci beaucoup pour votre aide
lematou




Merci beaucoup c'est génial (ma macro est passée de 5 pages à une environ