Incompatibilité de type

[T77XDD]

Bonjour,
j'essai de créer une base de données pour me faciliter le travail.
SQur la page ou je créé les données des travaux et des fax j'ai créé deux boutons un pour les travaux qui fonctionne nickel et un pour les fax qui plante chaque fois en indiquant "incompatibilité de type" avec l'erreur qui s'affiche dans la bulle "ActiveCell.CurrentRegion(Ctr) = erreur 2023" sur la ligne "Tableau(Ctr) = ActiveCell.CurrentRegion(Ctr)" surlignée en jaune.
Pour utiliser "BDD Essai"; sur la feuille "Récap DP" cliq sur "F xxxxx" ou" C xxxxx" et sur le bouton dans l'entête "Travaux"
Pour créer "F 21000" par exemple il faut créer C\DP\FAX\FOURBIN & C\DP\Bt 54\225 pour "C 43000"
Au final, il faudra que j'arrive à un seul bouton pour tout enregistrer avec positionnement sur la dernière ligne F xxxx ou C xxxxx et retour à la ligne + création de l'hyperlien mais on n'y est pas encore...
Merci.

 

[Hervé]

Re : Incompatibilité de type

salut

ton soucis viens du fait que tu as erreur 2042 en cellule c24 de ta feuille fax "#NA".

comme tu as déclaré ta variable objet en string, le code attend un mot et non une erreur.

deux solutions, déclarer ta variable en variant "dim objet" ou gérer l'erreur 2042 :

If Not IsError(Sheets("FAX").Range("C24")) Then
    objet = Sheets("FAX").Range("C24")
Else
   MsgBox "vous avez une erreur en C24 de la feuille FAX": Exit Sub
End If

il serait quand même mieux que tu gères directement l'erreur apparaissant en c24.

a plus

 

[T77XDD]

Re : Incompatibilité de type

Merci pour cette réponse.
Ce que je ne comprend pas c'est pourquoi en I2 #REF s'affiche alors que je fait exactement la meme chose sur "Impression Enregistrement" soit

Selection.Copy
Sheets("DP").Select
Range("I1").Select
ActiveSheet.Paste
Range("I3").Select

Pour la feuille DP ça fonctionne avec en + les travaux pour les PC et les Locs sont gérés différemment
Ceci dit j'ai modifié NomfichierPDF As string en NomfichierPDF$ mais comme je travaille à la maison sur XP virtualisé sous UBUNTU je ne peut etre sur de rien.
Merci pour le renseignement.

 

[T77XDD]

Re : Incompatibilité de type (Résolu)

Bonjour
j'ai résolu le pb en déplaçant "I3" en "A1"
Nouveau code du module "Fasque"

Selection.Copy
Sheets("DP").Select
Range("I1").Select
ActiveSheet.Paste
Range("A1").Select

Je ne comprends pas pourquoi ça marche et ce que j'aime bien c'est comprendre, si quelqu'un a une explication c'est volontier!
Merci