Microsoft 365 Erreur d'execution 13 Incompatibilité de type

dikadi

XLDnaute Nouveau
Bonjours tout le monde ,
j'aurai besoin de votre aide je suis debutant ici
voici le fichier losque je laisse j'ai :
Erreur d'execution 13 Incompatibilité de type
VB:
Function ChoixFichier() As String
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant[ATTACH type="full"]1128666[/ATTACH]
 
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then Exit Function
 
    
    
    ChoixFichier = Fichier
End Function

Function ChoixRepertoire() As String
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Dossier
    Dossier = False
    Application.FileDialog(msoFileDialogFolderPicker).Show
    If (Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Count <> 0) Then
        Dossier = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    End If
 
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Dossier = False Then Exit Function
 
    
    
    ChoixRepertoire = Dossier
End Function
Sub delete_images()
    Dim ws As Worksheet, image As Picture, reponse As Integer
    For Each ws In Worksheets
        ws.Activate
        For Each image In ActiveSheet.Pictures
            image.Visible = True
            image.Select
            reponse = MsgBox("Supprimer image trouvée " _
                           & Chr(10) & image.Name _
                           & Chr(10) & "X " & image.Left _
                           & Chr(10) & "Y " & image.Top _
                           & Chr(10) & "formule " & image.Formula, vbQuestion + vbYesNo, "Coucou J@@")
            If reponse = vbYes Then image.Delete
        Next image
    Next ws
End Sub

Function creerRepertoire(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
    If RépertoireExiste = True Then
        Exit Function
    Else
        MkDir (Chemin)
    End If
End Function


Public Function DossierExiste(MonDossier As String)
    If Len(Dir(MonDossier, vbDirectory)) > 0 Then
        DossierExiste = True
    Else
        DossierExiste = False
    End If
    
    If (MonDossier = "") Then
        
    End If
    DossierExiste = False
End Function
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    7.9 KB · Affichages: 32

Etoto

XLDnaute Barbatruc
Bonjour d'accord vous pouvez me m'écrire sur 0102service@gmail.com et je t'envoi merci
Hello,

Je voulais juste dire que c'est pas le top de donner une adresse mail à tout internet ! Je crains même que les modérateurs vont devoir supprimer ton mail du post, c'est une donnée de certaine manière confidentielle.

Désolé


Par contre, tu peux joindre le fichier ici ou sur


@+
 

dikadi

XLDnaute Nouveau
Hello,

Je voulais juste dire que c'est pas le top de donner une adresse mail à tout internet ! Je crains même que les modérateurs vont devoir supprimer ton mail du post, c'est une donnée de certaine manière confidentielle.

Désolé


Par contre, tu peux joindre le fichier ici ou sur


@+
hello merci par contre sa contient des informations personnelle c'est pour ça je publie pas en public
 

Discussions similaires

Réponses
1
Affichages
269
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 722
Messages
2 081 930
Membres
101 843
dernier inscrit
Thaly