Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour,la macro ci dessous se plante sur le Woorbook close, si quelqu'un peutm'aiderMerci-------------------------------------------------------------------------Sub Import_Query()nf = Application.GetOpenFilename("Fichiers Xls,*.xls")If Not nf = False ThenWorkbooks.Open Filename:=nfEnd IfSheets("Table").SelectRange("F16:BV" & Range("F65536").End(xlUp).Row).SelectSelection.CopyWorkbooks("SU49-JB1.xls").ActivateSheets("Table").SelectRange("A2").SelectSelection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _False, Transpose:úlseApplication.CutCopyMode = FalseWorkbooks(nf).Close savechanges:úlseEnd Sub
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
Bonjour.nf est le chemin + le nom du fichier. Tu ne dois utiliser que le nom dufichier avec la méthode Close :Workbooks(Dir(nf)).Close savechanges:úlseCordialement.DanielBonjour,la macro ci dessous se plante sur le Woorbook close, si quelqu'un peutm'aiderMerci-------------------------------------------------------------------------Sub Import_Query()nf = Application.GetOpenFilename("Fichiers Xls,*.xls")If Not nf = False ThenWorkbooks.Open Filename:=nfEnd IfSheets("Table").SelectRange("F16:BV" & Range("F65536").End(xlUp).Row).SelectSelection.CopyWorkbooks("SU49-JB1.xls").ActivateSheets("Table").SelectRange("A2").SelectSelection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:= _False, Transpose:úlseApplication.CutCopyMode = FalseWorkbooks(nf).Close savechanges:úlseEnd Sub
Bonjour,la macro ci dessous se plante sur le Woorbook close, si quelqu'un peutm'aiderMerci-------------------------------------------------------------------------Sub Import_Query()nf = Application.GetOpenFilename("Fichiers Xls,*.xls")If Not nf = False ThenWorkbooks.Open Filename:=nfEnd IfSheets("Table").SelectRange("F16:BV" & Range("F65536").End(xlUp).Row).SelectSelection.CopyWorkbooks("SU49-JB1.xls").ActivateSheets("Table").SelectRange("A2").SelectSelection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:= _False, Transpose:úlseApplication.CutCopyMode = FalseWorkbooks(nf).Close savechanges:úlseEnd Sub
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
Génial,Merci, je viens d'apprendre qq chose laBonne 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 dufichier avec la méthode Close :Workbooks(Dir(nf)).Close savechanges:úlseCordialement.DanielBonjour,la macro ci dessous se plante sur le Woorbook close, si quelqu'un peutm'aiderMerci-------------------------------------------------------------------------Sub Import_Query()nf = Application.GetOpenFilename("Fichiers Xls,*.xls")If Not nf = False ThenWorkbooks.Open Filename:=nfEnd IfSheets("Table").SelectRange("F16:BV" & Range("F65536").End(xlUp).Row).SelectSelection.CopyWorkbooks("SU49-JB1.xls").ActivateSheets("Table").SelectRange("A2").SelectSelection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:= _False, Transpose:úlseApplication.CutCopyMode = FalseWorkbooks(nf).Close savechanges:úlseEnd Sub
Génial, Merci, je viens d'apprendre qq chose la Bonne journée "Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news: OrgXdVH$JHA.3320@TK2MSFTNGP04.phx.gbl... 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