Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VBA

8 réponses
Avatar
FabriceR
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations. je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination. je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.

8 réponses

Avatar
michdenis
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations. je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination. je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.
Avatar
FabriceR
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination. je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.




Avatar
michdenis
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination. je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.




Avatar
michdenis
Un détail à propos des "NOMS" des plages nommées.
Est-ce possible que ces "NOMS" du fichier source
existe déjà dans le fichier de destination avant que
la copie soit faite ?

Un nom ne peut défini qu'une fois au niveau du classeur....
si ce nom existe déjà, lors de la copie, excel va transformer
ce nom au niveau du classeur en un nom au niveau de la feuille.
C'est probablement pour ça qu'il pose ces questions.




"michdenis" a écrit dans le message de news:
unpk7ZJ%
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination. je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.




Avatar
FabriceR
Oui les noms existent deja sur la feuille de destinationet sont les memes.
donc c'est normal qu'il me pose la question, mais ne peut on pas valider une
réponse par macro ? parce que ces questions reviennent a chaque fois et les
réponses sont tjs les memes.

sinon merci pour ta macro, elle marche mais les questions sont tjs là, y
compris celle qui me demande si je veux mettre à jour mes liaisons.

alors peut etre que ce que je demande est impossible.


"michdenis" a écrit dans le message de news:
egV7WkJ%
Un détail à propos des "NOMS" des plages nommées.
Est-ce possible que ces "NOMS" du fichier source
existe déjà dans le fichier de destination avant que
la copie soit faite ?

Un nom ne peut défini qu'une fois au niveau du classeur....
si ce nom existe déjà, lors de la copie, excel va transformer
ce nom au niveau du classeur en un nom au niveau de la feuille.
C'est probablement pour ça qu'il pose ces questions.




"michdenis" a écrit dans le message de news:
unpk7ZJ%
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de
news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai
plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination.
je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.








Avatar
michdenis
Ce dont tu dois faire, c'est de modifier la façon dont
tu copies ta feuille vers ton nouveau classeur.

Que veux-tu coppier ? Valeurs seulement, Valeurs +. Format de cellules...




"FabriceR" a écrit dans le message de news:
%23wBPbpJ%
Oui les noms existent deja sur la feuille de destinationet sont les memes.
donc c'est normal qu'il me pose la question, mais ne peut on pas valider une
réponse par macro ? parce que ces questions reviennent a chaque fois et les
réponses sont tjs les memes.

sinon merci pour ta macro, elle marche mais les questions sont tjs là, y
compris celle qui me demande si je veux mettre à jour mes liaisons.

alors peut etre que ce que je demande est impossible.


"michdenis" a écrit dans le message de news:
egV7WkJ%
Un détail à propos des "NOMS" des plages nommées.
Est-ce possible que ces "NOMS" du fichier source
existe déjà dans le fichier de destination avant que
la copie soit faite ?

Un nom ne peut défini qu'une fois au niveau du classeur....
si ce nom existe déjà, lors de la copie, excel va transformer
ce nom au niveau du classeur en un nom au niveau de la feuille.
C'est probablement pour ça qu'il pose ces questions.




"michdenis" a écrit dans le message de news:
unpk7ZJ%
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de
news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai
plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination.
je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.








Avatar
FabriceR
A vrai dire il me faudrait les formules et format de cellules. c'est pour ca
que j'ai toutes ces questions.
Merci de ton aide



"michdenis" a écrit dans le message de news:
OTQ6KvJ%
Ce dont tu dois faire, c'est de modifier la façon dont
tu copies ta feuille vers ton nouveau classeur.

Que veux-tu coppier ? Valeurs seulement, Valeurs +. Format de cellules...




"FabriceR" a écrit dans le message de
news:
%23wBPbpJ%
Oui les noms existent deja sur la feuille de destinationet sont les memes.
donc c'est normal qu'il me pose la question, mais ne peut on pas valider
une
réponse par macro ? parce que ces questions reviennent a chaque fois et
les
réponses sont tjs les memes.

sinon merci pour ta macro, elle marche mais les questions sont tjs là, y
compris celle qui me demande si je veux mettre à jour mes liaisons.

alors peut etre que ce que je demande est impossible.


"michdenis" a écrit dans le message de news:
egV7WkJ%
Un détail à propos des "NOMS" des plages nommées.
Est-ce possible que ces "NOMS" du fichier source
existe déjà dans le fichier de destination avant que
la copie soit faite ?

Un nom ne peut défini qu'une fois au niveau du classeur....
si ce nom existe déjà, lors de la copie, excel va transformer
ce nom au niveau du classeur en un nom au niveau de la feuille.
C'est probablement pour ça qu'il pose ces questions.




"michdenis" a écrit dans le message de news:
unpk7ZJ%
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de
news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai
plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de
destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination.
je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.












Avatar
michdenis
Tu copies cette macro dans ton classeur source :

Ceci copie tout : Valeurs - Formules - Format des cellules
de toutes la feuille source.

Pas testé... assure-toi que les objets Nom des feuilles... sont
bien nommés.

