nouvellevenue
XLDnaute Nouveau
Bonjour à tous,
Je m'excuse d'avance si ma question est peu claire et/ou trop simple pour vous tous amis webeur mais je débute en vba et n'ai donc pas votre niveau...
J'ai un fichier excel qui subit (au fil des saisies de plusieurs services) des modifications et des enregistrements dans des dossiers différents. J'aimerai une fois obtenue la version finale de ce fichier, supprimer l'ensemble des fichiers "ébauches" lui correspondant.
Mon fichier s'intitule au départ x.xls, puis dès le 1er enregistrement je lui incrémente un numéro "id" qu'il gardera tout au long de son parcours ex: 1.xls; au cours des enregistrement le nom du fichier commence tjrs par l'id, mais je lui annote certaines informations après ex: 1_n_nn.xls; pour au final s'appeler 1y.xls .
voici le bou de code que j'ai essayer d'écrire...
Private Sub supprimer_fichiers_doublons()
'macro permettant de supprimer les fichiers commençant par le même numéro id
Dim y As Parameter
'y est le numéro id commun à un groupe de fichier
Dim VNom As Variant
'VNom est le fichier excel final que je souhaite garder,
VNom = "X:\A\A1\A11\A111\A111a\A111a1\y & (n.xls)"
'ci dessus le chemin pour trouver le fichier, avec le paramètre y (id) qui permet d'identifier le groupe auquel il appartient
Dim nom1 As Variant
'nom1 est le fichier doublon de VNom que je souhaite supprimer si VNom existe
nom1 = "X:\A\A1\A11\A111\A111a\y & (_n_nn.xls)"
'chemin d'accès à nom1
Dim nom2 As Variant
'nom2 est un second fichier doublon de Vnom , et je souhaite egalement le supprimer si VNom existe.
nom2 = "X:\A\A1\A11\A111\A111b\y & (.xls)"
'chemin d'accès à nom1
If VNom(y) = nom1(y) And VNom(y) = nom2(y) Then
'Si le paramètre y(id) de VNom est égale au paramètre y de nom1 et nom2
'alors on supprime nom1 et nom2
Kill nom1
Kill nom2
End If
End Sub
...merci d'avance de vos lumières sur mon problème...
Je m'excuse d'avance si ma question est peu claire et/ou trop simple pour vous tous amis webeur mais je débute en vba et n'ai donc pas votre niveau...
J'ai un fichier excel qui subit (au fil des saisies de plusieurs services) des modifications et des enregistrements dans des dossiers différents. J'aimerai une fois obtenue la version finale de ce fichier, supprimer l'ensemble des fichiers "ébauches" lui correspondant.
Mon fichier s'intitule au départ x.xls, puis dès le 1er enregistrement je lui incrémente un numéro "id" qu'il gardera tout au long de son parcours ex: 1.xls; au cours des enregistrement le nom du fichier commence tjrs par l'id, mais je lui annote certaines informations après ex: 1_n_nn.xls; pour au final s'appeler 1y.xls .
voici le bou de code que j'ai essayer d'écrire...
Private Sub supprimer_fichiers_doublons()
'macro permettant de supprimer les fichiers commençant par le même numéro id
Dim y As Parameter
'y est le numéro id commun à un groupe de fichier
Dim VNom As Variant
'VNom est le fichier excel final que je souhaite garder,
VNom = "X:\A\A1\A11\A111\A111a\A111a1\y & (n.xls)"
'ci dessus le chemin pour trouver le fichier, avec le paramètre y (id) qui permet d'identifier le groupe auquel il appartient
Dim nom1 As Variant
'nom1 est le fichier doublon de VNom que je souhaite supprimer si VNom existe
nom1 = "X:\A\A1\A11\A111\A111a\y & (_n_nn.xls)"
'chemin d'accès à nom1
Dim nom2 As Variant
'nom2 est un second fichier doublon de Vnom , et je souhaite egalement le supprimer si VNom existe.
nom2 = "X:\A\A1\A11\A111\A111b\y & (.xls)"
'chemin d'accès à nom1
If VNom(y) = nom1(y) And VNom(y) = nom2(y) Then
'Si le paramètre y(id) de VNom est égale au paramètre y de nom1 et nom2
'alors on supprime nom1 et nom2
Kill nom1
Kill nom2
End If
End Sub
...merci d'avance de vos lumières sur mon problème...
