Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Woorbook

Woorbook

3 réponses
Avatar
j
Bonjour,

la macro ci dessous se plante sur le Woorbook close, si quelqu'un peut
m'aider

Merci
-------------------------------------------------------------------------

Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls")
If Not nf = False Then
Workbooks.Open Filename:=nf
End If

Sheets("Table").Select
Range("F16:BV" & Range("F65536").End(xlUp).Row).Select
Selection.Copy

Workbooks("SU49-JB1.xls").Activate
Sheets("Table").Select
Range("A2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False

Workbooks(nf).Close savechanges:=False



End Sub
Signaler un problème avec ce contenu

3 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.C
Bonjour.

nf est le chemin + le nom du fichier. Tu ne dois utiliser que le nom du
fichier avec la méthode Close :

Workbooks(Dir(nf)).Close savechanges:úlse

Cordialement.
Daniel

Bonjour,

la macro ci dessous se plante sur le Woorbook close, si quelqu'un peut
m'aider

Merci
-------------------------------------------------------------------------

Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls")
If Not nf = False Then
Workbooks.Open Filename:=nf
End If

Sheets("Table").Select
Range("F16:BV" & Range("F65536").End(xlUp).Row).Select
Selection.Copy

Workbooks("SU49-JB1.xls").Activate
Sheets("Table").Select
Range("A2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False

Workbooks(nf).Close savechanges:úlse



End Sub


Avatar
j
Génial,
Merci, je viens d'apprendre qq chose la
Bonne journée



"Daniel.C" a écrit dans le message de news:
OrgXdVH$
Bonjour.

nf est le chemin + le nom du fichier. Tu ne dois utiliser que le nom du
fichier avec la méthode Close :

Workbooks(Dir(nf)).Close savechanges:úlse

Cordialement.
Daniel

Bonjour,

la macro ci dessous se plante sur le Woorbook close, si quelqu'un peut
m'aider

Merci
-------------------------------------------------------------------------

Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls")
If Not nf = False Then
Workbooks.Open Filename:=nf
End If

Sheets("Table").Select
Range("F16:BV" & Range("F65536").End(xlUp).Row).Select
Selection.Copy

Workbooks("SU49-JB1.xls").Activate
Sheets("Table").Select
Range("A2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False

Workbooks(nf).Close savechanges:úlse



End Sub






Avatar
Hervé
Bonjour,

Doù la nécessité, pour bien s'y retrouver, d'utiliser des variables
clairement typées et bien adapter à la référence :

Dim Chemin As String
Dim Fichier As String

Chemin = "C:Dossier1Dossier2"
Fichier = "Classeur1.xls"

Workbooks.Open Chemin & Fichier

Hervé.


"" a écrit dans le message de
news:4a4f02fd$0$31429$
Génial,
Merci, je viens d'apprendre qq chose la
Bonne journée



"Daniel.C" a écrit dans le message de news:
OrgXdVH$
Bonjour.

nf est le chemin + le nom du fichier. Tu ne dois utiliser que le nom du
fichier avec la méthode Close :

Workbooks(Dir(nf)).Close savechanges:úlse

Cordialement.
Daniel

Bonjour,

la macro ci dessous se plante sur le Woorbook close, si quelqu'un peut
m'aider

Merci
-------------------------------------------------------------------------

Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls")
If Not nf = False Then
Workbooks.Open Filename:=nf
End If

Sheets("Table").Select
Range("F16:BV" & Range("F65536").End(xlUp).Row).Select
Selection.Copy

Workbooks("SU49-JB1.xls").Activate
Sheets("Table").Select
Range("A2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Application.CutCopyMode = False

Workbooks(nf).Close savechanges:úlse



End Sub