'------------------------------------
Sub test()
'Cette macro doit être mise dans le classeur source
Dim DerLig As Long, DerCol As Integer
Dim C As Range, R As Range
Dim RgSource As Range 'Plage fichier source
Dim RgDest As Range ' plage fichier destination

'Adapte le nom de la feuille du classeur source
With ThisWorkbook.Worksheets("Feuil1") '<----
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
Set RgSource = .Range(.Cells(1, 1), .Cells(DerLig, DerCol))
End With

With Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")
Set RgDest = .Worksheets("saindoux").Range(RgSource.Address)
End With

With RgSource
.Copy RgDest
For Each R In .Rows
RgDest(R.Row).RowHeight = R.RowHeight
Next
For Each C In .Columns
RgDest(C.Column).ColumnWidth = C.ColumnWidth
Next
End With
End Sub
'------------------------------------








"FabriceR" a écrit dans le message de news:
%23CG1NLK%
A vrai dire il me faudrait les formules et format de cellules. c'est pour ca
que j'ai toutes ces questions.
Merci de ton aide



"michdenis" a écrit dans le message de news:
OTQ6KvJ%
Ce dont tu dois faire, c'est de modifier la façon dont
tu copies ta feuille vers ton nouveau classeur.

Que veux-tu coppier ? Valeurs seulement, Valeurs +. Format de cellules...




"FabriceR" a écrit dans le message de
news:
%23wBPbpJ%
Oui les noms existent deja sur la feuille de destinationet sont les memes.
donc c'est normal qu'il me pose la question, mais ne peut on pas valider
une
réponse par macro ? parce que ces questions reviennent a chaque fois et
les
réponses sont tjs les memes.

sinon merci pour ta macro, elle marche mais les questions sont tjs là, y
compris celle qui me demande si je veux mettre à jour mes liaisons.

alors peut etre que ce que je demande est impossible.


"michdenis" a écrit dans le message de news:
egV7WkJ%
Un détail à propos des "NOMS" des plages nommées.
Est-ce possible que ces "NOMS" du fichier source
existe déjà dans le fichier de destination avant que
la copie soit faite ?

Un nom ne peut défini qu'une fois au niveau du classeur....
si ce nom existe déjà, lors de la copie, excel va transformer
ce nom au niveau du classeur en un nom au niveau de la feuille.
C'est probablement pour ça qu'il pose ces questions.




"michdenis" a écrit dans le message de news:
unpk7ZJ%
Si tu utilises cette macro, as-tu la même problématique :

'----------------------------
Sub archiveinfologic()
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = Workbooks.Open("Serveurdiskrecherche" & _
"Recherche 2008 6 Dossier 2008 Bolard" & _
"01 Process 1 Pâtes 1pates.xls")

'Modifie au besoin de le nom de la feuille source
With ThisWorkbook.Worksheets("Feuil1") '<---
.Cells.Copy Wk.Worksheets("saindoux").Range("A1")
End With
Wk.Close True

End Sub
'----------------------------



"FabriceR" a écrit dans le message de
news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "ServeurdiskrechercheRecherche 2008 6 Dossier 2008
Bolard 1 Process 1 Pâtes 1pates.xls"

Sheets("saindoux").Select

Range("a1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

B ) Qu'elles étaient tes besoins ?
et donc quand j'exécute ma macro, à l'ouverture du classeur, j'ai
plusieurs
questions qui me sont posées, et j'aimerais que ma macro y réponde d'elle
même.
Merci


"michdenis" a écrit dans le message de news:
OJOzCEJ%
Difficile de répondre ..

A ) tu n'as pas publié ta macro
B ) Qu'elles étaient tes besoins ?

Exemple de copie d'une feuille d'un classeur à l'autre

Cette procédure copie tout : Format Cellule, Plage nommée
Formule, Hauteur et largeur des lignes ...etc

Et pourtant la feuille de destination demeure indépendant de
la feuille source ....

'-------------------------------
Sub test()
With Workbooks("classeur2.xls")
With .Worksheets("Feuil1")
.Cells.Copy Workbooks("Classeur1.xls") _
.Worksheets("Feuil1").Range("A1")
End With
End With
End Sub
'-------------------------------




"FabriceR" a écrit dans le message de
news:
uy9E%231I%
Bonjour,

Voilà, j'ai une macro qui copie ma feuille active dans un autre classeur
(macro que j'ai faite grace a vous :-) )
Mon souci maintenant c'est qu'en ouvrant cet autre classeur, j'ai
plusieurs
messages qui apparaissent.
Le premier me demande si je veux mettre a jour mes valeurs (car j'ai des
formules de recherche dans ce classeur) je clic "ne pas mettre à jour"
Le deuxieme me demande si je veux remplacer les celulles de
destinations.
je
clic "oui"
et les 3 suivants me demandent si je veux garder le nom de mes plages de
cellules nommées, car les memes existent sur le fichier de destination.
je
dit "oui" 3 fois.

Ma question est comment puis je répondre à ces questions automatiquement
dans ma macro, sans avoir à cliquer.
Merci de votre aide.