Macro Excel

Fermé

Miky75019 Messages postés 3 Date d'inscription mardi 19 janvier 2010 Statut Membre Dernière intervention 22 janvier 2010 - 22 janv. 2010 à 17:43
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 22 janv. 2010 à 22:44

Bonjour,

J'ai réalisé une macro dans laquelle je dois ouvrir un fichier pour y récupérer des données...

Seulement, pour une plus grand adaptabilité de la macro (dans la mesure ou elle sera utilisée sur des ordinateurs différents) j'ai voulu utilisé la variable globale TEMP dans l'emplacement du fichier.*
Seulement j'ai une erreur.

A priori il n'y a pas de conversion automatique comme dans l'explorateur.

Est ce que quelqu'un pourrait m'aider à régler le problème ?

Sheets("Incident").Select
Columns("L:L").Select
Selection.Copy
Sheets("Stockage").Select
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Incident").Select
ActiveWindow.LargeScroll ToRight:=-1
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Stockage").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Incident").Select
Range("F2").Select
Sheets("Incident").Select
Workbooks.Open Filename:= _
"%TEMP%\Incident_Support.csv", Local:=True
Columns("A:K").Select
Range("K1").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Copie de automat.xls").Activate
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Columns("A:K").Select
Range("K1").Activate
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("F2").Select
Sheets("Synthèse Incident").Select
End Function

A voir également:

Macro Excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
22 janv. 2010 à 22:44

Bonsoir,
Tu peux utiliser par exemple
Workbooks.Open Filename:= Environ("TEMP") & "\Incident_Support.csv", Local:=True au lieu de
Workbooks.Open Filename:= "%TEMP%\Incident_Support.csv", Local:=True

Vérifie qu'il s'agit bien de la bonne variable avec par exemple MsgBox Environ("TEMP")

Remarque : tu peux avantageusement remplacer :
Columns("L:L").Select
Selection.Copy

par
Columns("L:L").Copy

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters