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 fermer un fichier

fermer un fichier

2 réponses
Avatar
Daniel
Bonsoir a tous

J'ai un vba qui ouvre un fichier et après avoir modifier et copier
je voudrait le fermer et coller dans un autre fichie qui est déja ouvert.

j'ai insérer la ligne suivante "ActiveWorkbook.close"
mais quand je l'exécute je ne veut pas qu'il me demande si je veut
l'enrégistre et ci je veut garder le presse-papier.

Range("a14:a500").Select
Selection.TextToColumns Destination:=Range("A14"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=True, 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))
ActiveWindow.SmallScroll Down:=-5
Range("B5:B6").Select
Selection.Cut Destination:=Range("C5:C6")
Range("A13").Select
ActiveCell.FormulaR1C1 = "No"
ActiveCell(1, 2).Select
Range("A1:k1000").Copy
ActiveWorkbook.Close
Windows("Model_camionTestl.xls").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell(3, 1).Select

Merci
Signaler un problème avec ce contenu

2 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
isabelle
bonjour Daniel

Application.DisplayAlerts = False
Workbooks("zaza.XLS").Close SaveChanges:úlse
Application.DisplayAlerts = True

je mettrais ces lignes de code en dernier juste avant "End Sub"

isabelle


Bonsoir a tous

J'ai un vba qui ouvre un fichier et après avoir modifier et copier
je voudrait le fermer et coller dans un autre fichie qui est déja ouvert.

j'ai insérer la ligne suivante "ActiveWorkbook.close"
mais quand je l'exécute je ne veut pas qu'il me demande si je veut
l'enrégistre et ci je veut garder le presse-papier.

Range("a14:a500").Select
Selection.TextToColumns Destination:=Range("A14"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:úlse,
Tab:=True, _
Semicolon:úlse, Comma:=True, 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))
ActiveWindow.SmallScroll Down:=-5
Range("B5:B6").Select
Selection.Cut Destination:=Range("C5:C6")
Range("A13").Select
ActiveCell.FormulaR1C1 = "No"
ActiveCell(1, 2).Select
Range("A1:k1000").Copy
ActiveWorkbook.Close
Windows("Model_camionTestl.xls").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell(3, 1).Select

Merci




Avatar
pellet15
Gros merci Isabelle

Cela répond bien