Bonjour !
Actuellement j'exporte des cellules d'une feuille de classeur vers une autre
feuille en incrémentant d'une ligne après chaque validation par une macros
dont voici le code:
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Sheets("Facture").Range("H1")
Cells(r, 2) = Sheets("Facture").Range("F12") etc...
Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut
importe. J'ai tout essayé !!!
Merci
Cordialement
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
Daniel
Bonjour. Ca doit fonctionner comme ça : Workbooks("classeur2.xls").Activate Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1") Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" a écrit dans le message de news:
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
Bonjour.
Ca doit fonctionner comme ça :
Workbooks("classeur2.xls").Activate
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1")
Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" <Hubert@discussions.microsoft.com> a écrit dans le message de news:
DC83F34C-AC14-49D0-8502-5746D953F51D@microsoft.com...
Bonjour !
Actuellement j'exporte des cellules d'une feuille de classeur vers une
autre
feuille en incrémentant d'une ligne après chaque validation par une macros
dont voici le code:
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Sheets("Facture").Range("H1")
Cells(r, 2) = Sheets("Facture").Range("F12") etc...
Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé
peut
importe. J'ai tout essayé !!!
Merci
Cordialement
Bonjour. Ca doit fonctionner comme ça : Workbooks("classeur2.xls").Activate Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1") Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" a écrit dans le message de news:
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
anomymousA
bonjour,
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca marche. Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
bonjour,
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra
utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca
marche.
Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures
avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas
jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour !
Actuellement j'exporte des cellules d'une feuille de classeur vers une autre
feuille en incrémentant d'une ligne après chaque validation par une macros
dont voici le code:
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Sheets("Facture").Range("H1")
Cells(r, 2) = Sheets("Facture").Range("F12") etc...
Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut
importe. J'ai tout essayé !!!
Merci
Cordialement
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca marche. Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
Hubert
Merci Daniel ça marche super....ouf !!!
"Daniel" wrote:
Bonjour. Ca doit fonctionner comme ça : Workbooks("classeur2.xls").Activate Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1") Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" a écrit dans le message de news:
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
Merci Daniel ça marche super....ouf !!!
"Daniel" wrote:
Bonjour.
Ca doit fonctionner comme ça :
Workbooks("classeur2.xls").Activate
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1")
Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" <Hubert@discussions.microsoft.com> a écrit dans le message de news:
DC83F34C-AC14-49D0-8502-5746D953F51D@microsoft.com...
Bonjour !
Actuellement j'exporte des cellules d'une feuille de classeur vers une
autre
feuille en incrémentant d'une ligne après chaque validation par une macros
dont voici le code:
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Sheets("Facture").Range("H1")
Cells(r, 2) = Sheets("Facture").Range("F12") etc...
Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé
peut
importe. J'ai tout essayé !!!
Merci
Cordialement
Bonjour. Ca doit fonctionner comme ça : Workbooks("classeur2.xls").Activate Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Workbooks("classeur1.xls").Sheets("Facture").Range("H1") Cells(r, 2) = Workbooks("classeur1.xls").Sheets("Facture").Range("F12")
"Hubert" a écrit dans le message de news:
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
Hubert
Merci beaucoup je vais aller m'instruire !! à +
"anomymousA" wrote:
bonjour,
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca marche. Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
Merci beaucoup je vais aller m'instruire !!
à +
"anomymousA" wrote:
bonjour,
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra
utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca
marche.
Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures
avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas
jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour !
Actuellement j'exporte des cellules d'une feuille de classeur vers une autre
feuille en incrémentant d'une ligne après chaque validation par une macros
dont voici le code:
Sheets("Base").Select
r = Application.WorksheetFunction. _
CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs
Cells(r, 1) = Sheets("Facture").Range("H1")
Cells(r, 2) = Sheets("Facture").Range("F12") etc...
Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut
importe. J'ai tout essayé !!!
Merci
Cordialement
pour completer la réponse de Daniel: pour lire un classeur fermé, il faudra utiliser ADO.Quant à écrire dedans, j'ai jamais essayé, je ne sais pas si ca marche. Va voir le site de Frédéric Sigonneau , il y a des exemples de procédures avec des classeurs fermés à la rubrique ADO. Ca fait un moment que j'ai pas jeté un oeil, il y a peut-être quelques chose pour l'écriture.
A+
Bonjour ! Actuellement j'exporte des cellules d'une feuille de classeur vers une autre feuille en incrémentant d'une ligne après chaque validation par une macros dont voici le code:
Sheets("Base").Select r = Application.WorksheetFunction. _ CountA(Range("A:A")) + 1
' Insertion des valeurs dans les champs Cells(r, 1) = Sheets("Facture").Range("H1") Cells(r, 2) = Sheets("Facture").Range("F12") etc... Je voudrais pouvoir faire ceci vers un nouveau classeur ouvert ou fermé peut importe. J'ai tout essayé !!! Merci Cordialement
