Comment vérifier si un fichier existe avant sont enregistrem

Bonjour à tous,

Prendre note que je parts de zéro pour ma connaissance du VBA, veuillez donc être très claire dans vos propos S.V.P..

Si possible envoyez du code fonctionnel se serrait grandement apprécié.

Je dois créer du code pour une macro qui.

1- Demande un nom de fichier

2- Vérifie si ce ficher existe dans un autre répertoire

Si OUI, la macro l'ouvre

Si NON, la macro cré ce fichier dans XL (dans le réperoitre ci-haut)

3- Le rend actif et l'affiche

4- Trouve la dernière donnée de la colonne A

5- Place le curseur sur la cellule suivante vers le bas

6- Fin

Un gros MERCI pour vos suggestion !!!

Bonjour,

Un début à tester.

Le nom du fichier à entrer doit contenir l'extension, genre LeFichier.xls

Sub OuvreFichier()
    Dim Pat As String, Fichier As String
    Pat = "C:\repertoire\repertoire\"  'A adapter au chemin du répertoire où sont les fichiers
    Fichier = InputBox("Entrez le nom du fichier à ouvrir ou créer")
    If Fichier = "" Then Exit Sub ' cliquer sur annuler
    If Dir(Pat & Fichier) <> "" Then
        'le fichier existe déjà
        Workbooks.Open (Pat & Fichier)
    Else
        'créer nouveau classeur
        With Workbooks.Add
            'le sauver pour qu'il prenne le nom
            .SaveAs Pat & Fichier
        End With
    End If
End Sub

Regarde déjà ça, ont verra pour la suite.

A+

MERCI BIEN Ermite,

C'est parfait et j'ai ajouté la détection de l'extension comme suit:

Fichier = Fichier + ".xls"

Ton coup de pouce va me sauver un temps fou !

MERCI ENCORE !!!!!

Bonjour,

Il faut que tu t'habitue aux impératif d'un forum..

Pas de question technique par MP.

Et pas besoin de mettre sont message avec une police plus grande, en règle générale nous mettons nos lunettes pour pouvoir lire en grandeur normale.

Ajoute ta demande dans ton poste sur le forum ou à la limite crée un nouveau poste.

A+