VBA

Le
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.
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
michdenis
Le #16496131
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" 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.
FabriceR
Le #16496431
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.




michdenis
Le #16496411
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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.




michdenis
Le #16496651
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" 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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.




FabriceR
Le #16497191
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" 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" 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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.








michdenis
Le #16497171
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" %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" 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" 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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.








FabriceR
Le #16497421
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" 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" 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" 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" 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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.












michdenis
Le #16497981
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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" %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" 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" 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" 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" 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 20086 Dossier 2008 Bolard" & _
"01 Process1 Pâtes1pates.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" news:
e$RFxRJ%
A ) alors voilà ma macro

Sub archiveinfologic()

Cells.Select
Selection.Copy

Workbooks.Open "\ServeurdiskrechercheRecherche 20086 Dossier 2008
Bolard1 Process1 Pâtes1pates.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" 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" 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.












Publicité
Poster une réponse
Anonyme