j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment
declarer un objet.
voilà mon code :
Sub majmat()
'
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx\01 Process\01 liste matieres.xls"
Windows("01 liste matieres.xls").Activate
Columns("A:B").Select
Selection.Copy
Windows("creation").Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et
revenir sur le fichier pour les coller. le probleme est que le nom du
fichier destinataire des 2 colonnes peut varier.
c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je
lance ma macro.
Sub ouvre_copie() creation = ActiveWorkbook.Name Workbooks.Open Filename:= _ "xxxxxxx 1 Process 1 liste matieres.xls" Columns("A:B").copy Windows(creation).Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "FabriceR" a écrit dans le message de news:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je lance ma macro.
Merci de votre aide.
Bonjour,
adapte ton code avec une syntaxe de ce type :
Sub ouvre_copie()
creation = ActiveWorkbook.Name
Workbooks.Open Filename:= _
"xxxxxxx 1 Process 1 liste matieres.xls"
Columns("A:B").copy
Windows(creation).Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"FabriceR" <fab.rousseau39asuppr@yahoo.fr> a écrit dans le message de
news:eQWbK8h7IHA.3724@TK2MSFTNGP03.phx.gbl...
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment
declarer un objet.
voilà mon code :
Sub majmat()
'
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls"
Windows("01 liste matieres.xls").Activate
Columns("A:B").Select
Selection.Copy
Windows("creation").Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("A4").Select
End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et
revenir sur le fichier pour les coller. le probleme est que le nom du
fichier destinataire des 2 colonnes peut varier.
c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je
lance ma macro.
Sub ouvre_copie() creation = ActiveWorkbook.Name Workbooks.Open Filename:= _ "xxxxxxx 1 Process 1 liste matieres.xls" Columns("A:B").copy Windows(creation).Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "FabriceR" a écrit dans le message de news:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je lance ma macro.
Merci de votre aide.
FFO
Salut Fabrice
Je modifierais les lignes suivantes :
creation = ActiveWorkbook en creation = ActiveWorkbook.Name
Windows("creation").Activate en Workbooks(creation).Activate
Celà devrait convenir Dis moi !!!
Salut Fabrice
Je modifierais les lignes suivantes :
creation = ActiveWorkbook
en
creation = ActiveWorkbook.Name
Windows("creation").Activate
en
Workbooks(creation).Activate
creation = ActiveWorkbook en creation = ActiveWorkbook.Name
Windows("creation").Activate en Workbooks(creation).Activate
Celà devrait convenir Dis moi !!!
lSteph
Bonjour Fabrice, (Adapter le nom du chemin fichier ici totoxxx
Sub majmat() ' Dim creation As String
creation = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "totoxxx.xls" 'Adapter le nom [a:b].Copy
Workbooks(creation).Activate [a1].PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False Workbooks("totoxxx.xls").Close False 'Adapter le nom Application.DisplayAlerts = True End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd j e lance ma macro.
Merci de votre aide.
Bonjour Fabrice,
(Adapter le nom du chemin fichier ici totoxxx
Sub majmat()
'
Dim creation As String
creation = ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open "totoxxx.xls" 'Adapter le nom
[a:b].Copy
Workbooks(creation).Activate
[a1].PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
Workbooks("totoxxx.xls").Close False 'Adapter le nom
Application.DisplayAlerts = True
End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" <fab.rousseau39asu...@yahoo.fr> wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment
declarer un objet.
voilà mon code :
Sub majmat()
'
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls"
Windows("01 liste matieres.xls").Activate
Columns("A:B").Select
Selection.Copy
Windows("creation").Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et
revenir sur le fichier pour les coller. le probleme est que le nom du
fichier destinataire des 2 colonnes peut varier.
c'est pour cela que je voulais nommer dans ma macro le fichier actif qd j e
lance ma macro.
Bonjour Fabrice, (Adapter le nom du chemin fichier ici totoxxx
Sub majmat() ' Dim creation As String
creation = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "totoxxx.xls" 'Adapter le nom [a:b].Copy
Workbooks(creation).Activate [a1].PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False Workbooks("totoxxx.xls").Close False 'Adapter le nom Application.DisplayAlerts = True End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd j e lance ma macro.
Merci de votre aide.
FabriceR
Merci 'lSteph ca marche bien
"lSteph" a écrit dans le message de news:
Bonjour Fabrice, (Adapter le nom du chemin fichier ici totoxxx
Sub majmat() ' Dim creation As String
creation = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "totoxxx.xls" 'Adapter le nom [a:b].Copy
Workbooks(creation).Activate [a1].PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False Workbooks("totoxxx.xls").Close False 'Adapter le nom Application.DisplayAlerts = True End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je lance ma macro.
Merci de votre aide.
Merci 'lSteph ca marche bien
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
b6b93227-56e8-4b71-8f18-a729abb5abe1@z26g2000pre.googlegroups.com...
Bonjour Fabrice,
(Adapter le nom du chemin fichier ici totoxxx
Sub majmat()
'
Dim creation As String
creation = ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open "totoxxx.xls" 'Adapter le nom
[a:b].Copy
Workbooks(creation).Activate
[a1].PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
Workbooks("totoxxx.xls").Close False 'Adapter le nom
Application.DisplayAlerts = True
End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" <fab.rousseau39asu...@yahoo.fr> wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment
declarer un objet.
voilà mon code :
Sub majmat()
'
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls"
Windows("01 liste matieres.xls").Activate
Columns("A:B").Select
Selection.Copy
Windows("creation").Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("A4").Select
End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et
revenir sur le fichier pour les coller. le probleme est que le nom du
fichier destinataire des 2 colonnes peut varier.
c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je
lance ma macro.
Bonjour Fabrice, (Adapter le nom du chemin fichier ici totoxxx
Sub majmat() ' Dim creation As String
creation = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "totoxxx.xls" 'Adapter le nom [a:b].Copy
Workbooks(creation).Activate [a1].PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False Workbooks("totoxxx.xls").Close False 'Adapter le nom Application.DisplayAlerts = True End Sub
'lSteph
On 25 juil, 08:23, "FabriceR" wrote:
bonjour,
j'ai un souci et je pense qu'il vient du fait que je ne sais pas comment declarer un objet. voilà mon code :
Sub majmat() '
creation = ActiveWorkbook
Workbooks.Open "xxxxxxx 1 Process 1 liste matieres.xls" Windows("01 liste matieres.xls").Activate
Columns("A:B").Select Selection.Copy Windows("creation").Activate Columns("A:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse Range("A4").Select End Sub
le principe est que j'aimerais recup 2 colonnes d'un autre fichier et revenir sur le fichier pour les coller. le probleme est que le nom du fichier destinataire des 2 colonnes peut varier. c'est pour cela que je voulais nommer dans ma macro le fichier actif qd je lance ma macro.
