Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de fenêtre

Problème de fenêtre

5 réponses
Avatar
Jérémy
Bonjour,

J'ai un petit souci. J'ai un programme VBA sous Excel qui permet de
remplacer certains caract=E8res par des espaces. Lorsque j'ex=E9cute ce
programme, celui-ci fonctionne correctement. N=E9anmoins, je ne reste
pas sous Excel. En fait, je retourne sur la derni=E8re fen=EAtre visit=E9e.

Je m'explique: par exemple a partir de l'explorateur, je lance mon
classeur Excel. Ensuite, j'ex=E9cute ma macro. Et l=E0 en fait, je
retourne sur l'explorateur. Alors comment faire pour revenir sur le
classeur Excel??

Merci de votre aide
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
Bonjour.
Si tu postais ta macro ?
Cordialement.
Daniel
"Jérémy" a écrit dans le message de news:

Bonjour,

J'ai un petit souci. J'ai un programme VBA sous Excel qui permet de
remplacer certains caractères par des espaces. Lorsque j'exécute ce
programme, celui-ci fonctionne correctement. Néanmoins, je ne reste
pas sous Excel. En fait, je retourne sur la dernière fenêtre visitée.

Je m'explique: par exemple a partir de l'explorateur, je lance mon
classeur Excel. Ensuite, j'exécute ma macro. Et là en fait, je
retourne sur l'explorateur. Alors comment faire pour revenir sur le
classeur Excel??

Merci de votre aide
Avatar
Jérémy
Comment ça poster la macro?
Je dèbute juste en VBA et je n'ai pas encore le language
correspondant.
Désolé.
Pourrais-tu m'expliquer cette expression stp?

Merci d'avance
Avatar
Daniel
Tu colles ton programme VBA dans ton prochain message.
"poster", c'est envoyer un message (un post en anglais), en particulier vers
un forum (newsgroup en anglais)
Daniel
"Jérémy" a écrit dans le message de news:

Comment ça poster la macro?
Je dèbute juste en VBA et je n'ai pas encore le language
correspondant.
Désolé.
Pourrais-tu m'expliquer cette expression stp?

Merci d'avance
Avatar
Jérémy
Le voici:

Sub retour_chariot()

Cells.Select

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Application.WindowState = xlMinimized
[A:IV].Replace What:=Chr(10), Replacement:=" "
[A:IV].Replace What:=Chr(9), Replacement:=" "
[A:IV].Replace What:=Chr(12), Replacement:=" "
[A:IV].Replace What:=Chr(127), Replacement:=" "

Range("a1").Select

Merci de ton aide sur le sujet
Avatar
Daniel
Enlève :
Application.WindowState = xlMinimized
Daniel
"Jérémy" a écrit dans le message de news:

Le voici:

Sub retour_chariot()

Cells.Select

With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Application.WindowState = xlMinimized
[A:IV].Replace What:=Chr(10), Replacement:=" "
[A:IV].Replace What:=Chr(9), Replacement:=" "
[A:IV].Replace What:=Chr(12), Replacement:=" "
[A:IV].Replace What:=Chr(127), Replacement:=" "

Range("a1").Select

Merci de ton aide sur le sujet