Bonsoir,
est il possible à partir d'une macro de récupérer des feuilles issues de
classeurs fermés et de les importer dans un nouveau classeur.
Par exemple j'ai 3 classeurs nommés classeur 1 à classeur 3 et chacun de
ces 3 classeurs contient une feuille nommée feuille 1 .Ces 3 classeurs sont
stockés dans c:\travaux.
Je souhaite creé un nouveau classeur nommé "global" et y importer les 3
feuilles .
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
Le Nordiste
Bonjour,
J'utilise avec succés le code ci-dessous. D'abord affectation des valeurs aux données nécessaires : strChemin, StrFichierSource et strFeuilleSource. Puis import - il n'y a pas besoin de créer auparavant de feuille- au sein du classeur actif la feuille désirée sous le même nom ; ce code nécessite de saisir les mots de passe.
'IMPORT DE LA FEUILLE 'source' DANS LE CLASSEUR ACTIF Set shtFeuille = GetObject(strChemin & "" & strFichierSource).Sheets(strFeuilleSource) GetObject(strChemin & "" & strFichierSource).Sheets(strFeuilleSource).Copy after:= _
est il possible à partir d'une macro de récupérer des feuilles issu es de classeurs fermés et de les importer dans un nouveau classeur.
Bonjour,
J'utilise avec succés le code ci-dessous.
D'abord affectation des valeurs aux données nécessaires : strChemin,
StrFichierSource et strFeuilleSource.
Puis import - il n'y a pas besoin de créer auparavant de feuille- au
sein du classeur actif la feuille désirée sous le même nom ; ce code
nécessite de saisir les mots de passe.
'IMPORT DE LA FEUILLE 'source' DANS LE CLASSEUR ACTIF
Set shtFeuille = GetObject(strChemin & "" &
strFichierSource).Sheets(strFeuilleSource)
GetObject(strChemin & "" &
strFichierSource).Sheets(strFeuilleSource).Copy after:= _
J'utilise avec succés le code ci-dessous. D'abord affectation des valeurs aux données nécessaires : strChemin, StrFichierSource et strFeuilleSource. Puis import - il n'y a pas besoin de créer auparavant de feuille- au sein du classeur actif la feuille désirée sous le même nom ; ce code nécessite de saisir les mots de passe.
'IMPORT DE LA FEUILLE 'source' DANS LE CLASSEUR ACTIF Set shtFeuille = GetObject(strChemin & "" & strFichierSource).Sheets(strFeuilleSource) GetObject(strChemin & "" & strFichierSource).Sheets(strFeuilleSource).Copy after:= _