probleme declaration variable

Le
FabriceR
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 "xxxxxxx1 Process1 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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #16406861
Bonjour,

adapte ton code avec une syntaxe de ce type :

Sub ouvre_copie()
creation = ActiveWorkbook.Name
Workbooks.Open Filename:= _
"xxxxxxx1 Process1 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" 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 "xxxxxxx1 Process1 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
Le #16406961
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 !!!
lSteph
Le #16407291
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"
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 "xxxxxxx1 Process1 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
Le #16407751
Merci 'lSteph ca marche bien






"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"
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 "xxxxxxx1 Process1 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.


Publicité
Poster une réponse
Anonyme