faire fonctionner une macro sur des fichiers au nom different

[florentin]

bonjour a tous

voila!

j ai un modele qui me sert pour etablir des bons de commande qui s'appelle "icag commande nomduclient.xls"
puis quand je realise une vente je reouvre le fichier, je fais un "ctrl F" je lance une macro que j'ai enregistrer qui me reformate l'apparence du fichier pour en faire une facture, jusque la tout va bien

et je veux donner un numero a ma facture
j'inscrit le numéro de base sur a1 de perso.xls sur b1 j'ecrit =a1+1
puis j'enregistre une macro à partir de "icag commande nomduclient" je vais dans perso.xls je copie b1 je reviens sur icag commande nomduclient je colle special, puis je copie le numero sur "icag commande nomduclient" je reviens dans perso sur a1 je colle (b1 se prepare pour la prochaine facture, j'enregistre perso je reviens dans "icag commande nomduclient", et c'est fini
ca marche bien mais le "nomduclient" change et ca ne marche plus et je galere et je ne trouve pas la solution, je suis nul!!!!
voila la macro

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/05/2012 par FLORENTIN
'
' Touche de raccourci du clavier: Ctrl+n
'
Windows("PERSO.XLS").Activate
Range("B1").Select
Selection.Copy
Windows("ICAG COMMANDE nomduclient.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PERSO.XLS").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("ICAG COMMANDEnomduclient.xls").Activate
End Sub



quequ'un peut il m'aider?
d'avance merci

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Bonjour,

utilise peut être une variable objet, exemple ci-dessous si cela peut t'aider :

Dim wb As Workbook

'initialise la variable avec le classeur actif
Set wb = ActiveWorkbook

'initialise la variable avec le classeur dans lequl le code est exécuté
Set wb = ThisWorkbook

'exemple d'utilisation de la variable
MsgBox wb.Name
'ou encore
wb.Sheets("NomFeuille").Range("A1").Value = "abc"

bonne journée
@+

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

merci beaucoup, mais comme je suis très nul, je comprends pas ce que je dois faire!!

ou dois je mettre cela?
vraiment désolé pour mon ignorance.

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

ca marche bien mais le "nomduclient" change et ca ne marche plus et je galere et je ne trouve pas la solution, je suis nul!!!!

lorsque ce classeur est actif.... à moins que ce ne soit le classeur dans lequel se trouve la macro.....

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

j'essaye mais rien ça ne fonctionne pas! au secours

lorsque les fichiers ont une partie de leur nom qui est commune, peut on les activer par leur partie commune du style
"icag commande nomduclient" par icag commande *****"

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

et il est ouvert coment ton fichier "icag commande nomduclient" ?
et le code est dans quel classeur ?

tu peux aussi boucler (for each) sur les classeurs ouverts en testant avec l'opérateur "Like"..... n'hésite pas à rechercher sur ce forum et dans l'aide vba, tu devrais y trouver des pistes...

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

salut
quand j'ouvre icag commande nomduclient ca m'ouvre d'abord perso puis icag
le code st dans perso.xls

et on peut pas remplacer nomduclient par des ? ou des *

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

t'as une macro qui ouvre les 2 classeurs ???

et on peut pas remplacer nomduclient par des ? ou des *

voir la boucle indiqué avec l'opérateur LIKE

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

oui elle elle bascule de l'un vers l'autre

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

et c'est quoi le code de cette macro..... sans doute initialisée la variable objet juste après l'ouverture de ton fichier "icag commande nomduclient" avec le code donné ce matin.

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

voila la macro

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/05/2012 par FLORENTIN
'
' Touche de raccourci du clavier: Ctrl+n
'
Windows("PERSO.XLS").Activate
Range("B1").Select
Selection.Copy

Windows("ICAG COMMANDE MAUBOUSSIN.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PERSO.XLS").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save


Windows("ICAG COMMANDE MAUBOUSSIN.xls").Activate
End Sub

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

je ne vois pas d'ouverture de classeur dans ton code, uniquement des activations.... donc les classeurs sont préalablement ouverts.....

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

elle fonctionne tres bien mais pour le fichier mauboussin si j'ouvre icag commande tartempoin ca marche plus

 

[florentin]

Re : faire fonctionner une macro sur des fichiers au nom different

oui les classeurs sont ouvert prealablement

 

[Pierrot93]

Re : faire fonctionner une macro sur des fichiers au nom different

Re,

et bien sert toi de la variable objet, au début de ton code lorsque le classeur client est actif :

Dim wb As Workbook

'initialise la variable avec le classeur actif
Set wb = ActiveWorkbook

ensuite dans ton code quand tu veux l'activer :

Wb.Activate