OUVERTURE FICHIER XLS

[FRANTZ]

BONJOUR
j ai plusieur fichier xls identique en format
je voudrais appliquer la meme mise en forme pour tous ces dossiers

Je cherche donc a ouvrir un fichier xls sur mon C à partir du fichier contenant la macro de mise en forme

merci d avance frantz

 

[Exfan]

Bonjour,

ce que je faisais au début était simple, mais éducatif, je lançais
l'outil enregistremnt d'une macro,
je faisais mes manips à la main, je rècupérais le code à adapter,
je mettais un bouton , l'affectais à la macro, un peu de debug ;O))
généralement des variables à mettre en place, car ta macro 'parle' en 'dur'
voilà, avec cette outil enregistrer une macro (et ne pas oublier de l'arréter!) je récupère tout le VBA nécessaire à la manip finale...
après coup je vois si je peu rentrer dans le coding, avec les aides, et ...ce forum ;O)

c'est une méthode empirique, mais elle marche.

essaye là sur ta feuille:
créé un enregistrement qui va trapper tes manips en code VBA
créé un bouton pour l'affecter et lance le
tu dois déjà avoir la même chose.
pour garder la mise en forme, je ne sais pas si il faut d'abord charger le fichier dans une feuille intermédiaire et le copier spécial dans ta feuille avec mise en forme ?
qq'un te répondra la dessus...je pense.

 

[anuky]

bonjour, frantz, Exfan, le forum

voici un petit bout de code demande le fichier à ouvrir puis l'ouvre.
tu affècte la maro à un bouton et le tour est joué.

Dim FileToOpen As Variant

'affiche la boîte de dialogue 'Ouvrir' en ne montrant que les fichiers texte et garde le chemin du fichier en mémoir sans l'ouvrir
FileToOpen = Application.GetOpenFilename('classeur excel(*.xls), *.xls', , , , False)

If FileToOpen <> False Then
Workbooks.Open Filename:=FileToOpen

Else
MsgBox ('saisissez un nom')
End If

demande si tu as un souci et tien nous au couran

A+