Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : Copier un onglet d'un autre classeur sans l'ouvrir
Re Bonjour,
J'ai essayé de chercher sur internet une autre formule et j'ai trouvé cela :
Sub Copiefichierstock()
Var_Chemin = "Z:\MA\PRODUCTION\inv picking\2016\" & Format(Date, "yyyymmdd") & ".xls"
Fichier1 = ActiveWorkbook.Name...
Re : Copier un onglet d'un autre classeur sans l'ouvrir
J'ai essayé mais il me dit strictement rien du tout , mais ne copie pas la feuille ...
Je vous met le fichier " Surplus a vendre" sur lequel je travaille & le fichier du jour qui se trouve dans le lien que je vous ai indiqué précédamment...
Re : Copier un onglet d'un autre classeur sans l'ouvrir
Cela ne fonctionne pas ...
Ça m’exécute correctement ma procédure mais ça ne copie rien ....
Es ce que c'est ma procédure qui est mal écrite?
Je veux copier l'onglet " Stock" qui se trouve dans le classeur qui se trouve ...
Re : Copier un onglet d'un autre classeur sans l'ouvrir
Bonjour,
Je vous mets en PJ le fichier ...
Le fichier où il doit chercher l'onglet pour le copier change de nom tout le jours car il prend le nom de la date "yyyymmjj" est le chemin où aller le chercher est Z:\MA\PRODUCTION\inv...
Re : Copier un onglet d'un autre classeur sans l'ouvrir
Es ce que c'est possible que c'est parceque j'ai pas notifié que c'est la date du jour que je veux qu'il aille chercher ?
C'est à dire : Z:\MA\PRODUCTION\inv picking\" & dayYear soit le Z:\MA\PRODUCTION\inv picking\20160616 par exemple...
Re : Incompabilité de Type
Bah je viens de ressayer, cela fonctionne!
Je suis vraiment désolé ! Je comprend pas non plus
Merci beaucoup pour votre aide ! Et encore désolé
Re : Incompabilité de Type
C'est sur la ligne suivante que ca m'affiche l'erreur
If Range("A" & Lig).Value = "0" Then Rows(Lig).Delete
Je vous mets le fichier en PJ pour mieux comprendre si vous le souhaitez
Merci encore
J'ai fait 2 Sub différents (ci-dessous) , Mais quand je lance Sub Elimine_0() , ca m'affiche Incompatibilité de Type.
Comment Puis-je remédier à ce problème ?
Sub Synthese()
Sheets("Mise en Avant").Select
Range("A4").Select
formuleA = "=SI('Trame Stock'!D4>'Trame...
Bonjour,
J'essaye d'extraire un onglet d'un autre classeur sans pouvoir l'ouvrir.
Le nom du fichier où il doit extraire l'onglet change tout les jours car son nom est la date du jour.
J'ai écrit le code ci-dessous mais cela ne fonctionne pas, je ne comprend pas pourquoi ?
Pouvez vous...
Re : Traduction en VBA
Un peu comme ci-dessous , mais ca ne fonctionne pas.
Ca me dit erreur de Syntaxe
formuleA = If Sheets("Tramesurplus").Cells("D4")>Sheets("Tramesurplus").Cells("H4"),Sheets("Tramesurplus").Cells("A4"), 0 )
Bonjour,
Je n'arrive pas à programmer ce que je veux faire.
Je voudrais que :
Dans la cellule A4 : =SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!A4;0)
Dans la cellule B4 : =SI('Trame Stock'!D4>'Trame Stock'!H4;'Trame Stock'!B4;0)
Dans la cellule C4 : =SI('Trame Stock'!D4>'Trame...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.