Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour !Je cherche à copier des feuilles sans le code associé, mais avec la miseen
forme.XLS est mon classeur de départ, ARR mon classeur d'arrivée.Je fais :'copie la partie utile de la feuilleXLS.Sheets(i).UsedRange.Copy'ajoute une feuille dans le classeur d'arrivéeARR.Worksheets.Add After:=ARR.Sheets(ARR.Sheets.Count)'fait collage spécialARR.Sheets(ARR.Sheets.Count).PasteSpecial Paste:=xlPasteAllEh bien, ça ne fonctionne pas : "Erreur de l'objet ou de l'application"Si je n'indique pas Paste:=xlPasteAll, il me colle les données, mais biensûr pas le format ligne-colonnes que je cherche précisément à copier...Qui pourrait m'indiquer ce qui se passe et ce que je peux faire ?En remerciant d'avance la bonne âme qui pourra me dépanner...
Bonjour ! Je cherche à copier des feuilles sans le code associé, mais avec la mise en
forme. XLS est mon classeur de départ, ARR mon classeur d'arrivée. Je fais : 'copie la partie utile de la feuille XLS.Sheets(i).UsedRange.Copy 'ajoute une feuille dans le classeur d'arrivée ARR.Worksheets.Add After:=ARR.Sheets(ARR.Sheets.Count) 'fait collage spécial ARR.Sheets(ARR.Sheets.Count).PasteSpecial Paste:=xlPasteAll Eh bien, ça ne fonctionne pas : "Erreur de l'objet ou de l'application" Si je n'indique pas Paste:=xlPasteAll, il me colle les données, mais bien sûr pas le format ligne-colonnes que je cherche précisément à copier... Qui pourrait m'indiquer ce qui se passe et ce que je peux faire ? En remerciant d'avance la bonne âme qui pourra me dépanner...
Bonjour PM,sur ta dernière ligne de code tu dois rajouter RANGE:ARR.Sheets(ARR.Sheets.Count).Range("A1").PasteSpecialPaste:=xlPasteAllCordialement,Guillaume VENTRE"PM" a écrit dans le message de news:Bonjour !Je cherche à copier des feuilles sans le code associé, mais avec la miseenforme.XLS est mon classeur de départ, ARR mon classeur d'arrivée.Je fais :'copie la partie utile de la feuilleXLS.Sheets(i).UsedRange.Copy'ajoute une feuille dans le classeur d'arrivéeARR.Worksheets.Add After:=ARR.Sheets(ARR.Sheets.Count)'fait collage spécialARR.Sheets(ARR.Sheets.Count).PasteSpecial Paste:=xlPasteAllEh bien, ça ne fonctionne pas : "Erreur de l'objet ou de l'application"Si je n'indique pas Paste:=xlPasteAll, il me colle les données, mais biensûr pas le format ligne-colonnes que je cherche précisément à copier...Qui pourrait m'indiquer ce qui se passe et ce que je peux faire ?En remerciant d'avance la bonne âme qui pourra me dépanner...
Bonjour PM, sur ta dernière ligne de code tu dois rajouter RANGE: ARR.Sheets(ARR.Sheets.Count).Range("A1").PasteSpecial Paste:=xlPasteAll Cordialement, Guillaume VENTRE "PM" <antispaml@noos.fr> a écrit dans le message de news: e3yqCxQ3EHA.4004@tk2msftngp13.phx.gbl... Bonjour ! Je cherche à copier des feuilles sans le code associé, mais avec la mise en forme. XLS est mon classeur de départ, ARR mon classeur d'arrivée. Je fais : 'copie la partie utile de la feuille XLS.Sheets(i).UsedRange.Copy 'ajoute une feuille dans le classeur d'arrivée ARR.Worksheets.Add After:=ARR.Sheets(ARR.Sheets.Count) 'fait collage spécial ARR.Sheets(ARR.Sheets.Count).PasteSpecial Paste:=xlPasteAll Eh bien, ça ne fonctionne pas : "Erreur de l'objet ou de l'application" Si je n'indique pas Paste:=xlPasteAll, il me colle les données, mais bien sûr pas le format ligne-colonnes que je cherche précisément à copier... Qui pourrait m'indiquer ce qui se passe et ce que je peux faire ? En remerciant d'avance la bonne âme qui pourra me dépanner...
