Bonjour à tous
je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle
macro/enregistrer je ne peux l'exécuter par la suite.
le module est pourtant simple
Range("J4:L4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
à l'exécution,en retour j'ai le message:
erreur de compilation
fonction ou variable attendue
et le mot selection est surligné en bleu
Merci
Annie
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
Jacky
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Bonsoir
Essaye:
'---------
With worksheets("Feuil1") ' A adapter
With .Range("J4:L4")
-----
-----
-----
End With
End With
'---------
Salutations
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de
news:CAE46A4B-A1AA-4FA5-A981-5A330AC05CB5@microsoft.com...
Bonjour à tous
je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle
macro/enregistrer je ne peux l'exécuter par la suite.
le module est pourtant simple
Range("J4:L4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
à l'exécution,en retour j'ai le message:
erreur de compilation
fonction ou variable attendue
et le mot selection est surligné en bleu
Merci
Annie
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
benmat
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Bonsoir Jaky,
dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises
dans cette zone ?
voici mon code:
'je prends le nom du fichier courant
nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
Sheets("Synthèse").Select
With Worksheets("Synthèse") ' A adapter
With .Range("J4:Q17")
End With
End With
' je reviens sur mon fichier initial
Windows(nomfic).Activate
Sheets("Synthèse").Select
Range("J4").Select
ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur
Merci
Annie
Bonsoir
Essaye:
'---------
With worksheets("Feuil1") ' A adapter
With .Range("J4:L4")
-----
-----
-----
End With
End With
'---------
Salutations
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de
news:CAE46A4B-A1AA-4FA5-A981-5A330AC05CB5@microsoft.com...
Bonjour à tous
je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle
macro/enregistrer je ne peux l'exécuter par la suite.
le module est pourtant simple
Range("J4:L4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
à l'exécution,en retour j'ai le message:
erreur de compilation
fonction ou variable attendue
et le mot selection est surligné en bleu
Merci
Annie
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Jacky
Re... Je ne vois aucune instruction de copie dans ton code que des instructions de mise en forme. Qu'est qui doit être copié ??
JJ
"benmat" a écrit dans le message de news:
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Re...
Je ne vois aucune instruction de copie dans ton code que des instructions de
mise en forme.
Qu'est qui doit être copié ??
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de news:
F48847D6-4749-46D6-9A7D-16DCF51D2E30@microsoft.com...
Bonsoir Jaky,
dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises
dans cette zone ?
voici mon code:
'je prends le nom du fichier courant
nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
Sheets("Synthèse").Select
With Worksheets("Synthèse") ' A adapter
With .Range("J4:Q17")
End With
End With
' je reviens sur mon fichier initial
Windows(nomfic).Activate
Sheets("Synthèse").Select
Range("J4").Select
ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur
Merci
Annie
Bonsoir
Essaye:
'---------
With worksheets("Feuil1") ' A adapter
With .Range("J4:L4")
-----
-----
-----
End With
End With
'---------
Salutations
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de
news:CAE46A4B-A1AA-4FA5-A981-5A330AC05CB5@microsoft.com...
Bonjour à tous
je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle
macro/enregistrer je ne peux l'exécuter par la suite.
le module est pourtant simple
Range("J4:L4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
à l'exécution,en retour j'ai le message:
erreur de compilation
fonction ou variable attendue
et le mot selection est surligné en bleu
Merci
Annie
Re... Je ne vois aucune instruction de copie dans ton code que des instructions de mise en forme. Qu'est qui doit être copié ??
JJ
"benmat" a écrit dans le message de news:
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
lematou
Jacky, c'est bien ce que je pensais, je voudrais qu'il me copie mon tableau ("J4:Q17") et ce avec formules et si possible le format pour aller le déposer en (J4) dans l'autre fichier
merci pour ton aide Annie
Re... Je ne vois aucune instruction de copie dans ton code que des instructions de mise en forme. Qu'est qui doit être copié ??
JJ
"benmat" a écrit dans le message de news:
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Jacky,
c'est bien ce que je pensais,
je voudrais qu'il me copie
mon tableau
("J4:Q17") et ce avec formules et si possible le format
pour aller le déposer en (J4) dans l'autre fichier
merci pour ton aide
Annie
Re...
Je ne vois aucune instruction de copie dans ton code que des instructions de
mise en forme.
Qu'est qui doit être copié ??
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de news:
F48847D6-4749-46D6-9A7D-16DCF51D2E30@microsoft.com...
Bonsoir Jaky,
dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises
dans cette zone ?
voici mon code:
'je prends le nom du fichier courant
nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
Sheets("Synthèse").Select
With Worksheets("Synthèse") ' A adapter
With .Range("J4:Q17")
End With
End With
' je reviens sur mon fichier initial
Windows(nomfic).Activate
Sheets("Synthèse").Select
Range("J4").Select
ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur
Merci
Annie
Bonsoir
Essaye:
'---------
With worksheets("Feuil1") ' A adapter
With .Range("J4:L4")
-----
-----
-----
End With
End With
'---------
Salutations
JJ
"benmat" <benmat@discussions.microsoft.com> a écrit dans le message de
news:CAE46A4B-A1AA-4FA5-A981-5A330AC05CB5@microsoft.com...
Bonjour à tous
je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle
macro/enregistrer je ne peux l'exécuter par la suite.
le module est pourtant simple
Range("J4:L4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
à l'exécution,en retour j'ai le message:
erreur de compilation
fonction ou variable attendue
et le mot selection est surligné en bleu
Merci
Annie
Jacky, c'est bien ce que je pensais, je voudrais qu'il me copie mon tableau ("J4:Q17") et ce avec formules et si possible le format pour aller le déposer en (J4) dans l'autre fichier
merci pour ton aide Annie
Re... Je ne vois aucune instruction de copie dans ton code que des instructions de mise en forme. Qu'est qui doit être copié ??
JJ
"benmat" a écrit dans le message de news:
Bonsoir Jaky, dans ta réponse =>With .Range("J4:L4") ne copie pas les infos comprises dans cette zone ?
voici mon code: 'je prends le nom du fichier courant nomfic = ActiveWorkbook.Name
'je vais chercher mon tableau Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Sheets("Synthèse").Select With Worksheets("Synthèse") ' A adapter With .Range("J4:Q17")
End With End With
' je reviens sur mon fichier initial Windows(nomfic).Activate Sheets("Synthèse").Select Range("J4").Select ActiveSheet.Paste
en résultat, dans J4 je trouve : => Sheets("Synthèse").Select
as tu une idée de mon erreur Merci Annie
Bonsoir
Essaye: '--------- With worksheets("Feuil1") ' A adapter With .Range("J4:L4") ----- ----- ----- End With End With '--------- Salutations JJ
"benmat" a écrit dans le message de news:
Bonjour à tous je ne comprend pas pourquoi quand j'enregistre une macro par nouvelle macro/enregistrer je ne peux l'exécuter par la suite. le module est pourtant simple Range("J4:L4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With
à l'exécution,en retour j'ai le message: erreur de compilation fonction ou variable attendue et le mot selection est surligné en bleu Merci Annie
Jacky
Re... '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Workbooks("mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls").Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '-------------- Ps: Vérifie le nom de fichier, par sûr du copier/coller Salutations JJ
"lematou" a écrit dans le message de news:
Jacky, c'est bien ce que je pensais, je voudrais qu'il me copie mon tableau ("J4:Q17") et ce avec formules et si possible le format pour aller le déposer en (J4) dans l'autre fichier
merci pour ton aide Annie
Re...
'----------
nomfic = ActiveWorkbook.Name
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
Workbooks("mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls").Sheets("Synthèse").[j4:q17].Copy
Workbooks(nomfic).Sheets("Synthèse").[j4]
'--------------
Ps: Vérifie le nom de fichier, par sûr du copier/coller
Salutations
JJ
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news: 8358BF58-DFFD-47B0-B75E-0D178BDBF099@microsoft.com...
Jacky,
c'est bien ce que je pensais,
je voudrais qu'il me copie
mon tableau
("J4:Q17") et ce avec formules et si possible le format
pour aller le déposer en (J4) dans l'autre fichier
Re... '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" Workbooks("mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls").Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '-------------- Ps: Vérifie le nom de fichier, par sûr du copier/coller Salutations JJ
"lematou" a écrit dans le message de news:
Jacky, c'est bien ce que je pensais, je voudrais qu'il me copie mon tableau ("J4:Q17") et ce avec formules et si possible le format pour aller le déposer en (J4) dans l'autre fichier
merci pour ton aide Annie
Jacky
Re..... Un peu plus court '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '--------- JJ
Re.....
Un peu plus court
'----------
nomfic = ActiveWorkbook.Name
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy
Workbooks(nomfic).Sheets("Synthèse").[j4]
'---------
JJ
Re... Au fait qui es-tu ??? Jacks,,Lematou,,benmat ou Annie ??? Tout de même pas Urgent ?????
JJ
lematou
re bonsoir nous y approchons sérieusement à grands pas je vais bien sur le fichier copier la zone recherchée mais je ne reviens pas pour coller ne manque t il pas quelque chose a la fin de Workbooks(nomfic).Sheets("Synthèse").[j4] ? j'ai l'impression que c'est .[j4]qui coince
merci jacks
Re..... Un peu plus court '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '--------- JJ
re bonsoir
nous y approchons sérieusement à grands pas
je vais bien sur le fichier copier la zone recherchée
mais je ne reviens pas pour coller
ne manque t il pas quelque chose a la fin de
Workbooks(nomfic).Sheets("Synthèse").[j4] ?
j'ai l'impression que c'est .[j4]qui coince
merci
jacks
Re.....
Un peu plus court
'----------
nomfic = ActiveWorkbook.Name
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy
Workbooks(nomfic).Sheets("Synthèse").[j4]
'---------
JJ
re bonsoir nous y approchons sérieusement à grands pas je vais bien sur le fichier copier la zone recherchée mais je ne reviens pas pour coller ne manque t il pas quelque chose a la fin de Workbooks(nomfic).Sheets("Synthèse").[j4] ? j'ai l'impression que c'est .[j4]qui coince
merci jacks
Re..... Un peu plus court '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '--------- JJ
Jacky
Re... Non, il ne manque rien, mais le code doit être copié sur une seule ligne de: ActiveWorkbook.Sheets.... à.......[j4] La syntaxe est: Fichier source+feuille source+adresse plage ". copy vers" fichier destination+feuille destination+adresse première cellule destination
Salutations JJ
"lematou" a écrit dans le message de news:
re bonsoir nous y approchons sérieusement à grands pas je vais bien sur le fichier copier la zone recherchée mais je ne reviens pas pour coller ne manque t il pas quelque chose a la fin de Workbooks(nomfic).Sheets("Synthèse").[j4] ? j'ai l'impression que c'est .[j4]qui coince
merci jacks
Re..... Un peu plus court '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '--------- JJ
Re...
Non, il ne manque rien, mais le code doit être copié sur une seule ligne de:
ActiveWorkbook.Sheets.... à.......[j4]
La syntaxe est:
Fichier source+feuille source+adresse plage ". copy vers" fichier
destination+feuille destination+adresse première cellule destination
Salutations
JJ
"lematou" <lematou@discussions.microsoft.com> a écrit dans le message de
news: F93EEEA6-6C64-4AA2-B8DB-47EA54003B33@microsoft.com...
re bonsoir
nous y approchons sérieusement à grands pas
je vais bien sur le fichier copier la zone recherchée
mais je ne reviens pas pour coller
ne manque t il pas quelque chose a la fin de
Workbooks(nomfic).Sheets("Synthèse").[j4] ?
j'ai l'impression que c'est .[j4]qui coince
merci
jacks
Re.....
Un peu plus court
'----------
nomfic = ActiveWorkbook.Name
Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15
09-08.xls"
ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy
Workbooks(nomfic).Sheets("Synthèse").[j4]
'---------
JJ
Re... Non, il ne manque rien, mais le code doit être copié sur une seule ligne de: ActiveWorkbook.Sheets.... à.......[j4] La syntaxe est: Fichier source+feuille source+adresse plage ". copy vers" fichier destination+feuille destination+adresse première cellule destination
Salutations JJ
"lematou" a écrit dans le message de news:
re bonsoir nous y approchons sérieusement à grands pas je vais bien sur le fichier copier la zone recherchée mais je ne reviens pas pour coller ne manque t il pas quelque chose a la fin de Workbooks(nomfic).Sheets("Synthèse").[j4] ? j'ai l'impression que c'est .[j4]qui coince
merci jacks
Re..... Un peu plus court '---------- nomfic = ActiveWorkbook.Name Workbooks.Open Filename:="K:mise-forme_OPEX Coreff Export_2006-02-15 09-08.xls" ActiveWorkbook.Sheets("Synthèse").[j4:q17].Copy Workbooks(nomfic).Sheets("Synthèse").[j4] '--------- JJ
